根据楼主的要求,我试验了一下,好象可以
做法如下:
1、电脑连上路由器(内网即可不用上网,没有的也可试下,不过不知行不行)。
2、把自己电脑IP设为122.224.50.154 (如果你运行软件不用1234这个端口的话就可以,在你说来本机用的是4321端口)。
3、VB中加入Winsock1,设为UDP方式,如果是TCP的话要连接(这个我不会)。
代码如下:
Private Sub Form_Load()
Winsock1.RemotePort = 4321 '客户端端口
Winsock1.LocalPort =1234 '本软件端口
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim stRec As String
'接收对方数据
Winsock1.GetData stRec, vbString '是不是要vbString你可试下
if stRec="comeonbaby" then
Winsock1.RemoteHost = Winsock1.RemoteHostIP '得到发送方IP地址,可直接=“122.224.50.154 ”你自己本机
Winsock1.SendData "Iknowbaby "
endif
End Sub