bas.bas

vb编程+从基础到实践光盘代码

Attribute VB_Name = "BAS"
Public Type MIB_TCPROW
    dwState As Long
    dwLocalAddr As Long
    dwLocalPort As Long
    dwRemoteAddr As Long
    dwRemotePort As Long
End Type

Type MIB_TCPTABLE
    dwNumEntries As Long
    table As Long
End Type
'TCP状态常量定义
Public Const ERROR_SUCCESS As Long = 0
Public Const MIB_TCP_STATE_CLOSED As Long = 1
Public Const MIB_TCP_STATE_LISTEN As Long = 2
Public Const MIB_TCP_STATE_SYN_SENT As Long = 3
Public Const MIB_TCP_STATE_SYN_RCVD As Long = 4
Public Const MIB_TCP_STATE_ESTAB As Long = 5
Public Const MIB_TCP_STATE_FIN_WAIT1 As Long = 6
Public Const MIB_TCP_STATE_FIN_WAIT2 As Long = 7
Public Const MIB_TCP_STATE_CLOSE_WAIT As Long = 8
Public Const MIB_TCP_STATE_CLOSING As Long = 9
Public Const MIB_TCP_STATE_LAST_ACK As Long = 10
Public Const MIB_TCP_STATE_TIME_WAIT As Long = 11
Public Const MIB_TCP_STATE_DELETE_TCB As Long = 12
Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As Any, src As Long, ByVal bOrder As Boolean) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Public Declare Function lstrcpyA Lib "kernel32" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Public Declare Function lstrlenA Lib "kernel32" (ByVal lpString As String) As Long
Public Declare Function inet_ntoa Lib "wsock32.dll" (ByVal addr As Long) As Long
Public Declare Function ntohs Lib "wsock32.dll" (ByVal adddr As Long) As Long

Public Function getstrfromptra(ByVal lpsza As Long) As String
    getstrfromptra = String$(lstrlenA(ByVal lpsza), 0)
    Call lstrcpyA(ByVal getstrfromptra, ByVal lp)
End Function

Public Function getinetstrfromptr(address As Long) As String
    Dim ipv4(3) As Byte
    CopyMemory ipv4(0), address, 4
    getinetstrfromptr = CStr(ipv4(0)) + "." + CStr(ipv4(1)) + "." + CStr(ipv4(2)) + "." + CStr(ipv4(3))
End Function