我也想过这个问题,看来只有通过第一次发送字节数,然后再发送数据来解决. dim lenofyourdata as integer '发送端 第一次发送数据长度winsock.senddata "DATALENGTH" + lenofyourdata接受端 dim lenofdata as integer '接受端 dim beginreceive as boolean beginreceive=false ---------------------------------winsock.getdata mydata if not beginreceive then select case of mid(mydata,1,10) case "DATALENGTH" lenofdata=strtoint(mid(mydata,11,len(mydata)) beginreceive=true case ..... '其传送指令 end select else '那个变量就到了你的这边mydata里去了 '然后根据len(mydata)就可以知道来了多少数据,自然就知道如何步进你的progressbar了 end if
dim lenofyourdata as integer '发送端
第一次发送数据长度winsock.senddata "DATALENGTH" + lenofyourdata接受端
dim lenofdata as integer '接受端
dim beginreceive as boolean
beginreceive=false
---------------------------------winsock.getdata mydata
if not beginreceive then
select case of mid(mydata,1,10)
case "DATALENGTH"
lenofdata=strtoint(mid(mydata,11,len(mydata))
beginreceive=true
case ..... '其传送指令
end select
else
'那个变量就到了你的这边mydata里去了
'然后根据len(mydata)就可以知道来了多少数据,自然就知道如何步进你的progressbar了
end if