采用winsock连接后,state等都正常
但是每次发送数据需要两次调用
winsock1.senddata
winsock1.senddata
数据才能写入到服务器,发送一次服务器没有反应。而且发送后winsock1.state仍然正常,但是发送数据不行了,要重新连接上才能够发送。
等待大虾指点!!!!!!!!!!
但是每次发送数据需要两次调用
winsock1.senddata
winsock1.senddata
数据才能写入到服务器,发送一次服务器没有反应。而且发送后winsock1.state仍然正常,但是发送数据不行了,要重新连接上才能够发送。
等待大虾指点!!!!!!!!!!
filelong = FileLen(FileName) '取得你所要发送文件的长度
ReDim myFile(filelong - 1) As Byte '初始化数组
Open FileName for Binary As #1 '打开文件
Get #1, , myFile '将文件写入数组
Close #1 '关闭文件
w.SendData myFile
doevents'加上这个