Visual Basic - conexion a internet

Life is soft - evento anual de software empresarial
 
Vista:

conexion a internet

Publicado por anonimator (1 intervención) el 13/02/2007 12:51:47
hola amigos, quisiera crear una aplicacion que me avise si estoy conectado a internet o no estoy conectado, ojala puedan ayudarme, soy novato en esto pero tengo deseos de aprender, gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:conexion a internet

Publicado por LLE (136 intervenciones) el 13/02/2007 14:39:48
Lo podés obtener con esta función del api

Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Private Sub Form_Load()

Dim Ret As Long
If IsNetworkAlive(Ret) = 0 Then
MsgBox "No Conectado "
Else
MsgBox " Conectado a " + IIf(Ret = NETWORK_ALIVE_AOL, "AOL", IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
End If
End Sub

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar