wskserver.frm

来自「this file explains how to build a commun」· FRM 代码 · 共 85 行

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form Server"
   ClientHeight    =   1125
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5355
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1125
   ScaleWidth      =   5355
   StartUpPosition =   3  'Windows Default
   Begin MSWinsockLib.Winsock wskserver 
      Left            =   1680
      Top             =   720
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Label lbpesan 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

    wskserver.LocalPort = 3030
    wskserver.Listen
    lbpesan.Caption = "Server Ready"
    
End Sub

Private Sub wskserver_Close()

    wskserver.Close
    wskserver.Listen
    lbpesan.Caption = "Server Ready"
    
End Sub

Private Sub wskserver_ConnectionRequest(ByVal requestID As Long)

    wskserver.Close
    wskserver.Accept requestID
    lbpesan.Caption = wskserver.RemoteHostIP & " Connected"
    
End Sub

Private Sub wskserver_DataArrival(ByVal bytesTotal As Long)

Dim pesan As String

    wskserver.GetData pesan
    lbpesan.Caption = pesan
    
End Sub


Private Sub wskserver_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)

End Sub