module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit
'声明MIB_TCPROW结构
Public Type MIB_TCPROW
    dwState As Long
    dwLocalAddr As Long
    dwLocalPort As Long
    dwRemoteAddr As Long
    dwRemotePort As Long
End Type
'函数返回值
Public Const ERROR_SUCCESS            As Long = 0
'TCP的状态常量
Public Const MIB_TCP_STATE_CLOSED     As Long = 1
Public Const MIB_TCP_STATE_LISTEN     As Long = 2
Public Const MIB_TCP_STATE_SYN_SENT   As Long = 3
Public Const MIB_TCP_STATE_SYN_RCVD   As Long = 4
Public Const MIB_TCP_STATE_ESTAB      As Long = 5
Public Const MIB_TCP_STATE_FIN_WAIT1  As Long = 6
Public Const MIB_TCP_STATE_FIN_WAIT2  As Long = 7
Public Const MIB_TCP_STATE_CLOSE_WAIT As Long = 8
Public Const MIB_TCP_STATE_CLOSING    As Long = 9
Public Const MIB_TCP_STATE_LAST_ACK   As Long = 10
Public Const MIB_TCP_STATE_TIME_WAIT  As Long = 11
Public Const MIB_TCP_STATE_DELETE_TCB As Long = 12
'API函数声明
Public Declare Function GetTcpTable Lib "iphlpapi.dll" _
            (ByRef pTcpTable As Any, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
                    (dst As Any, src As Any, ByVal bcount As Long)
Public Declare Function lstrcpyA Lib "kernel32" (ByVal RetVal As String, ByVal Ptr As Long) As Long
Public Declare Function lstrlenA Lib "kernel32" (ByVal Ptr As Any) As Long
Public Declare Function inet_ntoa Lib "wsock32.dll" (ByVal addr As Long) As Long
Public Declare Function ntohs Lib "wsock32.dll" (ByVal addr As Long) As Long