module1.bas

来自「Visual Basic 6 网络编程实例教程ch01～ch02分别包含了书中各」· BAS 代码 · 共 42 行

Attribute VB_Name = "Module1"
Option Explicit

Public Const ERROR_SUCCESS         As Long = 0
Public Const MAX_DOMAIN_NAME_LEN   As Long = 128
Public Const MAX_HOSTNAME_LEN      As Long = 128
Public Const MAX_SCOPE_ID_LEN      As Long = 256
Public Type IP_ADDRESS_STRING

    IpAddr(0 To 15)  As Byte
End Type

Public Type IP_MASK_STRING
    IpMask(0 To 15)  As Byte
End Type

Public Type IP_ADDR_STRING
    dwNext     As Long
    IpAddress  As IP_ADDRESS_STRING
    IpMask     As IP_MASK_STRING
    dwContext  As Long
End Type

Public Type FIXED_INFO
    HostName(0 To (MAX_HOSTNAME_LEN + 3))         As Byte
    DomainName(0 To (MAX_DOMAIN_NAME_LEN + 3))    As Byte
    CurrentDnsServer   As IP_ADDR_STRING
    DnsServerList      As IP_ADDR_STRING
    NodeType           As Long
    ScopeId(0 To (MAX_SCOPE_ID_LEN + 3))          As Byte
    EnableRouting      As Long
    EnableProxy        As Long
    EnableDns          As Long
End Type

Public Declare Function GetNetworkParams Lib "iphlpapi.dll" _
                (pFixedInfo As Any, pOutBufLen As Long) As Long
                
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
            (Destination As Any, Source As Any, ByVal Length As Long)