こんなのもアリかな?
#include "hspsock.as"
#include "winmm.as"
timeBeginPeriod 1
sockopen 0,"www.onionsoft.net",80
if stat:dialog "err.":end
sockput "GET /hsp/file/hsp31.exe HTTP/1.0\nHost:www.onionsoft.net\nUser-Agent: HSP ver3.0\n\n",0
sdim buf,1024:timeGetTime:st=stat
repeat //1秒間取得
sockget buf,1024,0
timeGetTime:et=stat
if (et-st)>1000:ct=cnt:break
loop
mes ""+((1.0*ct/1024)*8)+"Mbps"
sockclose 0
timeEndPeriod 1
stop