¡El lenguaje simple desconecta el código fuente de la conexión de red local!

. Variable local Enumerar conexiones, tipo de texto, "0"

Variable local i, entero

. Primer ciclo del ciclo de conteo (enumerar todas las conexiones de red___conectadas (enumconnections), i)

Establecer conexiones locales (enumconnections [i], false)

. Contando el final del bucle ()

Retorno (falso)

Subrutina Enumera todas las conexiones de red _conectadas, enteras, públicas

. Parámetros nombre_conexión_red, texto, referencia a matriz que acepta valores NULL

. Tamaño de variable local, entero

. Variables locales adaptorInfo, IP_ADAPTER_INFO

. Variable local buf, conjunto de bytes

. Dirección de variable local, número entero

. Variable local i, número entero

. Variable local mac, tipo texto

. Variable local tmp, tipo de texto

. Variable local addr_ip, número entero

. Variables locales buf_ip, IP_ADDR_STRING

. Variable local size_dns, entero

. Variable local buf_dns, conjunto de bytes

. DNS variable local, IP_PER_ADAPTER_INFO

. Variable local addr_dns, entero

Borrar matriz (nombre de conexión de red)

GetAdaptersInfo ({ 0 }, tamaño)

buf = Obtener el conjunto de bytes en blanco (tamaño )

addr = Obtener la variable dirección_byteset (buf, buf, 0)

. Si es verdadero (GetAdaptersInfo (buf, size) = 0)

Bucle para determinar el primer elemento ()

CopyMemory_iai (AdapterInfo, addr, 640)

addr = AdapterInfo.Next

.Bucle para determinar el final (addr≠0)

.End if true

Devuelve (obtener miembro de la matriz (nombre de la conexión de red))

.Versión 2

.Comando DLL GetAdaptersInfo, entero, "IPHlpApi"

.

Parámetros IpAdapterInfo, byteset

. Parámetro pOutBufLen, entero, dirección pasada

.Comando DLL GetPerAdapterInfo, entero, "IPHlpApi"

. p>

.Parámetro pPerAdapterInfo, grupo de bytes

. Parámetro pOutBufLen, número entero, dirección de paso

. Comando DLL Len_iai, Entero, "kernel32", "LocalSize"

. Parámetros hMem, IP_ADAPTER_INFO, dirección de entrega

.DLL comando len_ipai, entero, "LocalSize"

Parámetros hMem, IP_PER_ADAPTER_INFO, dirección de entrega

.DLL comando len_ias. , entero, "kernel32", "LocalSize"

. Variable de parámetro, conjunto de bytes, dirección

.DLL comando variable de parámetro, conjunto de bytes, dirección

Parámetro reservado, entero, 0

.DLL comando CopyMemory_iai. , "kernel32", "RtlMoveMemory"

Destino del parámetro, IP_ADAPTER_INFO, dirección

Fuente del parámetro, número entero

. Longitud del parámetro, entero

.Comando DLL CopyMemory_ipai, "kernel32", "RtlMoveMemory"

Destino del parámetro, IP_PER_ADAPTER_INFO, dirección de entrega

. tipo

. Parámetro Longitud, tipo entero

Comando .DLL CopyMemory_ias, "kernel32", "RtlMoveMemory"

Comando .DLL CopyMemory_ias, "kernel32", "RtlMoveMemory"

.Destino del parámetro, IP_ADDR_STRING, dirección

.Origen del parámetro, IP_ADDR_STRING

. Longitud del parámetro, número entero

. Versión 2

. Tipo de datos IP_ADAPTER_INFO

. Miembro Siguiente, entero

. Miembros ComboIndex, número entero

. Miembros AdapterName, bytes, "260", nombre

. Descripción de miembro, byte, "132", descripción

. Longitud de la dirección del miembro, número entero

. Dirección de miembro, bytes, "8"

. Índice de miembros, número entero

. Tipo de miembro, Entero, tipo

Miembro DhcpEnabled, Entero

. Miembro CurrentIpAddress, número entero

. Miembros IpAddressList, IP_ADDR_STRING

. Lista de puertas de enlace de miembros, IP_ADDR_STRING

. Miembro DhcpServer, IP_ADDR_STRING

. Miembro HaveWins, valor lógico

Miembro PrimaryWinsServer, IP_ADDR_STRING

. Miembro SecondaryWinsServer, IP_ADDR_STRING

. Arrendamiento de miembro obtenido, número entero

.

El arrendamiento del miembro expira, número entero

. Tipo de datos IP_ADDR_STRING

. Miembro Siguiente, entero

. Dirección IP del miembro, bytes, "16", IP_ADDRESS_STRING

. Miembro IpMask, bytes, "16", IP_MASK_STRING=IP_ADDRESS_STRING

. Contexto de miembros, número entero

. Tipo de datos IP_PER_ADAPTER_INFO

. Miembro tmp, entero, "3"

. Miembro CurrentDnsServer, IP_ADDR_STRING

. Miembros DnsServerList, IP_ADDR_STRING

.