module1.bas

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

Attribute VB_Name = "Module1"
Option Explicit

Public Const MAX_INTERFACE_NAME_LEN  As Long = 256
Public Const ERROR_SUCCESS   As Long = 0
Public Const MAXLEN_IFDESCR    As Long = 256
Public Const MAXLEN_PHYSADDR   As Long = 8
Public Const MIB_IF_OPER_STATUS_NON_OPERATIONAL As Long = 0
Public Const MIB_IF_OPER_STATUS_UNREACHABLE     As Long = 1
Public Const MIB_IF_OPER_STATUS_DISCONNECTED    As Long = 2
Public Const MIB_IF_OPER_STATUS_CONNECTING      As Long = 3
Public Const MIB_IF_OPER_STATUS_CONNECTED       As Long = 4
Public Const MIB_IF_OPER_STATUS_OPERATIONAL     As Long = 5
Public Const MIB_IF_TYPE_OTHER       As Long = 1
Public Const MIB_IF_TYPE_ETHERNET    As Long = 6
Public Const MIB_IF_TYPE_TOKENRING   As Long = 9
Public Const MIB_IF_TYPE_FDDI        As Long = 15
Public Const MIB_IF_TYPE_PPP         As Long = 23
Public Const MIB_IF_TYPE_LOOPBACK    As Long = 24
Public Const MIB_IF_TYPE_SLIP        As Long = 28
Public Const MIB_IF_ADMIN_STATUS_UP        As Long = 1
Public Const MIB_IF_ADMIN_STATUS_DOWN      As Long = 2
Public Const MIB_IF_ADMIN_STATUS_TESTING   As Long = 3
Public Type MIB_IFROW
    wszName(0 To (MAX_INTERFACE_NAME_LEN - 1) * 2) As Byte
    dwIndex              As Long
    dwType               As Long
    dwMtu                As Long
    dwSpeed              As Long
    dwPhysAddrLen        As Long
    bPhysAddr(0 To MAXLEN_PHYSADDR - 1) As Byte
    dwAdminStatus        As Long
    dwOperStatus         As Long
    dwLastChange         As Long
    dwInOctets           As Long
    dwInUcastPkts        As Long
    dwInNUcastPkts       As Long
    dwInDiscards         As Long
    dwInErrors           As Long
    dwInUnknownProtos    As Long
    dwOutOctets          As Long
    dwOutUcastPkts       As Long
    dwOutNUcastPkts      As Long
    dwOutDiscards        As Long
    dwOutErrors          As Long
    dwOutQLen            As Long
    dwDescrLen           As Long
    bDescr(0 To MAXLEN_IFDESCR - 1) As Byte
End Type

Public Declare Function GetIfTable Lib "IPHLPAPI.DLL" _
            (ByRef pIfTable 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 inet_ntoa Lib "wsock32.dll" (ByVal addr As Long) 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