Private Sub CmdSend_Click()
Sckclient.SendData TxtSend.Text
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
End Sub
Private Sub Form_Load()
With Sckclient
.RemoteHost = "127.0.0.1"
.RemotePort = 1002
.LocalPort = 1001
.Bind 1001
End With
End Sub
Private Sub Sckclient_DataArrival(ByVal bytesTotal As Long)
Dim MyStr As String
Sckclient.GetData MyStr
TxtGet.Text = TxtGet.Text & Chr(10) & Chr(13) & MyStr
End Sub
這是我照著書上寫的一個UDP客戶端程式，為什么一點擊發送后就出現VB “實時例外'10054'連接由遠程端重新設定”，我點擊除錯顯示出Sckclient.GetData MyStr這行是黃色的，這是什么意思啊，哪里有問題啊。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119369.html
標籤：網絡編程
下一篇：VB中實作COM組件封裝的事件