form1.frm

VB聊天小程序 非常的简单希望对大家有帮助

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1 
   Caption         =   "主动方"
   ClientHeight    =   4365
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5040
   LinkTopic       =   "Form1"
   ScaleHeight     =   4365
   ScaleWidth      =   5040
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "发送"
      Default         =   -1  'True
      Height          =   375
      Left            =   3720
      TabIndex        =   2
      Top             =   3960
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   975
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   2880
      Width           =   5055
   End
   Begin VB.TextBox Text1 
      Height          =   2775
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Top             =   0
      Width           =   5055
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   720
      Top             =   4080
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      RemoteHost      =   "localhost"
      RemotePort      =   9000
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim lf As String
    lf = Chr(13) & Chr(10)
    If Text2.Text <> "" Then
        Winsock1.SendData Text2.Text
        Text1.Text = Text1.Text & "我说：" & Now & lf & Text2.Text & lf
        Text2.Text = ""
    End If
End Sub

Private Sub Form_Load()
    Do
        Winsock1.RemoteHost = InputBox("请输入对方的IP地址，如 127.0.0.1")
    Loop While Winsock1.RemoteHost = ""
    'Connect方法，连接RemoteHost和RemotePort指定的服务器。
    Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    Dim lf As String
    lf = Chr(13) & Chr(10)
    Winsock1.GetData data, vbString
    Text1.Text = Text1.Text & "对方说：" & Now & lf & data & lf
End Sub

Private Sub Winsock1_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)
    MsgBox Description
    End
End Sub