Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
156
Assunto : Visual Basic
Titulo: Como identificar se o micro está conectado na Web

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Para identificarmos se o micro está conectado na internet podemos fazer a leitura de uma chave de registry, a chave hkey_local_machine\system\currentcontrolset\services\remoteaccess

Dentro da chave remote access existe um valor chamado remote connections que indica se no momento existem conexões remotas (dial-up) ou não.

O que a função "estaconectado" faz é ler esse valor e devolver um booleano (true/false) de acordo com o usuário estar ou não conectado na Web.

Eis o código :


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 EstaConectado() 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 EstaConectado = True Then
'Está conectado
Else
'NÃO Está conectado
End If


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 10/14/2016 9:09:00 PM
nome: cexKMVirbYPvgyb
email: jimos4581rzt@hotmail.com
comentário:
4CghyO http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 10/14/2016 8:50:00 PM
nome: egQICnMhwVVpWIP
email: jimos4581rzt@hotmail.com
comentário:
ZYvrdD http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 8/12/2016 10:19:00 PM
nome: qVsQHsLonOukh
email: jimos4581rt@hotmail.com
comentário:
rLXRYP http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 5/26/2006 5:06:00 PM
nome: nilton
email: sfwinfo@uol.com.br
comentário:
nao serve para conexao vai roteador.


 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br