Excel VBA – Verificar conexão com a Internet

Postado em 29/08/2008 16:08:20 por Tomás Vásquez

Método simples para verificar se o computador está ou não conectado a Internet por VBA.

Copie e cole o seguinte código em um módulo VBA:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
                                                     (ByRef lpdwFlags As Long, _
                                                      ByVal lpszConnectionName As String, _
                                                      ByVal dwNameLen As Integer, _
                                                      ByVal dwReserved As Long) _
                                                      As Long
 
Dim sConnType As String * 255
 
Sub TesteConexaoInternet()
    Dim Ret As Long
    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
    If Ret = 1 Then
        MsgBox "Você está conectado a Internet via " & sConnType, vbInformation
    Else
        MsgBox "Você não está conectado a Internet", vbInformation
    End If
End Sub

A chamada retorna uma mensagem que avisa se existe conexão com a Internet e através de qual conexão ela é feita.

Abraços

Tomás

Share|

  1. 3 comentários para “Excel VBA – Verificar conexão com a Internet”

  2. Espetacular.
    Eu estava justamente precisando disto.
    Muito obrigado !!!

  3. Prof. Tomás,
    caso eu esteja em rede local, vai acusar que estou conectado.
    Tem algum VBA pra validar a conexão com um site, ou seja, validar que o computador esta realmente ligado à internet?
    Objetivo, caso esteja conectado mandar um e-mail.
    Agradeço qualquer retorno.
    Atenciosamente,
    Rogério dos Santos Ferreira

  4. Rogério,

    Segue um uso mais completo da função acima:

    http://vbnet.mvps.org/index.html?code/network/internetgetconnectedstate.htm

    Abraços
    Tomás

Você precisa ser um usuário registrado para inserir um comentário. Faça seu login clicando aqui