客户端代码清单.txt

1.打开文件。在服务器计算机上运行服务器可执行程序

Private Sub Command1_Click()
   xingming = Text1.Text
   num = Len(Trim(xingming))
   deng.Hide
   frmClient.Show
End Sub

Private Sub Text1_Change()
  If KeyAscii = 13 Then
     xingming = Text1.Text
     num = Len(Trim(xingming))
     deng.Hide
     frmClient.Show
  End If
End Sub
Private Sub clear_Click()
txtreceive.Text = ""
End Sub

Private Sub cmdConnect_Click()
     On Error GoTo ErrorPro
     sckclient.Connect
     Exit Sub
ErrorPro:
    MsgBox "服务器未开或网络出错,请重新连接！"
    End
End Sub

Private Sub cmdSent_Click()
    Dim s  As String
    s = xingming + "说:" + txtsend.Text
    sckclient.SendData s
    txtreceive.Text = txtreceive.Text + Chr$(13) + Chr$(10) + "我说:" + txtsend.Text
    txtsend.Text = ""
End Sub

Private Sub Form_Load()
    sckclient.RemoteHost = ipadr
    sckclient.RemotePort = 1011
    txtreceive.Text = "welcome---" + xingming + "!!!"
    Label4.Caption = sckclient.LocalIP
End Sub

Private Sub ipadr_Change()
sckclient.RemoteHost = ipadr.Text
End Sub

Private Sub ipadr_Click()
ipadr.Text = ""
End Sub

Private Sub sckClient_Close()
    If sckclient.State <> closed Then
      sckclient.Close
      cmdconnect.Enabled = False
      MsgBox "未建立连接，请重试！"
    End If
End Sub
    
Private Sub sckClient_Connect()
   MsgBox "已成功建立连接！"
    cmdconnect.Enabled = False
End Sub

Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
    Dim s As String
    sckclient.GetData s
    If Left(Trim(s), num) <> xingming Then
      txtreceive.Text = txtreceive.Text + Chr$(13) + Chr$(10) + s
    End If
End Sub

Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
      sckclient.Close
      cmdconnect.Enabled = True
End Sub




Private Sub txtsend_KeyPress(KeyAscii As Integer)
    Dim s  As String
    If KeyAscii = 13 Then
     s = xingming + "说:" + txtsend.Text
     sckclient.SendData s
     txtreceive.Text = txtreceive.Text + Chr$(13) + Chr$(10) + "我说:" + txtsend.Text
     txtsend.Text = ""
    End If
End Sub