局域网聊天

0 Reply , Posted in 程序代码 on 2016 08, 2016

'本例须要一个按扭,一个winsock控件(Microxoft Winsock Control 6.0 (SP6))
Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol     '使用udp协议
Winsock1.RemoteHost = 192.168.0.1      '设置远程IP
Winsock1.RemotePort = 8765             '设置远程端口
Winsock1.Bind 8765                     '绑定8765端口
End Sub

Private Sub Command1_Click()
Winsock1.SendData Text1.Text           '发送消息
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s                     '接收消息
Text1.Text = s                         '消息导入到文本框中
End Sub
'===============================自己===============================
Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol     '使用udp协议
Winsock1.RemoteHost = 192.168.0.2      '设置远程IP
Winsock1.RemotePort = 8765             '设置远程端口
Winsock1.Bind 8765                     '绑定8765端口
End Sub

Private Sub Command1_Click()
Winsock1.SendData Text1.Text           '发送消息
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s                     '接收消息
Text1.Text = s                         '消息导入到文本框中
End Sub
'===============================别人===============================

标签:     

相关推荐

vb读取access并且显示  (2017-5-11 9:18:27)

VB 获取CPU温度示例  (2017-5-8 10:35:11)

VB程序逆向反汇编常见的函数   (2017-5-8 10:32:0)

VB内嵌汇编的模块示例  (2017-5-8 10:24:4)

内存数据的读写(PC)   (2017-3-1 17:51:40)

用VB制作外挂   (2017-3-1 16:16:53)

发表评论:



◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

                       

  鄂公网安备 42112502000156号     鄂ICP备16019550号