基于VB的网络通信软件的研究与实现
本文作者(罗志敏,欧阳嵩),请您在阅读本文时尊重作者版权。
摘要:该文所研究的软件是采用客户机/服务器模式,该软件实现了即时通讯,远程协助,文件传输与共享等功能。client的设计和server的设计主要是通过Winsock控件的编程来实现的。
关键词:通信软件;客户机/服务器;WinsockResearch and Realization of Network Communications Software based on VB
LUO Zhi-min1, OUYANG Song2
(1.Jiangxi Chemical Industry School, Nanchang 330012, China; 2. Jiangxi Modern College, Nanchang 330012, China)
Abstract: The software this paper studys adopts client/server mode, including instant communication, long-distance help, the document transfers and share etc. The design of client and server is mainly implemented by winsock program.
Key words: communications software; client/server; winsock
21世纪是信息飞速发展的世纪,随着计算机的普及信息全球化日趋明显,特别是Internet的飞速发展,使信息交流更加快捷方便,足不出户便能完成诸多事务。伴随着Internet的飞速发展,世界各公司也分分采用计算机来实现内部交流与外部交流,内部交流必然需要迅速及时的通讯,本文所研究的软件正是为了这一需求而开发的。基于VB的网络通信软件采用客户机/服务器模式,集即时通讯,远程协助,文件传输与共享等功能于一身的基于TCP/IP协议的软件。该软件操作简单,使用方便,能在windows操作系统中稳定运行,界面美观且人性化。本软件的即时通讯功能,能使公司内部人员可以欢快及时的交流信息,管理人员也可以及时的广播信息。通过本软件的远程协助功能,可以通过一台计算机控制另一台或多台计算机,并且像使用本机一样的方便,这样管理人员便能方便快捷的远程维护,远程管理网络中的多台计算机了。本软件的文件传输功能,使内部人员可以实现点对点的文件传输。使用本软件的文件共享功能,可以实现与FTP机制一样的功能,并且不需要任何命令。
1 客户端功能
客户端主要有以下几大功能。
1) 登陆服务器功能。该功能采用读取注册表机制而有了记忆功能,避免每次登陆服务器都手动输入。
2) 即时通讯功能。通过该功能客户端之间可以实现点对点的保密聊天又可以实现群体聊天,同时还能接收服务器的保密信息与广播信息。
3) 文件传输功能。通过该功能客户端之间可以实现点对点的文件传输,整个传输过程中服务器只在开始阶段协调两端客户端的文件传输初始化工作,其后的真正文件传输完全摆脱服务器,这样即减轻了服务器的工作量,又使文件传输的速度更快。
4) 文件共享功能。通过该功能客户端和服务器之间可以实现文件的上传与下载功能。
5) 远程协助功能。通过该功能服务器管理人员可以远程控制客户端来协助完成一些事务。
客户端读取注册表的目的在于储存登陆服务器的相关信息而简化登陆。
读注册表的代码如下:
Public Sub read(whos As String)
Dim hKey As Long, SubKey As String, Exe As String, typeData As Long, lenData As Long
Dim passA As String
SubKey = "SOFTWARE\SS"
RegOpenKey HKEY_LOCAL_MACHINE, SubKey, hKey
Dim keybool As Long
If whos = "IPS" Then
keybool = RegQueryValueEx(hKey, "SSIP", 0, typeData, ByVal vbNullString, lenData)
If (keybool <> 0) Then
Exit Sub
Else
passA = String(lenData, Chr(0))
RegQueryValueEx hKey, "SSIP", 0, typeData, ByVal passA, lenData
If typeData = REG_SZ Then
passA = Left(passA, InStr(passA, Chr(0)) - 1)
End If
RegCloseKey hKey
meIp = passA
End If
Else
keybool = RegQueryValueEx(hKey, "SSNAME", 0, typeData, _
ByVal vbNullString, lenData)
If (keybool <> 0) Then
Exit Sub
Else
passA = String(lenData, Chr(0))
RegQueryValueEx hKey, "SSNAME", 0, typeData, ByVal passA, lenData
If typeData = REG_SZ Then
passA = Left(passA, InStr(passA, Chr(0)) - 1)
End If
RegCloseKey hKey
meName = passA
End If
End If
End Sub
2 服务器端功能
服务器端的功能如下:
1)密码验证功能,server的登陆口令采用MD5算法加密,非常安全可靠。
2)快捷方式集群功能,通过该功能把一组相关软件的快捷方式有机组织在一起。
3)图片显示功能,通过该功能可以设置图片播放的路径并设置播放的时间间隔来动态显示图片。
4)定时关机功能,通过该功能可以定在几月几日几时几分几秒来关闭计算机。
5)聊天功能集
该功能包括:显示聊天记录、导出聊天记录、保存聊天记录、清空屏幕、退出时自动保存、发送等功能。
6)文件共享功能集
该功能包括:显示共享文件功能,增加共享文件功能,删除共享文件功能,查询共享文件功能等。