module1.bas

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

Attribute VB_Name = "Module1"
Option Explicit

Public Const ERROR_SUCCESS As Long = 0 '函数返回值
Public Type MIB_IPADDRROW
    dwAddr As Long 'IP地址
    dwIndex As Long       '该IP地址的接口索引
    dwMask As Long        'IP地址的子网络、掩码
    dwBCastAddr As Long   '广播地址（典型的，IP地址中表示主机的部分全部为0或1）
    dwReasmSize As Long   '接收到的数据报的大小
    unused1 As Integer    '保留字段
    unused2 As Integer    '保留字段
End Type
'APIH函数声明
Public Declare Function GetIpAddrTable Lib "IPHLPAPI.DLL" _
(ByRef ipAddrTable As Byte, ByRef dwSize 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