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)