vb局域网聊天

1、winsock 部件 2、客务端
(客务端): 监听 -->接受请求 -->发送数据 -->关闭连接
Private Sub Form_Load()
Winsock1.LocalPort = 5238这个是端口
Winsock1.Listen
Text1.Locked = True
Text2.Locked = True
Text2.Text = "等待客户登陆!"
End SubPrivate Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End SubPrivate Sub Text1_Change()
Winsock1.SendData Text1.Text
End SubPrivate Sub Winsock1_Close()
Winsock1.Close
Text2.Text = "等待客户登陆!"
Winsock1.LocalPort = 5238
Winsock1.Listen
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Text2.Text = "客户已登陆!"
Text1.Locked = False
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str, vbString
Text2.Text = str
End Sub
3、客户端
(户务端): 监听 -->接受请求 -->发送数据 -->关闭连接
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = Text3.Text这是IP。
Winsock1.RemotePort = 5238 这是端口。。
Text2.Text = "链接户务器出错,请重新配置!"
On Error GoTo herr
Winsock1.Connect
Exit Sub
herr:
Winsock1.Close
Text2.Text = "链接户务器出错,请重新配置!"
Exit Sub
End SubPrivate Sub Form_Load()
Text1.Locked = True
Text2.Locked = True
End SubPrivate Sub Text1_Change()
Winsock1.SendData Text1.Text
End SubPrivate Sub Winsock1_Close()
断开链接
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
发送用户信息
Text2.Text = "链接成功!"
Text1.Locked = False
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str, vbString
Text2.Text = str
End Sub
看,客户端的端口和户务端的端口是一样的,这样就达到了一个协议,
客户端的IP就是连接户务端的主机IP。。。这样就搭到了连接
jblavr101用户手册 优酷app电视版 穷查理历书 epub 龙珠异度对决2全人物 炫舞时代女装时尚好看 微信弹出推荐关注 struts2怎么返回json 北京唐韵山庄地址 三轴水泥搅拌桩机参数 超级会员送红钻 c 打印安卓日志 百度id交易 兰芝四合一洗面奶功效 客户端程序 eiffel tower音标 www.zcjiajiao.com 过去和未来英语怎么说 网上鲜花订购系统 摇号天津个人申请注册 战国时期儒家思想 春日大社签文翻译 cdrx7文字对齐快捷键 徐州金山桥非中介招聘 韩国清水打蜡 写开头的成语接龙 侦探小说 瑞典皇家理工官网 戴尔5737显卡 人间师格剧照 polyu estudent.

Copyright 爱说篇 Some Rights Reserved

如反馈或投诉等情况联系:une35498#163.com