www.pudn.com > PackSock.rar > Form1.frm

VERSION 5.00 
Begin VB.Form Form1  
   Caption         =   "Demo2" 
   ClientHeight    =   5805 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   8775 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   ScaleHeight     =   5805 
   ScaleWidth      =   8775 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.Frame Frame2  
      Caption         =   "客户端" 
      Height          =   5775 
      Left            =   4560 
      TabIndex        =   3 
      Top             =   0 
      Width           =   4215 
      Begin VB.TextBox Text3  
         Height          =   3375 
         Left            =   120 
         MultiLine       =   -1  'True 
         TabIndex        =   9 
         Top             =   2280 
         Width           =   3975 
      End 
      Begin VB.CommandButton cmdClientStart  
         Caption         =   "启动" 
         Height          =   375 
         Left            =   120 
         TabIndex        =   8 
         Top             =   360 
         Width           =   3135 
      End 
      Begin VB.CommandButton cmdConnect  
         Caption         =   "连接" 
         Height          =   375 
         Left            =   120 
         TabIndex        =   7 
         Top             =   840 
         Width           =   3135 
      End 
      Begin VB.CommandButton cmdClientSend  
         Caption         =   "发送数据" 
         Height          =   375 
         Left            =   120 
         TabIndex        =   6 
         Top             =   1320 
         Width           =   3135 
      End 
      Begin VB.CommandButton cmdClientStop  
         Caption         =   "断开" 
         Height          =   375 
         Left            =   120 
         TabIndex        =   5 
         Top             =   1800 
         Width           =   3135 
      End 
   End 
   Begin VB.Frame Frame1  
      Caption         =   "服务器" 
      Height          =   5775 
      Left            =   0 
      TabIndex        =   0 
      Top             =   0 
      Width           =   4455 
      Begin VB.TextBox txtServer  
         Height          =   3375 
         Left            =   120 
         MultiLine       =   -1  'True 
         TabIndex        =   4 
         Top             =   2280 
         Width           =   4215 
      End 
      Begin VB.CommandButton cmdServerStart  
         Caption         =   "启动" 
         Height          =   375 
         Left            =   120 
         TabIndex        =   2 
         Top             =   360 
         Width           =   3135 
      End 
      Begin VB.CommandButton cmdServerStop  
         Caption         =   "断开" 
         Height          =   375 
         Left            =   120 
         TabIndex        =   1 
         Top             =   1320 
         Width           =   3135 
      End 
   End 
End 
Attribute VB_Name = "Form1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub cmdClientSend_Click() 
  Dim buf() As Byte 
  Dim I As Long 
   
  ReDim buf(10000) As Byte 
   
  buf(0) = 78 
  buf(10000 - 1) = 79 
   
  For I = 1 To 800 
  Sock_Send hPackSockClient, buf(0), 10000 
  Next I 
End Sub 
 
Private Sub cmdClientStart_Click() 
  Sock_Create hPackSockClient 
   
  Sock_OpenSock hPackSockClient, Me.hwnd 
   
  Sock_Optimize hPackSockClient, OPT_SENDMODE 
End Sub 
 
Private Sub cmdClientStop_Click() 
  Sock_Close hPackSockClient 
   
  Sock_Destroy hPackSockClient 
End Sub 
 
Private Sub cmdConnect_Click() 
  Sock_Connect hPackSockClient, "219.130.10.204", 6666 
End Sub 
 
Private Sub cmdServerStart_Click() 
  Sock_Create hPackSock 
  Sock_Create hPackSockAccept 
 
  Sock_OpenSock hPackSock, Me.hwnd 
  Sock_OpenSock hPackSockAccept, Me.hwnd 
   
  Sock_Listen hPackSock, 6666 
   
  Sock_Optimize hPackSock, OPT_RECEIVEMODE 
End Sub 
 
Private Sub cmdServerStop_Click() 
  Sock_Close hPackSock 
  Sock_Close hPackSockAccept 
   
  Sock_Destroy hPackSock 
  Sock_Destroy hPackSockAccept 
End Sub 
 
Private Sub Form_Load() 
  Call Hook(Me.hwnd) 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
  Call Unhook(Me.hwnd) 
End Sub