En la programación VB, quiero que el programa sepa si está en línea. ¿Qué método o clase debo utilizar?
Función de declaración pública InternetGetConnectedStateEx Lib " wininet . dll " u
Alias "InternetGetConnectedStateExA"
(ByRef lpdwFlags As Long, _
ByVal lpszConnectionName como una cadena, _
ByVal dwNameLen es largo, _
ByVal está reservado como Long _
) tiene la misma longitud
Ejemplo de enumeración pública EIGCInternetConnectionState
Módem de conexión a Internet = amph 1 amp
Conexión a Internet lan = ampH2 amp
Proxy de conexión a Internet = ampH4 amp;
INTERNET_RAS_INSTALLED = amph 10 amp;
Conexión a Internet sin conexión = ampH20 amp
Configuración de conexión a Internet = ampH40 y .
Enumeración final
Red de propiedad pública (_
ByRef eConnectionInfo opcional como EIGCInternetConnectionState, _
ByRef opcional en forma de cadena sConnectionName _
) como valor booleano
Dim dwFlags es largo
Dim sNameBuf como una cadena
Dim lR tiene la misma longitud
Atenúe iPos siempre que
sNameBuf = String$(513, 0)
lR = InternetGetConnectedStateEx(dw flags, sNameBuf, 512, 0 amp)
eConnectionInfo = dwFlags
iPos = InStr(sNameBuf, vbNullChar)
Si iPos > entonces 0
sConnectionName = Left $(iPos sname buf -1)
de lo contrario, si no es sname buf = String $(513, 0) entonces
sConnectionName = sNameBuf
Si... terminará
InternetConnected = (lR = 1)
Atributo final
Código de formulario:
dimer As EIGCInternetConnectionState
Mostrar sMsg como cadena
Nombre atenuado como cadena
Atenuado conectado como booleano
Subcomando privado 1_Click()
b conectado = conectado a Internet (eR, sName)
Si (eR y módem conectado a Internet) = módem conectado a Internet, entonces
sMsg = sMsg amp "Conectado mediante módem".
" ampvbCrLf
Terminará si...
Si (eR y conexión a Internet LAN) = conexión a Internet LAN, entonces
sMsg = sMsg amp" utiliza la conexión LAN. " ampvbCrLf
Terminará si...
Si (eR y Agente de conexión a Internet) = Agente de conexión a Internet, entonces
sMsg = sMsg amp" El la conexión es a través de la acción. " ampvbCrLf
Terminará si...
Si (eR y la conexión a Internet están fuera de línea) = la conexión a Internet está fuera de línea, entonces
sMsg = sMsg amp "La conexión es una máquina fuera de línea. " ampvbCrLf
finalizará si...
si (eR y configuración de conexión a Internet) = configuración de conexión a Internet, entonces
sMsg = sMsg amp" conexión configurada . " ampvbCrLf
Otro
sMsg = sMsg amp" No hay conexión configurada. " ampvbCrLf
Terminará si...
Si (eR e INTERNET_RAS_INSTALADO) = INTERNET_RAS_INSTALADO, entonces
sMsg = sMsg amp "RAS está instalado en el sistema. " ampvbCrLf
Terminará si...
Si está conectado, entonces
Text1. text = " Conectado: "amp;sName ampvbCrLf &vbCrLf &sMsg
Otro
Text1. Text = "No conectado:" ampsName ampvbCrLf amp;vbCrLf amp;sMsg
Terminará si...
Fin conector