this is the first time someone post what is your socket download fee

the download fee is

KB's received / time elapsed

• copy and paste into a new remote page (alt+r)
• right click on channel or status then click on "download time"
• click on start

a simple 101.01KB jpg file is download to your directory and it will be erased when you close the dialog

NOTE: results may not return your real download fee, like files download on internet

dialog tx {
  title "Download time"
  size -1 -1 149 67
  option dbu
  button "Start", 1, 56 48 37 12
  text "Download Fee:", 2, 7 10 39 8
  text "", 3, 48 10 36 8
  text "Bytes Received:", 4, 7 20 42 8
  text "", 5, 51 20 32 8
  text "Time elapsed:", 6, 7 30 35 8
  text "", 7, 44 30 39 8
  box "Socket Download Fee", 8, 2 1 145 63
  text "Kbps:", 9, 7 40 16 8
  text "", 10, 25 40 31 8
}

menu channel,status {
  .Download time: dialog $iif($dialog(tx), -v, -m tx) tx
}

on *:dialog:tx:sclick:1:{
  $iif(exists(txd.jpg), .remove txd.jpg)
  $iif($sock(txd), sockclose txd)
  sockopen txd locations.org 80
}

On *:sockopen:txd:{
  set %txs $ticks
  sockwrite -nt $sockname GET /100_KB_sample.jpg HTTP/1.1
  sockwrite $sockname Host: locations.org $+ $crlf $+ $crlf
}

On *:sockread:txd:{
  if (!$sock($sockname).mark) {
    var %txd.var | sockread %txd.var
    if (%txd.var == $null) { sockmark $sockname 1 }
  }
  else {
    if ($dialog(tx)) {
      sockread &txd 
      bwrite $+(txd.jpg) -1 -1 &txd
      var %x = $round($calc($calc($sock($sockname).rcvd / 1024) / $calc(($ticks - %txs) / 1000) * 8),2)
      did -ar tx 3 %x KB/s
      did -ar tx 5 $round($calc($sock($sockname).rcvd / 1024),2) KB
      did -ar tx 7 $calc(($ticks - %txs) / 1000)
      did -ar tx 10 $calc(%x * 8)
    }
  }
}  

on *:dialog:tx:close:*:{
  .remove txd.jpg
  sockclose txd
}