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

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Descobrindo se o usuário está conectado à Interntet com API
Postada em 5/11/2003 por Tekki            
'Adicione um Button  e use este código no form.

Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Private Const CONNECT_LAN As Long = &H2
Private Const CONNECT_MODEM As Long = &H1
Private Const CONNECT_PROXY As Long = &H4
Private Const CONNECT_OFFLINE As Long = &H20
Private Const CONNECT_CONFIGURED As Long = &H40


Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean
    Dim dwflags As Long
    Dim WebTest As Boolean
    ConnType = ""
    WebTest = InternetGetConnectedState(dwflags, 0&)
    Select Case WebTest
        Case dwflags And CONNECT_LAN: ConnType = "LAN"
        Case dwflags And CONNECT_MODEM: ConnType = "Modem"
        Case dwflags And CONNECT_PROXY: ConnType = "Proxy"
        Case dwflags And CONNECT_OFFLINE: ConnType = "Offline"
        Case dwflags And CONNECT_CONFIGURED: ConnType = "Configurada"
        Case dwflags And CONNECT_RAS: ConnType = "Remota"
    End Select
IsWebConnected = WebTest
End Function

Private Sub Command1_Click()
    Dim msg As String
    If IsWebConnected(msg) Then
        msg = "Você está conectado à Internet via: " & msg
    Else
        msg = "Você não está conectado à Internet."
    End If
    MsgBox msg, vbOKOnly, "Estado de conexão à Internet"

End Sub
 


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