服务器端AfterOpenPorject
vars("listener").stop
vars("listener") = new Net.Sockets.TcpListener(new Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 10086))
vars("listener").Start()
客户端连接
Dim tcp As New System.Net.Sockets.TcpClient
Dim ip As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("127.0.0.1"), 10086)
try
tcp.connect(ip)
msgbox("成功")
catch ex As exception
msgbox(ex.message)
End try
[此贴子已经被作者于2015/12/7 19:38:49编辑过]
加好友 
发短信
Post By：2015/12/7 19:39:00 [显示全部帖子]
