[转载]用VB编写一个聊天程序!
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Winsockserver.SendData Text4.Text + ":" + textsend.Text
textget.Text = textget.Text + vbCrLf + Text4.Text + ":" + textsend.Text + " " + Str(Time)
textsend.Text = ""
End Sub
Private Sub Form_Load()
Command2.Visible = False
textsend.Visible = False
Text4.Visible = False
textget.Visible = False
Label1.Visible = False
Winsockserver.LocalPort = 1001
Winsockserver.Listen
End Sub
Private Sub textsend_Change()
'Winsockserver.SendData textsend.text
End Sub
Private Sub textsend_KeyPress(KeyAscii As Integer)
'If KeyAscii = 13 Then
'Winsockserver.SendData textsend.text
'textsend.text = ""
If KeyAscii = 13 Then
Winsockserver.SendData textsend.Text
' Text1.text = Text1.text + vbCrLf + Text4.text + ": " + Text2.text + " " + Str(Time)
textsend.Text = ""
End If
End Sub
Private Sub Timer1_Timer()
If Text4.Text = "" Then Text4.Text = "no name"
End Sub
Private Sub Winsockserver_Close()
Winsockserver.Close
End
End Sub
Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)
Command2.Visible = True
textsend.Visible = True
textget.Visible = True
Text4.Visible = True
Label1.Visible = True
If Winsockserver.State <> sckClosed Then Winsockserver.Close
Winsockserver.Accept requestID
End Sub
Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String
Winsockserver.GetData tmpstr
'textget.text = textget + tmpstr + textsend
textget.Text = textget.Text + vbCrLf + tmpstr + " " + Str(Time)
End Sub
'(1)Command1:退出按钮;
'(2)textsend:发送数据文本框;
'(3)Winsockserver: 服务器Winsock;
'(4)textget :接收数据文本框。
一个client端
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
On Error Resume Next
Winsockclient.RemoteHost = Text1.Text
Winsockclient.Connect
End Sub
Private Sub Command3_Click()
Winsockclient.SendData Text4.Text + ":" + textsend.Text
textget.Text = textget.Text + vbCrLf + Text4.Text + ":" + textsend.Text + " " + Str(Time)
textsend.Text = ""
End Sub
Private Sub Form_Load()
Command3.Visible = False
textsend.Visible = False
Text4.Visible = False
textget.Visible = False
Label2.Visible = False
Label3.Visible = False
Command2.Enabled = True
Winsockclient.RemoteHost = "192.168.1.211"
Winsockclient.RemotePort = 1001
Winsockclient.RemoteHost = "sccdsz"
End Sub
Private Sub Text1_Change()
Command2.Enabled = True
'Winsockclient.RemoteHost = Text1.Text
End Sub
Private Sub textsend_Change()
'Winsockclient.SendData textsend.Text
End Sub
Private Sub textsend_KeyPress(KeyAscii As Integer)
'If KeyAscii = 13 Then
'Winsockclient.SendData textsend.Text
'textsend.Text = ""
If KeyAscii = 13 Then
Winsockclient.SendData Text4.Text + ":" + textsend.Text
textsend.Text = ""
'End If
End If
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Winsockclient.Connect
Winsockclient.RemoteHost = Text1.Text
End Sub
Private Sub Winsockclient_Close()
Winsockclient.Close
End
End Sub
Private Sub winsockclient_Connect()
textsend.Visible = True
textget.Visible = True
Label2.Visible = True
Label3.Visible = True
Text4.Visible = True
Command2.Enabled = True
Command2.Visible = True
Command3.Visible = True
End Sub
Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String
Winsockclient.GetData tmpstr
textget.Text = textget.Text + vbCrLf + tmpstr + " " + Str(Time)
End Sub
'(1)Command1:退出按钮;
'(2)Command2:连接按钮;
'(3)Winsockclient:客户Winsock;
'(4)Text1:主机名文本框;
'(5)Textsend:发送数据文本框;
'(6)Textget:接收数据文本框; 客户机程序的界面如图所示。
[转载]用VB编写一个聊天程序!相关推荐
- 用java编写一个聊天程序_基于JAVA实现的一个简单的网络聊天程序
一.Java Socket的概述 1.Socket套接字方便了开发网络应用程序.TCP面向连接的可靠传输协议.具有数据确认和数据重传机制.保证了发送数据一定能到达通信的对方.UPD协议无连接,不可靠的 ...
- java网络编程实现一个聊天程序
网络编程 l网络模型 OSI参考模型 TCP/IP参考模型 l网络通讯要素 IP地址 端口号 传输协议 网络参考模型 网络通讯要素 lIP地址:InetAddress 网络中设备的标识 不易记忆,可用 ...
- Java_常瑞鹏 java_网络编程实现一个 聊天程序
网络编程 l网络模型 OSI参考模型 TCP/IP参考模型 l网络通讯要素 IP地址 端口号 传输协议 网络参考模型 网络通讯要素 lIP地址:InetAddress 网络中设备的标识 不易记忆,可用 ...
- vb计算机清除菜单代码,用VB编写简单的程序来清空文档菜单 (转)
用VB编写简单的程序来清空文档菜单 (转)[@more@]文档菜单放的是我们最近使用的的快捷方式,它所对应的目录在 95(或)目录下的Recent目录.当我们不在需要这些快捷方式时,我们可以清空文档菜 ...
- 练习1-2:编写一个 JAVA 程序,实现输出考试成绩的前三名。
1. 考试成绩已保存在数组 scores中,数组元素依次为 89 , -23 , 64 , 91 , 119 , 52 , 73 2. 要求通过自定义方法来实现成绩排名并输出操作,将成绩数组作为参数传 ...
- 利用java编写网络聊天程序并加密信息
利用java编写网络聊天程序并加密信息 优化了代码后的地址:https://blog.csdn.net/qq_43483251/article/details/125470514?spm=1001.2 ...
- 编写程序C语言 用递归法求n,用C语言编写一个递归程序用来计算:1*2+2*3+3*4+.+(n-1)*n...
用C语言编写一个递归程序用来计算:1*2+2*3+3*4+.+(n-1)*n以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧 ...
- 习题 1.5 请参照本章例题,编写一个C程序,输出以下信息:*****Very good!*****
习题1.5 请参照本章例题,编写一个C程序,输出以下信息: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Very good! ...
- Linux环境下编写一个shell程序,此程序的功能:随机生成一个1-100的数(答案)让用户猜
题目:编写一个shell程序,此程序的功能:随机生成一个1-100的数(答案)让用户猜,如果用户猜的数大于答案,则提示大了,如果用户猜的数小于答案,则提示小了.当用户猜对时提示:猜对了. #! /bi ...
最新文章
- 覃超-算法训练营 学习方法分享[1] 如何精通一个领域
- 程序改变了命运,程序生活一天比一天好,对未来也充满了希望
- 程序员修神之路--做好分库分表其实很难之一
- Python学习7 集合Set
- mysql模糊查询与预编译_mysql预编译模糊查询恶心了我一天的时间,终于弄好了。但是还有一点不明白。如下:...
- python七段数码管绘制秒表_Python绘制七段数码管实例代码
- 日均5亿查询量的京东订单中心,为什么舍MySQL用ElasticSearch?
- mysql线程挣用问题_MySQL 并发线程的理解
- WIN7的便签使用快捷键
- ipa在线安装搭建_免电脑 iOS 12 一键越狱+手机端直接自动安装插件教程
- 《挑战不可能之加油中国》中越边境广西段扫雷队整装亮相
- 使用element插件中Descriptions遇到的坑
- 大数据智能营销笔记本弊端,怎么样?
- 中年网络工程师如何转型?
- js逆向 空气质量检测平台
- sql 语言-单值函数single row functions
- windows中无法删除文件,报无法删除****,找不到指定文件,请确定指定的路径及文件名是否正确的解决
- 敲七 STL队列(c++)
- UI自动化测试面试题总结
- 等一等!看一看!缓一缓!
热门文章
- pinpoint 监控mysql_pinpoint分布式监控的基本使用 | 吴老二
- 因为删除 c:\windows\Installer目录下的文件, SQL Server 2014 SP2 打补丁失败
- 在Vue中生成二维码扫描在手机上跳转页面
- c语言房屋销售管理信息系统
- elastic-job 是如何保证分布式环境下任务只有一个实例运行
- 还不知道东数西算是什么?最全面东数西算八大枢纽解读
- jsp的实质是什么?
- 银河麒麟桌面操作系统之磁盘分区与磁盘挂载
- 行业动态 - Zhaga-D4i 首批认证授予户外照明灯具产品
- QPaint旋转错位问题