Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de declaración de cambio de vb6

Problema de declaración de cambio de vb6

Opción explícita

Public Declare Sub CopyMemory Lib "kernel32" Alias ​​​​"RtlMoveMemory" (Destino como cualquiera, Fuente como cualquiera, ByVal Longitud tan larga)

Función de declaración pública GetIpAddrTable Lib " IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long. ByVal Ordenar As Long) As Long

Const Max_IP = 5

Escriba IPINFO

dwAddr As Long, ByVal Ordenar tan largo) Tan largo

Const Max_IP = 5

Escriba IPINFO

dwAddr tan largo

dwIndex tan largo

dwMask durante tanto tiempo

dwBCastAddr durante tanto tiempo

dwReasmSize como largo

UnUsed1 como entero

UnUsed2 como entero

Tipo de finalización

Tipo MIB_IPADDRTABLE

dEntrys As Long

mIPInfo(Max_IP) As IPINFO

Tipo de finalización

Tipo IP_Array

mBuffer AsMIB_IPADDRTABLE

BufferLen como largo

Tipo final

Función pública GetLocIP( ) como cadena

GetLocIP = ""

Dim ret As Long, Tel As Long

Dim bBytes() Como Byte

Listado Dim Como MIB_IPADDRTABLE

En caso de error, Ir a End1

GetIpAddrTable ByVal 0&, ret, True

Si ret <= 0, entonces salga de la función

ReDim bBytes(0 To ret - 1) Como Byte

GetIpAddrTable bBytes(0), ret, False

CopyMemory Listing.dEntrys, bBytes(0), 4

'MsgBox " Encontrado " & Listing.dEntrys & " Dirección IP!, 0, "Preguntar"

'For Tel = 0 To Listing.dEntrys - 1

CopyMemory Listing.mIPInfo(0), bBytes( 4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(0))) 'Copiar toda la estructura al Listado

GetLocIP = ConvertAddres

sToString(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(0))) 'Copiar toda la estructura al Listado

GetLocIP = ConvertAddressToString(Listing.mIPInfo(0))))) )GetLocIP = ConvertAddressToString(Listing.mIPInfo(0).dwAddr)

'MsgBox "Dirección IP:" & ConvertAddressToString(Listing.mIPInfo(0).dwAddr), 0, "mensaje"

'Siguiente

'Fin

Fin1:

'MsgBox "¡Error!, 0, "Pregunta"

'Fin

Función final

'Obtener dirección IP local

Función pública ConvertAddressToString(longAddr As Long) As String

Dim MyByte(3) Como byte

Dim Cnt As Long

CopyMemory MyByte(0), longAddr, 4

Para Cnt = 0 a 3

ConvertAddressToString = ConvertAddressToString + CStr(MyByte(Cnt))+ "."

Siguiente Cnt

ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1)

Función final

上篇: Cómo configurar vpsphpiis para admitir la configuración php de aspiis 下篇: ug ¿Cuáles son los beneficios de eliminar parámetros en un diseño no estándar?

Artículos populares