VBA Tips - Determina o tipo de conexão ativa - Determine Network Connection Type

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

A cada dia que passa é mais freqüente o uso de dados online oriundos de servidores na Web. Estes são automaticamente transformados em informações ao atualizarem os nossos Dashboards e Scorecards instantâneamente.

Para garantirmos que tais dados receberão as atualizações corretas no tempo apropriado é importante checarmos a conexão das nossas máquinas constantemente. A API InternetGetConnectedState declarada no wininet.dll retorna o estado da conexão do sistema local. A API é simples de usar, e retorna TRUE se houver uma conexão com a Internet.

As funções abaixo são muito úteis para garantir a validade de processos com este perfil:

IsNetConnectViaLAN

IsNetConnectViaModem

IsNetConnectViaProxy

IsNetConnectOnline

IsNetRASInstalled

GetNetConnectString

Divirta-se com o código abaixo, colando-o inteiramente num novo módulo da sua aplicação.

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Copyright ©1996-2011 VBnet/ Randy Birch, All Rights Reserved.

' Some pages may also contain other copyrights by the author.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Distribution: You can freely use this code in your own

'               applications, but you may not reproduce

'               or publish this code on any web site,

'               online service, or distribute as source

'               on any media without express permission.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Declare Function InternetGetConnectedState Lib "wininet" _

  (ByRef dwflags As Long, _

   ByVal dwReserved As Long) As Long

'Local system uses a modem to connect to the Internet.

Private Const INTERNET_CONNECTION_MODEM As Long = &H1

'Local system uses a LAN to connect to the Internet.

Private Const INTERNET_CONNECTION_LAN As Long = &H2

'Local system uses a proxy server to connect to the Internet.

Private Const INTERNET_CONNECTION_PROXY As Long = &H4

'No longer used.

Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8

Private Const INTERNET_RAS_INSTALLED As Long = &H10

Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20

Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

Private Sub Command1_Click()

   Let Text1.Text = IsNetConnectViaLAN()

   Let Text2.Text = IsNetConnectViaModem()

   Let Text3.Text = IsNetConnectViaProxy()

   Let Text4.Text = IsNetConnectOnline()

   Let Text5.Text = IsNetRASInstalled()

   Let Text6.Text = GetNetConnectString()

End Sub

Function IsNetConnectViaLAN() As Boolean

   Dim dwflags As Long

   

  'pass an empty variable into which the API will

  'return the flags associated with the connection

   Call InternetGetConnectedState(dwflags, 0&)

  'return True if the flags indicate a LAN connection

   IsNetConnectViaLAN = dwflags And INTERNET_CONNECTION_LAN

End Function

Function IsNetConnectViaModem() As Boolean

   Dim dwflags As Long

   

  'pass an empty variable into which the API will

  'return the flags associated with the connection

   Call InternetGetConnectedState(dwflags, 0&)

  'return True if the flags indicate a modem connection

   Let IsNetConnectViaModem = dwflags And INTERNET_CONNECTION_MODEM

End Function

Function IsNetConnectViaProxy() As Boolean

   Dim dwflags As Long

   

  'pass an empty variable into which the API will

  'return the flags associated with the connection

   Call InternetGetConnectedState(dwflags, 0&)

  'return True if the flags indicate a proxy connection

   Let IsNetConnectViaProxy = dwflags And INTERNET_CONNECTION_PROXY

End Function

Function IsNetConnectOnline() As Boolean

  'no flags needed here - the API returns True

  'if there is a connection of any type

   Let IsNetConnectOnline = InternetGetConnectedState(0&, 0&)

End Function

Function IsNetRASInstalled() As Boolean

   Dim dwflags As Long

   

  'pass an empty variable into which the API will

  'return the flags associated with the connection

   Call InternetGetConnectedState(dwflags, 0&)

  'return True if the flags include RAS installed

   Let IsNetRASInstalled = dwflags And INTERNET_RAS_INSTALLED

End Function

Function GetNetConnectString() As String

   Dim dwflags As Long

   Dim msg As String

  'build a string for display

   If InternetGetConnectedState(dwflags, 0&) Then

     

      If dwflags And INTERNET_CONNECTION_CONFIGURED Then

         Let msg = msg & "Você tem uma conexão de rede configurada." & vbCrLf

      End If

      If dwflags And INTERNET_CONNECTION_LAN Then

         Let msg = msg & "O sistemas local conecta-se a Internet via LAN"

      End If

      

      If dwflags And INTERNET_CONNECTION_PROXY Then

         Let msg = msg & ", e usuários no Servidor de Proxy. "

      Else

         Let msg = msg & "."

      End If

      

      If dwflags And INTERNET_CONNECTION_MODEM Then

         Let msg = msg & "O sistema local usa um modem para conectar-se a Internet. "

      End If

      

      If dwflags And INTERNET_CONNECTION_OFFLINE Then

         Let msg = msg & "A conexão está offline. "

      End If

      

      If dwflags And INTERNET_CONNECTION_MODEM_BUSY Then

         Let msg = msg & "O sistema de Modem local está ocupado com uma conexão non-Internet. "

      End If

      

      If dwflags And INTERNET_RAS_INSTALLED Then

         Let msg = msg & "Serviço de Acesso Remoto instalado neste sistema."

      End If

      

   Else

    

      Let msg = "Não conectado a Internet agora."

      

   End If

   

   Let GetNetConnectString = msg

End Function

Tags: VBA, Tips, Network, Connection, Type, code, network, DLL, wininet.dll