VB 使用winsock 给固定IP 固定端口 发送信息:
VB使用winsock给固定IP192.168.5.251固定端口2222发送信息:随便什么信息都行对方电脑上监听了2222这个端口了我该怎么写代码发送信息通知让他能接受...
VB 使用winsock 给固定IP 192.168.5.251 固定端口 2222 发送信息:随便什么信息都行
对方电脑上监听了2222 这个端口了 我该怎么写代码发送信息通知让他能接受的到? 展开
对方电脑上监听了2222 这个端口了 我该怎么写代码发送信息通知让他能接受的到? 展开
2个回答
展开全部
Private Sub InitWinsockSend()
With Winsock1
.Protocol = sckUDPProtocol
.RemoteHost = "192.168.5.251" '对方IP
.LocalPort = 2222
.RemotePort = 2221
.Bind 2222
End With
End Sub
Private Sub InitWinsockGet()
With Winsock2
.Protocol = sckUDPProtocol
.RemoteHost = "192.168.5.251" '对方IP
.LocalPort = 2221
.RemotePort = 2222
.Bind 2221
End With
End Sub
Private Sub Command2_Click() '发送
Winsock1.SendData "你好"
End Sub
Private Sub Form_Load()
Call InitWinsockSend
Call InitWinsockGet
End Sub
With Winsock1
.Protocol = sckUDPProtocol
.RemoteHost = "192.168.5.251" '对方IP
.LocalPort = 2222
.RemotePort = 2221
.Bind 2222
End With
End Sub
Private Sub InitWinsockGet()
With Winsock2
.Protocol = sckUDPProtocol
.RemoteHost = "192.168.5.251" '对方IP
.LocalPort = 2221
.RemotePort = 2222
.Bind 2221
End With
End Sub
Private Sub Command2_Click() '发送
Winsock1.SendData "你好"
End Sub
Private Sub Form_Load()
Call InitWinsockSend
Call InitWinsockGet
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
Storm代理
2023-07-25 广告
2023-07-25 广告
StormProxies是一家国内优质海外HTTP代理商,拥有一个庞大的IP资源池,覆盖200多个地区,IP数量大且匿名度高。其优点还包括超高并发、稳定高效、技术服务等特点,同时提供HTTP、HTTPS以及SOCKS5协议支持。此外,Sto...
点击进入详情页
本回答由Storm代理提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询