VBA – Verificar conexão com a Internet

Internet Connection

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:

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

Comentários

comentários

6 thoughts on “VBA – Verificar conexão com a Internet”

  1. 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

  2. Tenho um Provedor de Internet onde uso conexão via pppoe
    tenho um banco de dados no site control.wirelink.com.br com ip 177.184.133.6

    queria fazer o seguinte

    um discador pppoe para que não fosse preciso fazer toda aquela configuração de pppoe no windows pq nem todo mundo sabe e tem cliente que exclui

Comments are closed.