USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Verificando se o Computador está Conectado à Internet
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'No módulo:

Private Const ERROR_SUCCESS = 0&
Private Const APINULL = 0&
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private ReturnCode As Long

Private Declare Function RegCloseKey Lib _
        "advapi32.dll" (ByVal hKey As Long) _
        As Long
Private Declare Function RegOpenKey Lib _
        "advapi32.dll" Alias "RegOpenKeyA" _
        (ByVal hKey As Long, ByVal _
        lpSubKey As String, phkResult As _
        Long) As Long
Private 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
      Else
        ActiveConnection = True
      End If
    End If
  RegCloseKey (hKey)
  End If
End Function

'P/ chamar a função, no evento que você quizer:
  If ActiveConnection Then
    'Está conectado
  Else
    'NÃO Está conectado
  End If
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página