基于VB的网络通信软件的研究与实现(2)
本文作者(罗志敏,欧阳嵩),请您在阅读本文时尊重作者版权。
7)远程协助功能,通过该功能管理人员可以远程协助多台客户端计算机。
8)密码设置功能,通过该功能可以设置是否设置口令,并且更改口令。
9)连接设置功能,通过该功能可以设置连接客户机的最大量。
10)历史聊天记录功能,通过该功能管理人员可以查阅所有保存着的历史聊天记录。
11)历史登陆记录功能,通过该功能管理人员可以查阅所有保存着的历史登陆记录。
12)系统日志功能,通过该功能管理人员可以查看系统运行以来的所有问题记录。
服务器端的关键代码如下:
Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim sdata As String
Dim ssdata As String
tcpServer(Index).GetData sdata
If Left(sdata, 10) = "
MsgBox "客户端已有连接!"
DoEvents
Exit Sub
ElseIf Left(sdata, 10) = "
Dim screenport As String
screenport = Right(sdata, Len(sdata) - 11)
Shell "screens.exe " tcpServer(Index).RemoteHostIP "-" Val(screenport) "-" tcpS_user_names(Index) "-" "0", vbNormalFocus
DoEvents
Exit Sub
End If
If Left(sdata, 11) = "
Call ShowFileList(App.Path "\file_data")
ssdata = filesendlist
tcpServer(Index).SendData ssdata
DoEvents
Exit Sub
End If
If Left(sdata, 11) = "
Dim dports As Long
Dim dnames As String
Dim dsizes As Double
Dim dips As String
dports = Right(sdata, Len(sdata) - InStrRev(sdata, "々"))
dnames = tcpS_user_names(Index)
dsizes = 0
dips = tcpServer(Index).RemoteHostIP
Call filesend(dports, dnames, dsizes, dips)
Exit Sub
End If
If Left(sdata, 9) = "
Dim upports As Long
Dim upnames As String
Dim upsizes As Double
Dim upips As String
upports = Right(sdata, Len(sdata) - InStrRev(sdata, "#"))
upnames = App.Path "\file_data\" Left(Right(sdata, Len(sdata) - 10), InStr(Right(sdata, Len(sdata) - 10), "#") - 1)
upsizes = Mid(Left(sdata, InStrRev(sdata, "#") - 1), InStrRev(Left(sdata, InStrRev(sdata, "#") - 1), "#") 1)
upips = tcpServer(Index).RemoteHostIP
Call filesend(upports, upnames, upsizes, upips)
Exit Sub
End If
……
End Sub
3 运行界面
图1 客户端运行界面 图2 服务器端运行界面
4 小结
随着计算机网络的快速发展,网络速度越来越快,网络通信软件的应用也越来越广泛,特别是远程控制技术的应用,对计算机局域网的管理和运行提供了技术支持,本文应用网络通信基本原理和Socket编程技术实现了基于VB的网络通信软件。该软件实现了对局域网的管理,满足计算机局域网用户的各种需求,同时更有效地监控局域网的工作状况。
参考文献:
[1] Barrow John.Introducing Delphi Programming.Oxford Univ,2005.
[2] Turley Paul.Beginning Transact-SQL With SQL Server 2000.Bokkazine,2005.
[3] Michael Wood.The Road to Delphi.Picador,2004.
[4] Pacheco Xavier.Borland Delphi 6 Developer's Guide.Sybex,2001.
[5] 求是科技. Visual Basic 6.0 信息管理系统开发实例导航[M].北京:人民邮局出版社,2005.
注:本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文