VB简单的网络通信的问题（求源代码）急！急！急！急！急！急！！

[yjqqzw]

A机上有一个字符串变量str，要将它发送到B机（IP地址192.168.0.1 端口号1234），然后B机将收到的信息（即该字符串）发送到C机（IP地址201.0.0.
1 端口号 2002）然后C处理后将处理信息（假定也是一字符串str2）发送给B，B再发送给A，求该通信的VB代码！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！

[fuzq]

都差不多的啊。
到
http://www.dengxue.com/ 找找看

[zqfleaf]

简单的代理。
用两个winsock,在各自的dataarrivel中将收到的内容往另一个发就行了。

[lsftest]

'很容易啊：

'A机加一winsock控件，一按钮：
Private Sub Form_Load()
Wsk1.Protocol = sckUDPProtocol
Wsk1.RemoteHost = "192.168.0.1"
Wsk1.RemotePort = 1234
'A机使用端口2004
Wsk1.Bind 2004
End Sub
Private Sub Command1_Click()
str＝"123456789"
Wsk1.SendData str
End Sub
'=================================
'B机加两个winsock控件：
Private Sub Form_Load()
'wsk1与A机通信
Wsk1.Protocol = sckUDPProtocol
Wsk1.RemoteHost = "A机的ip或机器名"
Wsk1.RemotePort = 2004
Wsk1.Bind 1234
'wsk2与c机通信
Wsk2.Protocol = sckUDPProtocol
Wsk2.RemoteHost = "201.0.0.1"
Wsk2.RemotePort = 2002
'wsk2使用端口2005与c机通信
Wsk2.Bind 2005
End Sub
Private Sub Wsk1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim getd1 As String
Wsk1.GetData getd1
wsk2.senddata getd1
'如果是收到特定的字符串才发送就将上一句改成下面的
'if getd1="123456789" then wsk2.senddata getd1
end sub
Private Sub Wsk2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim getd2 As String
Wsk1.GetData getd2
wsk2.senddata getd2
'如果是收到特定的字符串才发送就将上一句改成下面的
'if getd2="987654321" then wsk1.senddata getd2
end sub
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'c机加一个winsock控件：
Private Sub Form_Load()
Wsk1.Protocol = sckUDPProtocol
Wsk1.RemoteHost = "192.168.0.1"
Wsk1.RemotePort = 2005
Wsk1.Bind 2002
End Sub
Private Sub Wsk1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim getd1 As String
Wsk1.GetData getd1
'对收到的字符串进行处理，现在只是举例，就发回987654321吧
wsk1.senddata "987654321"
'如果是收到特定的字符串才发送就将上一句改成下面的
'if getd1="123456789" then wsk1.senddata "987654321"
end sub
'草草写就，没有环境调试，自己改改吧。