Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo verificar si la computadora está conectada a la red en VB?

¿Cómo verificar si la computadora está conectada a la red en VB?

GetHostbyName? La API puede obtener la dirección IP correspondiente al nombre de dominio. Cuando no hay conexión a Internet, se devolverá un valor de error. Entonces puedes usarlo para determinar si estás conectado a Internet.

¿Privado?Sub?Form_Load()

Si?IsConnectedState?Entonces

MsgBox?"Conectarse a la red"

Si no

MsgBox?"No hay conexión a Internet"

¿Fin?Si

Fin?Sub

VBScript?codeCopiar código

Opción ?Explícito

Privado?Tipo?WSADATA

wversion?As?Integer

wHighVersion?As?Integer

szDescripción(0 ?A ?256)?As?Byte

szSystemStatus(0?A?128)?As?Byte

iMaxSockets?As?Integer

iMaxUdpDg?As ?Entero

lpszVendorInfo?As?Long

Fin?Tipo

Privado?Declarar?Función?WSAStartup?Lib?"WSOCK32.DLL"?(ByVal? ¿wVersionRequired? Como?Entero,?lpWSAData?As?WSADATA)?Como?Long

¿Privado?Declarar?Función?WSACleanup?Lib?"WSOCK32.DLL"?()?Como?Long

¿Privado?¿Declarar?Función?gethostbyname?Lib?"WSOCK32.DLL"?(ByVal?szHostname?As?String)?As?Long

Privado?Const?WS_VERSION_REQD?=?&H101

¿Función?Pública?IsConnectedState()?As?Boolean

Dim?udtWSAD?As?WSADATA

Llamar?WSAStartup(WS_VERSION_REQD,?udtWSAD)

IsConnectedState?=?CBool(gethostbyname("www.baidu.com"))

¿Llamar?WSACleanup

¿Fin?Función

上篇: Mascarilla de hidrogel de proteína de seda de abedul T.S.C o mascarilla de semillas de vino de polinia, ¿cuál es mejor? 下篇: teclas de acceso directo al nombre de dominio win10

Artículos populares