form1.frm

HTTP 2 SOCKET的完整开发包 HTTP 2 SOCKET的完整开发包.rar

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5988
   ClientLeft      =   48
   ClientTop       =   348
   ClientWidth     =   3780
   LinkTopic       =   "Form1"
   ScaleHeight     =   5988
   ScaleWidth      =   3780
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox ProxyPassword 
      Height          =   288
      Left            =   2040
      TabIndex        =   19
      Top             =   1080
      Width           =   1572
   End
   Begin VB.TextBox ProxyUsername 
      Height          =   288
      Left            =   120
      TabIndex        =   18
      Top             =   1080
      Width           =   1692
   End
   Begin VB.TextBox SendLine 
      Height          =   288
      Left            =   120
      TabIndex        =   15
      Top             =   4920
      Width           =   3492
   End
   Begin VB.CommandButton Connect 
      Caption         =   "Connect"
      Height          =   372
      Left            =   1320
      TabIndex        =   14
      Top             =   5520
      Width           =   1092
   End
   Begin MSWinsockLib.Winsock WinSock 
      Left            =   120
      Top             =   5400
      _ExtentX        =   593
      _ExtentY        =   593
      _Version        =   393216
      RemoteHost      =   "127.0.0.1"
   End
   Begin VB.TextBox Data 
      Height          =   1692
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   12
      Top             =   2880
      Width           =   3492
   End
   Begin VB.TextBox HTTHostPort 
      Height          =   288
      Left            =   2640
      TabIndex        =   10
      Text            =   "8888"
      Top             =   2280
      Width           =   972
   End
   Begin VB.TextBox HTTHostHost 
      Height          =   288
      Left            =   120
      TabIndex        =   8
      Text            =   "127.0.0.1"
      Top             =   2280
      Width           =   2292
   End
   Begin VB.TextBox RemotePort 
      Enabled         =   0   'False
      Height          =   288
      Left            =   2640
      TabIndex        =   6
      Text            =   "110"
      Top             =   1680
      Width           =   972
   End
   Begin VB.TextBox ProxyPort 
      Height          =   288
      Left            =   2640
      TabIndex        =   3
      Text            =   "8888"
      Top             =   480
      Width           =   972
   End
   Begin VB.TextBox RemoteHost 
      Enabled         =   0   'False
      Height          =   288
      Left            =   120
      TabIndex        =   1
      Text            =   "pop.mail.yahoo.com"
      Top             =   1680
      Width           =   2292
   End
   Begin VB.TextBox ProxyHost 
      Height          =   288
      Left            =   120
      TabIndex        =   0
      Text            =   "127.0.0.1"
      Top             =   480
      Width           =   2292
   End
   Begin VB.CommandButton Send 
      Caption         =   "Send"
      Enabled         =   0   'False
      Height          =   372
      Left            =   2520
      TabIndex        =   13
      Top             =   5520
      Width           =   1092
   End
   Begin VB.Label Label10 
      Caption         =   "Proxy Password:"
      Height          =   252
      Left            =   2040
      TabIndex        =   21
      Top             =   840
      Width           =   1572
   End
   Begin VB.Label Label9 
      Caption         =   "Proxy Username:"
      Height          =   252
      Left            =   120
      TabIndex        =   20
      Top             =   840
      Width           =   1692
   End
   Begin VB.Label Label8 
      Caption         =   "Send:"
      Height          =   252
      Left            =   120
      TabIndex        =   17
      Top             =   4680
      Width           =   1452
   End
   Begin VB.Label Label7 
      Caption         =   "Data:"
      Height          =   252
      Left            =   120
      TabIndex        =   16
      Top             =   2640
      Width           =   1332
   End
   Begin VB.Label Label6 
      Caption         =   "Port:"
      Height          =   252
      Left            =   2640
      TabIndex        =   11
      Top             =   2040
      Width           =   972
   End
   Begin VB.Label Label5 
      Caption         =   "HTTHost server:"
      Height          =   252
      Left            =   120
      TabIndex        =   9
      Top             =   2040
      Width           =   2292
   End
   Begin VB.Label Label4 
      Caption         =   "Port:"
      Height          =   252
      Left            =   2640
      TabIndex        =   7
      Top             =   1440
      Width           =   972
   End
   Begin VB.Label Label3 
      Caption         =   "Remote server:"
      Height          =   252
      Left            =   120
      TabIndex        =   5
      Top             =   1440
      Width           =   1932
   End
   Begin VB.Label Label2 
      Caption         =   "Port:"
      Height          =   252
      Left            =   2640
      TabIndex        =   4
      Top             =   240
      Width           =   852
   End
   Begin VB.Label Label1 
      Caption         =   "HTTP Proxy:"
      Height          =   252
      Left            =   120
      TabIndex        =   2
      Top             =   240
      Width           =   2172
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------------------
Const H_SUCCESS = 0
Const H_ERROR_BASE = 65536
Const H_ERROR_WINSOCK_FAILED = H_ERROR_BASE
Const H_ERROR_ALREADY_STARTED = H_ERROR_BASE + 1
Const H_ERROR_NOT_STARTED = H_ERROR_BASE + 2
Const H_ERROR_NO_FREE_SLOTS = H_ERROR_BASE + 3
Const H_ERROR_UNKNOWN_OPTION = H_ERROR_BASE + 4
Const H_ERROR_INVALID_PARAMETER = H_ERROR_BASE + 5
'-------------------------------------------------------------
Const H_OPTION_BASE = 131072
Const H_OPTION_HOST_LIST = H_OPTION_BASE
Const H_OPTION_USER_INFO = H_OPTION_BASE + 1
Const H_OPTION_PROXY = H_OPTION_BASE + 2
Const H_OPTION_DATA_OVERRIDE = H_OPTION_BASE + 3
'-------------------------------------------------------------
Const CONN_USE_AUTO = 0
Const CONN_USE_CONNECT = 1
Const CONN_USE_REMOTE = 2
'-------------------------------------------------------------
Private Type TOptions
strParam1 As String
strParam2 As String
strParam3 As String
End Type
'-------------------------------------------------------------
Private Type TMappingParameters
intStrucSize As Long
wLocalPort As Integer
strRemoteHost As String
wRemotePort As Integer
intAllowLocalOnly As Long
intMode As Long
intMappingId As Long
End Type
'-------------------------------------------------------------
Private Type TMappingStats
intStrucSize As Long
intConnections As Long
intKBytesTransferred As Long
intSockErrors As Long
intHostErrors As Long
intTimeoutErrors As Long
intProtocolErrors As Long
intMemoryErrors As Long
intConnectErrors As Long
intOtherErrors As Long
intFatalErrors As Long
End Type
'-------------------------------------------------------------
Private Type TProxyStats
intStrucSize As Long
intProxyFaults As Long
intHostFaults As Long