module1.bas

Visual Basic 6 网络编程实例教程ch01～ch02分别包含了书中各章的主要程序文件

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 'IP地址
    IpAddr(0 To 15)  As Byte
End Type
Public Type IP_MASK_STRING 'IP掩码
    IpMask(0 To 15)  As Byte
End Type
Public Type IP_ADDR_STRING 'IP地址
    dwNext     As Long
    IpAddress  As IP_ADDRESS_STRING
    IpMask     As IP_MASK_STRING
    dwContext  As Long
End Type

'定义FIXED_INFO结构
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 '当前DNS（域名服务器）的IP地址
    DnsServerList      As IP_ADDR_STRING 'DNS服务列表
    NodeType           As Long '节点类型
    ScopeId(0 To (MAX_SCOPE_ID_LEN + 3))          As Byte '范围标志
    EnableRouting      As Long '允许使用路由器
    EnableProxy        As Long '允许使用PROXY代理
    EnableDns          As Long '允许使用DNS
End Type

'说明API函数
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)