＋设为首页 ＋添加到收藏夹
如题，我觉得没有错啊。在线等回答，谢谢了。
Private Sub csock_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
csock.GetData strata
Text_sys.Text = strdata
End Sub
Private Sub send_Click()
csock.Connect
Do Until csock.State = sckConnected
If csock.State = sckClosed Then
Exit Sub
End If
DoEvents
Loop
If csock.State <> 0 Then
If Text_price.Text <> "" Then
csock.SendData Text_price.Text
Else
MsgBox "xxxxx"
End If
End If
End
End Sub
Private Sub csock_SendComplete()
csock.Close
End
End Sub
换个端口试试。
可能你使用的本地端口与其他软件发生冲突，只需要改一下你的winsock所使用的端口即可
winsock.localport=8888或者winsock.localport=0则自动获取
