UC知道VB winsock哪位高手看看哪错了!
来源：百度知道 编辑：UC知道 时间：2024/05/28 04:34:47
Private Sub cmdconnect_Click()
frmclient.sckclient.Connect
End Sub
Private Sub form_Load()
sckclient.RemoteHost = Text1.Text
sckclient.RemotePort = 4227
End Sub
Private Sub sckcient_Connect()
Text2.Text = "连接成功"
End Sub
Private Sub form_Load()
sckserver.LocalPort = 4227
sckserver.Listen
End Sub
Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
If sckserver.State <> sckClosed Then sckserver.Close
sckserver.Accept (requestID)
End Sub
frmclient.sckclient.Connect
End Sub
Private Sub form_Load()
sckclient.RemoteHost = Text1.Text
sckclient.RemotePort = 4227
End Sub
Private Sub sckcient_Connect()
Text2.Text = "连接成功"
End Sub
Private Sub form_Load()
sckserver.LocalPort = 4227
sckserver.Listen
End Sub
Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
If sckserver.State <> sckClosed Then sckserver.Close
sckserver.Accept (requestID)
End Sub
Private Sub sckcient_Connect()
sckcient少了一个l -> sckclient
Private Sub cmdconnect_Click()
看看这里的cmdconnect是不是画对了
其它地方的代码基本上没问题
Private Sub sckcient_Connect()
Text2.Text = "连接成功"
End Sub
||
Private Sub sckclient_Connect()
Text2.Text = "连接成功"
End Sub
其他没问题。不过就这两行。不知道你实现什么。如果就是连接。这就已经ok；了。前提使用tcp协议
Private Sub form_Load()
sckclient.RemoteHost = Text1.Text
sckclient.RemotePort = 4227
End Sub
上面代码有问题
当窗体LOAD时,TEXT1.TEXT为空字符串，当你按按钮连接时，load已经完成，RemoteHost当然就是空的，即使你后来改了TEXT1.TEXT的值，也没有什么事件来触发而重新定义RemoteHost，所以连接不上