?? module1.bas
字號:
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)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -