我下面的有什么错误!
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
server
------------------------------------------------------------------------------------------
Private Sub Form_Load()
wsktcpserver.RemotePort = 1061
wsktcpserver.Listen
frmtcpclient.Show
End SubPrivate Sub Form_Unload(Cancel As Integer)
wsktcpserver.Close
End SubPrivate Sub txtsenddata_Change()
wsktcpserver.SendData txtsenddata.Text
End Sub
Private Sub wsktcpserver_ConnectionRequest(ByVal requestID As Long)
If wsktcpserver.State <> sckClosed Then wsktcpserver.Close
wsktcpserver.Accept requestID
End If
End SubPrivate Sub wsktcpserver_DataArrival(ByVal bytesTotal As Long)
Dim sdata As String
wsktcpserver.GetData sdata, vbString
txtgetdata.Text = sdata
End Sub-----------------------------------------------------------------------------------------
client
------------------------------------------------------------------------------------------
Private Sub cmdconnect_Click()
wsktcpclient.Connect
End SubPrivate Sub Form_Load()
wsktcpclient.RemoteHost = "10.49.5.221"
wsktcpclient.RemotePort = 1061
End SubPrivate Sub txtgetdata1_Change()
wsktcpclient.SendData txtsendtada1.Text
End SubPrivate Sub wsktcpclient_DataArrival(ByVal bytesTotal As Long)
Dim stada1 As String
wsktcpclient.GetData stada1, vbString
txtgetdata1.Text = GetData
End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
server
------------------------------------------------------------------------------------------
Private Sub Form_Load()
wsktcpserver.RemotePort = 1061
wsktcpserver.Listen
frmtcpclient.Show
End SubPrivate Sub Form_Unload(Cancel As Integer)
wsktcpserver.Close
End SubPrivate Sub txtsenddata_Change()
wsktcpserver.SendData txtsenddata.Text
End Sub
Private Sub wsktcpserver_ConnectionRequest(ByVal requestID As Long)
If wsktcpserver.State <> sckClosed Then wsktcpserver.Close
wsktcpserver.Accept requestID
End If
End SubPrivate Sub wsktcpserver_DataArrival(ByVal bytesTotal As Long)
Dim sdata As String
wsktcpserver.GetData sdata, vbString
txtgetdata.Text = sdata
End Sub-----------------------------------------------------------------------------------------
client
------------------------------------------------------------------------------------------
Private Sub cmdconnect_Click()
wsktcpclient.Connect
End SubPrivate Sub Form_Load()
wsktcpclient.RemoteHost = "10.49.5.221"
wsktcpclient.RemotePort = 1061
End SubPrivate Sub txtgetdata1_Change()
wsktcpclient.SendData txtsendtada1.Text
End SubPrivate Sub wsktcpclient_DataArrival(ByVal bytesTotal As Long)
Dim stada1 As String
wsktcpclient.GetData stada1, vbString
txtgetdata1.Text = GetData
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货