接受数据的代码如下:如果输入的IP地址为本机地址,程序可以运行,如果写成局域网内其他已经共享的主机IP则无法找到(在本机可以ping出共享主机的IP),请问该如何操作?(我现在是把发送端的代码写成同时对多个IP地址传输数据,这样虽然可行但不适合铺开使用)谢谢! Public Sub WaitData() s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) '使用TCP协议 Control.CheckForIllegalCrossThreadCalls = False Dim localEndPoint As New IPEndPoint(IPAddress.Parse("10.243.37.124"), 1024) '指定IP和Port s.Bind(localEndPoint) '绑定到该Socket s.Listen(100) '侦听,考试#大提示最多接受100个连接 While (True) Dim bytes(1024) As Byte '用来存储接收到的字节 Dim ss As Socket = s.Accept() '若接收到,则创建一个新的Socket与之连接 ss.Receive(bytes) '接收数据,若用ss.send(Byte()),则发送数据 ListBoxflag.Items.Insert(0, Encoding.Unicode.GetString(bytes)) 问题主要在公司的电脑,每台电脑都有自己的NetID,防火墙是无法关闭的。
最新回答
北港不夏
2024-09-18 02:32:43
用VB5 Winsock控件创建TCP/IP通讯程序 随着Windows 95中文版和Windows NT Server 4.0中文版的流行, Microsoft公司推出了相应平台上的开发软件: Visual Basic 5.0 中文企业 版。它为Windows环境下的网络开发提供了强大的工具,Winsock控件就是其中之一。 Winsock控件建立在TCP、UDP协议的基础上,完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户,使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍,以便更好地理解程序源代码。