|
End Sub 主要作用：通过shell打开文件传输客户机程序。 内容来自www.paper51.com Private Sub fileser_Click() http://www.paper51.com Dim j As Integer copyright paper51.com j = Shell(App.Path &"\filecs\server\server.exe", vbNormalFocus) http://www.paper51.com End Sub paper51.com
主要作用：通过shell打开文件传输服务器端程序。 paper51.com 4．2点对点聊天模块的实现 内容来自论文无忧网 www.paper51.com 4．2．1服务器端子模块的实现 http://www.paper51.com 1、流程图： 内容来自论文无忧网 www.paper51.com
http://www.paper51.com 2、运行界面： 内容来自www.paper51.com
copyright paper51.com 3、主要代码如下： http://www.paper51.com
PrivateSub Command2_Click() 内容来自www.paper51.com UnloadMe 内容来自www.paper51.com EndSub 内容来自论文无忧网 www.paper51.com
主要作用：下载窗体。 copyright paper51.com PrivateSub Form_Load() copyright paper51.com txtreceive.Text = "" 内容来自www.paper51.com txtsend.Text = "" copyright paper51.com Winsockserver.LocalPort = 10001 内容来自论文无忧网 www.paper51.com txtserverip.Text = Winsockserver.LocalIP http://www.paper51.com Winsockserver.Listen 内容来自论文无忧网 www.paper51.com EndSub paper51.com
主要作用：设置Winsockserver的端口。并使Winsockserver处于侦听状态。 paper51.com PrivateSub getinfo_Click() paper51.com CommonDialog1.ShowColor 内容来自论文无忧网 www.paper51.com txtreceive.ForeColor = CommonDialog1.Color http://www.paper51.com EndSub http://www.paper51.com
主要作用：修改接收到的信息的颜色。 paper51.com PrivateSub sendinfo_Click() http://www.paper51.com
CommonDialog1.ShowColor 内容来自www.paper51.com txtsend.ForeColor = CommonDialog1.Color 内容来自www.paper51.com EndSub http://www.paper51.com 主要作用：修改发送的信息的颜色。 内容来自www.paper51.com PrivateSub txtsend_Change() 内容来自www.paper51.com IfWinsockserver.RemotePort Then http://www.paper51.com Winsockserver.SendDatatxtsend.Text paper51.com
Else http://www.paper51.com MsgBox"还没有客户机远程连接！" paper51.com EndIf paper51.com EndSub 内容来自论文无忧网 www.paper51.com 主要作用：检查有没有客户连接，如果没有则没有好开始发送信息。 http://www.paper51.com PrivateSub Winsockserver_ConnectionRequest(ByVal requestID As Long) http://www.paper51.com Winsockserver.Close paper51.com Winsockserver.Accept requestID 内容来自论文无忧网 www.paper51.com
EndSub 内容来自论文无忧网 www.paper51.com 主要作用：接收连接请求。 copyright paper51.com
PrivateSub Winsockserver_DataArrival(ByValbytesTotal As Long) http://www.paper51.com Dimmystr As String copyright paper51.com Winsockserver.GetData mystr http://www.paper51.com txtreceive.Text = mystr 内容来自论文无忧网 www.paper51.com EndSub copyright paper51.com 主要作用：在文本框中显示接收到的信息。 http://www.paper51.com 4．2．2客户端子模块的实现 内容来自www.paper51.com 1、流程图： copyright paper51.com
内容来自论文无忧网 www.paper51.com
2、运行界面 http://www.paper51.com
copyright paper51.com
当连接成功后： http://www.paper51.com http://www.paper51.com 主要代码： copyright paper51.com
PrivateSub Command1_Click() 内容来自论文无忧网 www.paper51.com Winsockc.RemoteHost = txtsip.Text 内容来自论文无忧网 www.paper51.com Winsockc.Connect http://www.paper51.com txtsend.SetFocus copyright paper51.com EndSub 内容来自www.paper51.com 主要作用：通过Winsockc.Connect进行连接。 http://www.paper51.com PrivateSub Command2_Click() paper51.com
UnloadMe 内容来自论文无忧网 www.paper51.com EndSub 内容来自论文无忧网 www.paper51.com PrivateSub Form_Load() http://www.paper51.com txtreceive.Text = "" 内容来自www.paper51.com txtsend.Text = "" http://www.paper51.com Winsockc.RemotePort = 10001 http://www.paper51.com
Txtcip.Text = Winsockc.LocalIP http://www.paper51.com EndSub copyright paper51.com 主要作用：通过Winsockc.RemotePort = 10001设置远程端口号。 copyright paper51.com
PrivateSub get_Click() 内容来自www.paper51.com CommonDialog1.ShowColor copyright paper51.com txtreceive.ForeColor = CommonDialog1.Color 内容来自www.paper51.com EndSub copyright paper51.com PrivateSub send_Click() http://www.paper51.com CommonDialog1.ShowColor copyright paper51.com txtsend.ForeColor = CommonDialog1.Color paper51.com EndSub copyright paper51.com PrivateSub txtsend_Change() http://www.paper51.com IfWinsockc.RemoteHost <> "" Then paper51.com
Winsockc.SendData txtsend.Text 内容来自论文无忧网 www.paper51.com
Else paper51.com
|