[求助]请问怎样往指定IP端口发送文本？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问怎样往指定IP端口发送文本？

共有11630人关注过本帖树形打印复制链接主题：[求助]请问怎样往指定IP端口发送文本？

54292550

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：289 积分：4258 威望：0 精华：0 注册：2011/8/19 10:07:00

[求助]请问怎样往指定IP端口发送文本？ 发帖心情

Post By：2012/8/7 16:15:00 [只看该作者]

如果我想往 192.168.1.100 的 8000 端口发送 1234567890 文本信息代码怎样实现？

飞

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：732 积分：5491 威望：0 精华：14 注册：2011/8/28 12:49:00

Post By：2012/8/7 16:34:00 [只看该作者]

'我没有做服务器端,你自己测试一下
Dim Skt 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("192.168.1.100"), 8000)
Skt.Connect(localEndPoint)
Skt.Send(Encoding.Unicode.GetBytes("1234567890"))
Skt.Close()

lihe60

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/8/8 8:55:00 [只看该作者]

试验了，没有任何反应，也没有任错误何提示，应该是成功了，但也不知道是什么结果。求答案

[此贴子已经被作者于2012-8-8 8:55:37编辑过]

lihe60

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/8/8 8:58:00 [只看该作者]

就是说，如果知道是否发送成功，如何获取这个成功的结果？

飞

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：732 积分：5491 威望：0 精华：14 注册：2011/8/28 12:49:00

Post By：2012/8/8 9:11:00 [只看该作者]

你往那端口发,那边没有接收程序吗

54292550

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：289 积分：4258 威望：0 精华：0 注册：2011/8/19 10:07:00

Post By：2012/8/8 11:27:00 [只看该作者]

我用的TCP/UDP Socket调试工具进行接收数据，可每次都收到文本的第一位，后面没有。

比如发送“123456789” 收到的是“1”

发送“ABCDEFG”收到的是“A”

是哪里的问题呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sockettool.rar

54292550

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：289 积分：4258 威望：0 精华：0 注册：2011/8/19 10:07:00

Post By：2012/8/8 12:28:00 [只看该作者]

OK~~~~~~~测试成功哦。非常感谢飞的代码。谢谢哦。

Dim Skt 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("192.168.1.100"), 8000)
Skt.Connect(localEndPoint)
Skt.Send(Encoding.Default.GetBytes("1234567890"))
Skt.Close()

把系统编码改一下就能接收完整字段了。