我现在要连接别的机器!!
但我想知道怎么样才算连上了!!!
我的服务器端程序如下!
Private Sub cmdcon_Click()StatusBar.SimpleText = "正在连接192.168.188.127" & "......"
Winsock.RemotePort = 10
Winsock.RemoteHost = "192.168.88.127"
Winsock.Connect
Do While Winsock.State <> sckConnected
Winsock.Connect
StatusBar.SimpleText = "连接成功"Loop
End SubPrivate Sub cmdclose_Click()
Winsock.Close
End SubPrivate Sub Form_Load()
StatusBar.SimpleText = "准备搜索"
End Sub
Private Sub Winsock_Connect()
MsgBox "连接成功!"
End Sub
但我想知道怎么样才算连上了!!!
我的服务器端程序如下!
Private Sub cmdcon_Click()StatusBar.SimpleText = "正在连接192.168.188.127" & "......"
Winsock.RemotePort = 10
Winsock.RemoteHost = "192.168.88.127"
Winsock.Connect
Do While Winsock.State <> sckConnected
Winsock.Connect
StatusBar.SimpleText = "连接成功"Loop
End SubPrivate Sub cmdclose_Click()
Winsock.Close
End SubPrivate Sub Form_Load()
StatusBar.SimpleText = "准备搜索"
End Sub
Private Sub Winsock_Connect()
MsgBox "连接成功!"
End Sub
Connected = True
MsgBox "成功"
Timer1.Enabled = True
End SubPrivate Sub Client_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)
Connected = False
MsgBox "失败"
Client.Close
End Sub
S.LISTEN
C中连接成功后触发CONNECT的事件。
或者判断WINSOCK的状态
现在client连server后报错Run-time 'error'40020 Invalid operation at current state
server端程序如下:
Private Sub Form_Load()
Winsock.LocalPort = 1001
Winsock.Listen
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Accept requestID
frmmessage.Show
End Sub我现在是在一台机器上做!所以连的是自己的机器!!
client端程序如下:
Private Sub cmdcon_Click()
Winsock.Connect "127.0.0.1", 100
StatusBar.SimpleText = "正在连接127.0.0.1" & ". . . . ."
End Sub
Private Sub cmdclose_Click()
Winsock.Close
End Sub
Private Sub Form_Load()
StatusBar.SimpleText = "准备搜索"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Winsock.State
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Winsock.State
End Sub