⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 97.htm

📁 vb功能实例介绍。详细、很好的实例说明。
💻 HTM
字号:
🔍 
<p>用Visual Basic6.0编写客户服务器程序 </p>
<p></p>
<p>冯  勇</p>
<p></p>
<p>Visual Basic6.0提供了Winsock控件，支持网络上两台计算机之间的通信。利用它，编程人员可以毫不费力地编写出TCP/IP客户/服务器程序。以下是用Visual Basic6.0的Winsock控件编写的网络聊天程序的实例。 </p>
<p></p>
<p>一．客户程序的实现方法： </p>
<p></p>
<p>1．客户程序设置RemoteHost（远程主机）属性，指定运行服务器的主机名。 </p>
<p></p>
<p>2．通过设置RemotePort属性，指定服务器程序的侦听端口。 </p>
<p></p>
<p>3．客户程序使用Connect方法向服务器发送连接请求。 </p>
<p></p>
<p>4．服务器若空闲，则接受客户的请求，客户程序发生Connect事件，然后可以用SendData方法发送数据。 </p>
<p></p>
<p>5．客户程序收到数据时，产生DataArrival事件，在该事件中可以用GetData方法接收数据。 </p>
<p></p>
<p>6．如果客户收到Close事件，用Close方法关闭连接。 </p>
<p></p>
<p>以下是客户程序的编写过程： </p>
<p></p>
<p>1．   新建一个工程文件，在窗体中加上一个文本框Name为txtRecive，设置 MultiLine属性为True。设置ScrollBars属性为3-Both。 </p>
<p></p>
<p>2．   加一标签，Caption为“您的大名：”，后面加一文本框Name为ClientName。 </p>
<p></p>
<p>3．   加一标签，Caption为“您的性别：”，后面接一组合框Name为“xingbie“。组合框中加两个OptionButton，分别为Option1,Caption为“男”，Value为True,Option2,Caption为“女”。 </p>
<p></p>
<p>4．   加文本框txtSent,设置MultiLine属性为True。 </p>
<p></p>
<p>5．   加命令按钮cmdSent,Caption为“发送”， 再加一命令按钮cmdConnect，Caption为“连接”。 </p>
<p></p>
<p>6．   加Winsock控件，Name为sckClient。 </p>
<p></p>
<p>下面是客户程序的源代码： </p>
<p></p>
<p>Dim messIndex As Integer </p>
<p></p>
<p>Dim firsttime As Boolean </p>
<p></p>
<p>Dim recNumber As Integer </p>
<p></p>
<p>Dim strData As String </p>
<p></p>
<p>  Private Sub cmdConnect_Click() </p>
<p></p>
<p>    On Error GoTo MyError </p>
<p></p>
<p>    sckClient.Connect </p>
<p></p>
<p>    Exit Sub </p>
<p></p>
<p>MyError: </p>
<p></p>
<p>    MsgBox "连接服务器出错！", vbOKOnly, "系统提示" </p>
<p></p>
<p>    Exit Sub </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub cmdSent_Click() </p>
<p></p>
<p>    Dim name As String </p>
<p></p>
<p>    If txtSent.Text = "" Then </p>
<p></p>
<p>        MsgBox "您想要说什么？", vbOKOnly, "系统提示" </p>
<p></p>
<p>        Exit Sub </p>
<p></p>
<p>    End If </p>
<p></p>
<p>    If Option1.Value = True Then </p>
<p></p>
<p>        name = clientname.Text + "先生: " </p>
<p></p>
<p>    Else </p>
<p></p>
<p>        name = clientname.Text + "小姐: " </p>
<p></p>
<p>    End If </p>
<p></p>
<p>    sckClient.SendData name + txtSent.Text </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub Form_Load() </p>
<p></p>
<p>    sckClient.RemoteHost = "fdd"   注释：可以更改为你运行服务器的主机名 </p>
<p></p>
<p>    sckClient.RemotePort = 8888 </p>
<p></p>
<p>    cmdSent.Enabled = False </p>
<p></p>
<p>    messIndex = -1 </p>
<p></p>
<p>    firsttime = True </p>
<p></p>
<p>    recNumber = 0 </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckClient_Close() </p>
<p></p>
<p>    MsgBox "您使用的名字已经注册或服务器已关闭，请重新连接。" </p>
<p></p>
<p>    End </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckClient_Connect() </p>
<p></p>
<p>    Dim name As String </p>
<p></p>
<p>    MsgBox "连接服务器成功！", vbOKOnly, "系统提示" </p>
<p></p>
<p>    cmdConnect.Enabled = False </p>
<p></p>
<p>    cmdSent.Enabled = True </p>
<p></p>
<p>    If firsttime = True Then </p>
<p></p>
<p>        If Option1.Value = True Then </p>
<p></p>
<p>            name = clientname.Text + "先生" </p>
<p></p>
<p>        Else </p>
<p></p>
<p>            name = clientname.Text + "小姐" </p>
<p></p>
<p>        End If </p>
<p></p>
<p>        sckClient.SendData name </p>
<p></p>
<p>        firsttime = False </p>
<p></p>
<p>        End If </p>
<p></p>
<p>    clientname.Enabled = False </p>
<p></p>
<p>    If Option1.Value = True Then </p>
<p></p>
<p>        Option2.Enabled = False </p>
<p></p>
<p>        Option1.Enabled = False </p>
<p></p>
<p>    Else </p>
<p></p>
<p>        Option1.Enabled = False </p>
<p></p>
<p>        Option2.Enabled = False </p>
<p></p>
<p>    End If </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckClient_DataArrival(ByVal bytesTotal As Long) </p>
<p></p>
<p>    sckClient.GetData strData </p>
<p></p>
<p>    txtRecive.Text = txtRecive.Text & strData & vbCrLf </p>
<p></p>
<p>    txtRecive.SelStart = Len(txtRecive.Text) </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckClient_Error(ByVal Number As Integer, _ </p>
<p></p>
<p>    Description As String, ByVal Scode As Long, _ </p>
<p></p>
<p>    ByVal Source As String, ByVal HelpFile As String, _ </p>
<p></p>
<p>    ByVal HelpContext As Long, CancelDisplay As Boolean) </p>
<p></p>
<p>    sckClient.Close </p>
<p></p>
<p>    cmdConnect.Enabled = True </p>
<p></p>
<p>    cmdSent.Enabled = False </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  二．服务器程序的实现方法： </p>
<p></p>
<p>1．   设置LocalPort属性，作为侦听端口。该值是一个整型值，但必须是其他TCP/IP程序没有使用过的值。 </p>
<p></p>
<p>2．   使用Listen方法进入侦听状态，等待客户程序发出连接请求。 </p>
<p></p>
<p>3．   收到客户的连接请求，服务器发生ConnectRequest事件，得到RequestID。 </p>
<p></p>
<p>4．   服务器程序用Accept方法接受客户的连接请求。然后可以用SendData方法发送数据。 </p>
<p></p>
<p>5．   服务器接受到数据时，发生DataArrival事件，在该事件中可以用GetData的方法接收数据。 </p>
<p></p>
<p>6．   如果接收到Close事件，则用Close方法关闭TCP/IP连接。 </p>
<p></p>
<p>以下是服务器程序的编写过程： </p>
<p></p>
<p>1． 新建一个工程文件，在窗体中加上一个文本框Name为txtRecive，设置  MultiLine属性为True。设置ScrollBars属性为3-Both。 </p>
<p></p>
<p>2． 加一标签，Caption为“连接数”，后面接一个标签，Name为number,Caption为0，设置Appearance为1-3D，BorderStyle为1-Fixed Single。 </p>
<p></p>
<p>3． 加一命令按钮，Name为clearmess,Caption为“清除消息”。 </p>
<p></p>
<p>4． 加三个WinSock控件，Name分别为sckServer,sckBusy,sckListen。 </p>
<p></p>
<p>下面是服务器程序的源代码： </p>
<p></p>
<p>Private MaxNumber As Integer </p>
<p></p>
<p>Dim curnumber As Integer </p>
<p></p>
<p>Dim chatname(50) As String </p>
<p></p>
<p>Dim firstmess(50) As Boolean </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub clearmess_Click() </p>
<p></p>
<p>    txtRecive.Text = "" </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub Form_Load() </p>
<p></p>
<p>    MaxNumber = 50 </p>
<p></p>
<p>    curnumber = 0 </p>
<p></p>
<p>    For l = 0 To MaxNumber </p>
<p></p>
<p>        firstmess(l) = True </p>
<p></p>
<p>    Next l </p>
<p></p>
<p>    For i = 1 To MaxNumber - 1 </p>
<p></p>
<p>        Load sckServer(i) </p>
<p></p>
<p>    Next i </p>
<p></p>
<p>    sckListen.LocalPort = 8888 </p>
<p></p>
<p>    sckListen.Listen </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckBusy_Close() </p>
<p></p>
<p>    sckBusy.Close </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long) </p>
<p></p>
<p>    sckBusy.SendData "服务器忙，请稍后再连接！" </p>
<p></p>
<p>    DoEvents </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckListen_ConnectionRequest(ByVal requestID As Long) </p>
<p></p>
<p>    Dim i As Integer </p>
<p></p>
<p>    For i = 0 To MaxNumber - 1 </p>
<p></p>
<p>    If sckServer(i).State = 0 Then </p>
<p></p>
<p>        Exit For </p>
<p></p>
<p>    End If </p>
<p></p>
<p>    Next i </p>
<p></p>
<p>    If sckServer(i).State = 0 Then </p>
<p></p>
<p>        sckServer(i).Accept requestID </p>
<p></p>
<p>        sckServer(i).SendData "欢迎您参加入网络聊天！" </p>
<p></p>
<p>        curnumber = curnumber + 1 </p>
<p></p>
<p>        number.Caption = curnumber </p>
<p></p>
<p>        Exit Sub </p>
<p></p>
<p>    End If </p>
<p></p>
<p>    sckBusy.Close </p>
<p></p>
<p>    sckBusy.Accept requestID </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckListen_Error(ByVal number As Integer, _ </p>
<p></p>
<p>    Description As String, ByVal Scode As Long, _ </p>
<p></p>
<p>    ByVal Source As String, ByVal HelpFile As String, _ </p>
<p></p>
<p>    ByVal HelpContext As Long, CancelDisplay As Boolean) </p>
<p></p>
<p>    sckListen.Close </p>
<p></p>
<p>    sckListen.LocalPort = 8888 </p>
<p></p>
<p>    sckListen.Listen </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckServer_Close(Index As Integer) </p>
<p></p>
<p>    Dim j As Integer </p>
<p></p>
<p>    sckServer(Index).Close </p>
<p></p>
<p>    firstmess(Index) = True </p>
<p></p>
<p>    For j = 0 To MaxNumber - 1 </p>
<p></p>
<p>        If sckServer(j).State = 7 Then </p>
<p></p>
<p>            sckServer(j).SendData chatname(Index) + "退出网络聊天" </p>
<p></p>
<p>            DoEvents </p>
<p></p>
<p>        End If </p>
<p></p>
<p>    Next j </p>
<p></p>
<p>    curnumber = curnumber - 1 </p>
<p></p>
<p>    number.Caption = curnumber </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long) </p>
<p></p>
<p>    Dim strData As String </p>
<p></p>
<p>    Dim i As Integer </p>
<p></p>
<p>    sckServer(Index).GetData strData </p>
<p></p>
<p>    If firstmess(Index) = True Then </p>
<p></p>
<p>        chatname(Index) = strData </p>
<p></p>
<p>        firstmess(Index) = False </p>
<p></p>
<p>        For m = 0 To 49 </p>
<p></p>
<p>            If (Index <> m) And (chatname(m) = strData) Then </p>
<p></p>
<p>                sckServer(Index).Close </p>
<p></p>
<p>                firstmess(Index) = True </p>
<p></p>
<p>                curnumber = curnumber - 1 </p>
<p></p>
<p>                number.Caption = curnumber </p>
<p></p>
<p>                Exit Sub </p>
<p></p>
<p>            End If </p>
<p></p>
<p>        Next m </p>
<p></p>
<p>        strData = strData + "加入网络聊天" </p>
<p></p>
<p>    End If </p>
<p></p>
<p>    For i = 0 To MaxNumber - 1 </p>
<p></p>
<p>        If sckServer(i).State = 7 Then </p>
<p></p>
<p>            sckServer(i).SendData strData </p>
<p></p>
<p>            DoEvents </p>
<p></p>
<p>        End If </p>
<p></p>
<p>    Next i </p>
<p></p>
<p>    txtRecive.Text = txtRecive.Text & "Index " & Index & " " & strData + vbCrLf </p>
<p></p>
<p>    txtRecive.SelStart = Len(txtRecive.Text) </p>
<p></p>
<p>End Sub </p>
<p></p>
<p>  </p>
<p></p>
<p>Private Sub sckServer_Error(Index As Integer, ByVal number As Integer, _ </p>
<p></p>
<p>    Description As String, ByVal Scode As Long, ByVal Source As String, _ </p>
<p></p>
<p>    ByVal HelpFile As String, ByVal HelpContext As Long, _ </p>
<p></p>
<p>    CancelDisplay As Boolean) </p>
<p></p>
<p>    sckServer(Index).Close </p>
<p></p>
<p>End Sub </p>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -