Visual Basic - ¿Cómo puedo saber si estoy conectado?

Life is soft - evento anual de software empresarial
 
Vista:

¿Cómo puedo saber si estoy conectado?

Publicado por Orellana (3 intervenciones) el 14/10/2000 00:00:00
¿Alguien me puede indicar el código necesario para saber si en un momento determinado el ordenador está conectado a internet?
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:¿Cómo puedo saber si estoy conectado? I

Publicado por Goku (77 intervenciones) el 15/10/2000 00:00:00
Aca te va el Modulo
Option Explicit

Public Const ERROR_SUCCESS = 0&
Public Const APINULL = 0&
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public ReturnCode As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Key As Long) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Function ActiveConnection() As Boolean
Dim hKey As Long
Dim lpSubKey As String
Dim phkResult As Long
Dim lpValueName As String
Dim lpReserved As Long
Dim lpType As Long
Dim lpData As Long
Dim lpcbData As Long
ActiveConnection = False
lpSubKey = "System\CurrentControlSet\Services\RemoteAccess"
ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, phkResult)
If ReturnCode = ERROR_SUCCESS Then
hKey = phkResult
lpValueName = "Remote Connection"
lpReserved = APINULL
lpType = APINULL
lpData = APINULL
lpcbData = APINULL
ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, ByVal lpData, lpcbData)
lpcbData = Len(lpData)
ReturnCode = RegQueryValueEx(hKey, lpValueName, _
lpReserved, lpType, lpData, lpcbData)
If ReturnCode = ERROR_SUCCESS Then
If lpData = 0 Then
ActiveConnection = False
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

RE:¿Cómo puedo saber si estoy conectado? II

Publicado por Goku (77 intervenciones) el 15/10/2000 00:00:00
Y aqui te va el codigo para los botones
despues acomodalo a donde te quede mas practico a a donde lo necesites
Private Sub Command1_Click()
If ActiveConnection = True Then
Call MsgBox("Estas conectado/a a internet", vbInformation)
Else
Call MsgBox("No estas conectado/a a internet", vbInformation)
End If
End Sub

Private Sub Command2_Click()
End
End Sub
Cualquier cosa enviame un mail
Suerte
Goku
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