frmmain.frm

VB网络应用,例如:聊天系统,浏览器程序

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain 
   Caption         =   "简易聊天程序 "
   ClientHeight    =   3990
   ClientLeft      =   3690
   ClientTop       =   2475
   ClientWidth     =   5565
   LinkTopic       =   "Form1"
   ScaleHeight     =   3990
   ScaleWidth      =   5565
   Begin VB.CommandButton Command1 
      Caption         =   "Send"
      Height          =   495
      Left            =   4200
      TabIndex        =   2
      Top             =   3360
      Width           =   1215
   End
   Begin VB.TextBox txtSend 
      Height          =   495
      Left            =   0
      TabIndex        =   1
      Top             =   3360
      Width           =   4095
   End
   Begin VB.TextBox txtMess 
      Height          =   3255
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   0
      Width           =   4095
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   4200
      Top             =   2520
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'影子 yingzi007.126.com
'VB 爱好者乐园
'http://yingzi007.126.com

Private Sub Command1_Click()
   Winsock1.SendData txtSend.Text
End Sub

Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 10     '随便设置，不过两个要一样
Winsock1.RemotePort = 10
my = Winsock1.LocalIP     '取得自己的IP地址，是不要的
Winsock1.RemoteHost = my  '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
  Dim Tmp As String
  Winsock1.GetData Tmp, vbString '取得数据
  Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp
  txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub