服务代码:
Dim LJQPXX As String
Private Sub Form_Load()
WSK1.Listen
End Sub
Private Sub WSK1_ConnectionRequest(ByVal requestID As Long)
If WSK1.StatesckClosed Then WSK1.Close
WSK1.Accept requestID
End Sub
Private Sub WSK1_DataArrival(ByVal bytesTotal As Long)
WSK1.GetData LJQPXX
Debug.Print LJQPXX
If LJQPXX = "SQKZ" Then
If WSKZM.State0 Then
WSK1.SendData "FWQFM"
Else
WSK1.SendData "FWQJS"
End If
End If
WSK1.Close
WSK1.Listen
End Sub
客户端代码:
Dim LJQPXX As String
Private Sub Command1_Click()
If Command1.Caption = "申请连接" Then
If WSK1.State7 Then '判断WSK1状态
WSK1.Close
WSK1.Connect
End If
End If
If Command1.Caption = "申请控制" Then
WSK1.SendData "SQKZ"
End If
End Sub
Private Sub WSK1_Connect()
MsgBox "连接服务:" & WSK1.RemoteHostIP & "成功"
Command1.Caption = "申请控制"
End Sub
Private Sub WSK1_ConnectionRequest(ByVal requestID As Long)
If WSK1.StatesckClosed Then WSK1.Close
WSK1.Accept requestID
End Sub
Private Sub WSK1_DataArrival(ByVal bytesTotal As Long)
WSK1.GetData LJQPXX
Debug.Print LJQPXX
If LJQPXX = "FWQFM" Then
MsgBox "服务器繁忙,请稍连接"
End If
If LJQPXX = "FWQJS" Then
MsgBox "服务器已接受您的连接请求"
End If
End Sub
发送信息服务器可以收到.客户端收不到服务器会的信息
