说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于sckUDPProtocol的问题!我用sckUDPProtocol为什么发不出去信息?

编辑:说三道四文库 发布时间:2018-06-24 03:40
HTML文档下载 WORD文档下载 PDF文档下载
关于sckUDPProtocol的问题!我用sckUDPProtocol为什么发不出去信息?
Private Sub cmdLogin_Click()
    Dim LoginData As String
    LoginData = wskClient.LocalIP
    LoginData = LoginData & "  8000" 'wskClient.LocalPort
    wskClient.RemoteHost = txtServerIP.Text
    wskClient.RemotePort = txtServerPort.Text
    wskClient.SendData LoginData
    'MsgBox LoginData
End Sub

Private Sub Form_Load()
    wskClient.Protocol = sckUDPProtocol
End Sub
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    'wskClient.GetData strData
End Sub
Private Sub cmdSend_Click()
    Dim strData As String
    strData = txtData.Text
    wskClient.SendData strData
    lstData.AddItem "Client_1:" & strData
End Sub


我在Server端设了
    wskServer.LocalPort = 8080
还是不行!
我自己弄懂了!
给分
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘