VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2157|回复: 3

[求助] VB的TCP通信模拟,请热心人帮忙

[复制链接]
发表于 2016-1-21 20:09:16 | 显示全部楼层 |阅读模式
本帖最后由 说好只亲脸 于 2016-1-21 20:10 编辑



我用工具监测TCP的通信,发现本机IP 10.4.5.111 向一个机器IP10.4.5.77发送数据

数据内容为
K
"22%"1*1H1R
1T



机器的端口 是9100,应该是固定的,本机的端口是随机打开一个不占用的

我现在怎么用VB 模拟这个发送?
就是把上面的数据内容发送给机器IP 10.4.5.77
以前没有接触过TCP通信 ,请高手帮忙下

如果能模拟发送,又用什么办法可以监测下机器有没有什么数据返回

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
 楼主| 发表于 2016-1-26 01:41:31 | 显示全部楼层
有没有热心人在啊,解决下,谢谢
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-1-26 01:51:24 | 显示全部楼层
Private Sub Command1_Click()
tcpClient.Connect
tcpClient.SendData "K"
tcpClient.SendData """22%""1*1H1R"
tcpClient.SendData "1T"
End Sub

Private Sub Form_Load()
    tcpClient.RemoteHost = "10.4.5.77"
    tcpClient.RemotePort = 9100
End Sub

如上无效,请解答
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-1-26 01:53:58 | 显示全部楼层
tcpClient.SendData "K"
tcpClient.SendData Chr(0)
tcpClient.SendData """22%""1*1H1R"
tcpClient.SendData Chr(0)
tcpClient.SendData "1T"

如上解决了,谢谢进来观看的朋友
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 11:42

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表