CONEXAO COM INTERNET

USUARIO.EXCLUIDOS 05/09/2007 20:09:54
#234364
pessoal,

alguem tem algum script no VB 6, que indique se meu computador está conectado ou não com a Internet.

Como faço isso?

Atc,
Rodrigo
USUARIO.EXCLUIDOS 05/09/2007 21:29:23
#234369
Seguinte,
Eu tinha um codigo desses, mas desisti pois depois de ter alguns problemas, tentei alguns outros também, mas nemhum funcionou perfeitamente.
O que acontece é que depende do tipo de conexão que esta sendo utilizado, da pau. Ex: A Conexão pode ser via modem discada,
vi
a modem adsl mas passando por um hub em ponto a ponto.

Bom , tomara que vc ache , não digo que é impossivel.

Boa Sorte
SILVERDRAGON 05/09/2007 23:18:01
#234374
Uma gambiarra q tu pode fazer é o seguinte.....

Vc pode executar um ping...caso esse ping retorne uma resposta esta conectado, se nao retornar nada é pq nao esta......


Gambiarra pura + funciona...

T+ Amigo osasquence
USUARIO.EXCLUIDOS 07/09/2007 18:13:47
#234663
De uma olhada no link:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=69279&lngWId=1
USUARIO.EXCLUIDOS 07/09/2007 18:52:07
#234667 Resposta escolhida
Não me recordo onde peguei o código abaixo mas pelo menos até agora , linha discada ou spped funciona
coloquei a chamada da função no timer


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
Private Const CONNECT_RAS As Long = &H80



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

Dim Msg As String
If IsWebConnected(Msg) Then
LblStatusConect.Caption = "Você está conectado à Internet via: " & Msg
Else
LblStatusConect.Caption = "Você não está conectado a Internet "
End If
End Sub
USUARIO.EXCLUIDOS 10/09/2007 17:31:53
#234943
Valeu, JRicardo.

Testei numa rede corporativa e funcionou. Vou testar em casa, via linha discada.

Outra dúvida: eu tenho mais de um discador no meu PC. Existe algum script (algo parecido com esse) para eu saber o nome da conexão que está ativa no momento?

Atc,
Tópico encerrado , respostas não são mais permitidas
Voltar