问题.........!我想做一个通讯工具 实现两地通讯的
Private Sub Command1_Click()On Error GoTo errtext
Winsock1.SendData Trim(Text1) '向客户端发送信息
Exit Sub
errtext:
MsgBox Err.Description + "错误"
End Sub
Private Sub Form_Load()
With Winsock1
.RemoteHost = "169.254.176.238" '要连接到的计算机ip地址
.RemotePort = 5005 '要连接到的端口号
.LocalPort = 5100 '该winsock控制将要使用的本地端口号,便于其他端口与该winsock通讯
.Bind 5100 '将该winsock控制绑定到该本地端口
End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbString '将客户端发来的信息寸入变量VBstring.
Text2 = strdata
End Sub
这是服务器的代码.
------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo errtext
Winsock1.SendData Trim(Text1) '将text1中的数据发送到指定主机的指定端口
Exit Sub
errtext:
MsgBox Err.Description + "错误"
End Sub
Private Sub Form_Load()
With Winsock1
.RemoteHost = "169.254.176.238" '要连接到的服务器的IP地址
.RemotePort = 5001 '要连接的端口号
.LocalPort = 5000 '该winsock控制将使用的本地端口号，便于其他方与之通讯
.Bind 5000
End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbString '将服务器传回的数据放入vbstring
Text2 = strdata
End Sub
这是客户端的代码.
我运行了在客户端中输入东西然后点发送 程序提示错误 然后自动关闭客户端了 .
怎么回事阿？我郁闷
