- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求一个TCP Socket 端口监听示例。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80110)
-- 发布时间：2016/1/16 13:49:00
-- [求助]求一个TCP Socket 端口监听示例。
亲们，有没有关于TCP Socket 端口监听的狐表示例。给小弟分享一下。谢谢各位了。
监听9000端口，将收到的数据存在文本文件里面。
[此贴子已经被作者于2016/1/16 14:19:26编辑过]
-- 发布时间：2016/1/16 14:20:00
--
？求帮助。。。。
-- 发布时间：2016/1/16 15:49:00
--
一下午了，回一个消息呗。。。
-- 发布时间：2016/1/16 16:06:00
--
看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28230&skin=0
-- 发布时间：2016/1/16 16:33:00
--
while true能不能写在狐表里？
-- 发布时间：2016/1/16 17:15:00
--
do while true
loop
-- 发布时间：2016/1/16 17:54:00
--
Dim ip As String = Tables("IP")(0,0)
Dim duankou As String = Tables("IP")(0,1)
Dim Sserver As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Dim LocalEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Parse(ip), duankou)
Sserver.Bind(localEndPoint)
Sserver.Listen(100)
Dim newsocket As System.Net.Sockets.Socket = Sserver.Accept()
Dim bytes(1024) As Byte
Dim data As String = String.Empty
Dim bytesRec As Integer = newsocket.Receive(bytes)
newsocket.Close()
data = Encoding.default.GetString(bytes, 0, bytesRec)
Forms("窗口1").Controls("TextBox4").text = data
Dim duankou As String = Tables("IP")(0,1)
Dim Sserver As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Dim LocalEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Parse(ip), duankou)
Sserver.Bind(localEndPoint)
Sserver.Listen(100)
Dim newsocket As System.Net.Sockets.Socket = Sserver.Accept()
Dim bytes(1024) As Byte
Dim data As String = String.Empty
Dim bytesRec As Integer = newsocket.Receive(bytes)
newsocket.Close()
data = Encoding.default.GetString(bytes, 0, bytesRec)
Forms("窗口1").Controls("TextBox4").text = data
这个是监听一次的代码，我怎么实现多线程持续监听？用了While true之后老死机。newthread怎么用啊~？
-- 发布时间：2016/1/16 17:54:00
--
参考4楼的例子啊，本来就有源码啊。
-- 发布时间：2016/1/17 0:13:00
--
还没研究明白，我没装VS，看不了DLL的东西。谁能给提示个狐表里面直接用的代码？
-- 发布时间：2016/1/17 10:48:00
--
汗，不是叫你看dll里面的东西啊，有源码啊 server.vb 和 client.vb啊