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就可以得到客户端发来的信息了

解决方案 »

  1.   

    lhxtx(再见理想)说的对,我就不重复了!
      

  2.   

    我的问题是不是同一网段的你怎么发?
    也就是: xiaoxinghappy(小星) 
    提出来的,
      

  3.   

    reomoteport是多少啊
    用udp协议应该没问题吧
      

  4.   

    引用:
    -------------------------------------------------------------------
     回复人: zqfleaf(啊风) (  ) 信誉:100  2002-10-08 13:10:00  得分:0  
     
     
      第一种方法,把子网掩码都改成 0.0.0.0试试
    不过局域网内最好根据你的机子数量,确定组网类型。
    然后分配IP给他们,该比较好。
    -------------------------------------------------------------------  
    子网掩码是不能改0.0.0.0 的,这个我试过。