大家好，我是小嘟嘟熊，坐在办公司工作的MM们，你们好，上班时太枯燥了，想和同事讲话又怕领导骂，今天给你们分享一个用VB写的可以在局域网聊天的代码。到时后怎么聊都没人知道了。
打开VB6.0新建一个标准的EXE文件，这个EXE就做聊天的服务器，在窗体上添加两个文本框，一个命令按钮。编写代码
服务器代码
服务器需要接收消息的代码
接收消息
然后生成服务端可执行的EXE文件
接着我们写一个客户端EXE，打开一个新的VB,创建一个标准的EXE，在窗体上添加3个文本框，两个按钮，说明一下，文本框1是存放服务器IP，文本框2显示聊天记录，文本框3是准备发出的消息。按钮1是连接服务器，按钮2是发送消息
编写代码
客户端代码
客户端接收消息代码
接收消息
同样生成可执行的EXE文件，发给同事，在本机上打开服务器EXE程序，在让同事打开客户端EXE文件，然后把本机IP给同事连接，这样就可以聊天了
测试1
回复消息
测试2
代码不多，也简单。大家在写的时后前提是在系统文件夹里有“MSWINSCK.OCX”文件哦，喜欢的朋友可以点赞加关注，头条号：小嘟嘟熊
最新评论