Sendbyte = 0
Case RemoteIsReadyMSG
''''如果文件还没有结束,继续传输
If Not FileisOver Then
Label1.Caption = "文件正在被传输>>>"
SendChunk
Else
WinsockSend.SendData FileisOverMSG
End If
Case FileisOverMSG
''''主机处理
Close #filehandle
MsgBox ("文件传输成功!") ''''大家一起处理
WinsockSend.Close
cmdConnect.Enabled = True
ProgressBar1.Value = 0
cmdSend.Enabled = True
Label1.Caption = "准备传输>>>"
Case RemoteDenyMSG
MsgBox ("用户终止了传输!")
End Select
Exit Sub
End Sub
上一页 [1] [2] [3]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18