192.168.0.6的机子上要运行一个程序
Private Sub Form_Load()
winsock.LocalPort = 2985
winsock.Listen
End Sub
下面是主要的
Private Sub winsock_ConnectionRequest _
(ByVal requestID As Long)。
If winsock.State <> sckClosed Then _
winsock.Close
'接受具有 requestID 参数的
'连接。
winsock.Accept requestID
End Sub
Private Sub winsock_DataArrival _
(ByVal bytesTotal As Long)
'为进入的数据声明一个变量。
'调用 GetData 方法,并将数据赋予名为 txtOutput
'的 TextBox 的 Text 属性。
Dim strData As String
winsock.GetData strData
text1.Text = strData
End Sub这样text1.text就可以得到客户端发来的信息了
Private Sub Form_Load()
winsock.LocalPort = 2985
winsock.Listen
End Sub
下面是主要的
Private Sub winsock_ConnectionRequest _
(ByVal requestID As Long)。
If winsock.State <> sckClosed Then _
winsock.Close
'接受具有 requestID 参数的
'连接。
winsock.Accept requestID
End Sub
Private Sub winsock_DataArrival _
(ByVal bytesTotal As Long)
'为进入的数据声明一个变量。
'调用 GetData 方法,并将数据赋予名为 txtOutput
'的 TextBox 的 Text 属性。
Dim strData As String
winsock.GetData strData
text1.Text = strData
End Sub这样text1.text就可以得到客户端发来的信息了
也就是: xiaoxinghappy(小星)
提出来的,
用udp协议应该没问题吧
-------------------------------------------------------------------
回复人: zqfleaf(啊风) ( ) 信誉:100 2002-10-08 13:10:00 得分:0
第一种方法,把子网掩码都改成 0.0.0.0试试
不过局域网内最好根据你的机子数量,确定组网类型。
然后分配IP给他们,该比较好。
-------------------------------------------------------------------
子网掩码是不能改0.0.0.0 的,这个我试过。