VB e Internet

[MetalPhoeniX 0]

Olá pessoal,gostaria de saber como checar se estou conectado a internet ou não.Eu conheço o método de checar o IP, se for diferente de 127.0.0.1, mas não é 100% funcional ele.Alguêm conhece outro método?Valeu!

[Fabyo 66]

coloque essa declaração no "general" num modulo ou no formulario

 

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

 

crie uma função

 

Private Function Status() As Boolean
Status = InternetGetConnectedState(0&, 0&)
End Function

 

depois só testa o Status se retornar true é porque esta conectado

 

se você quiser testar se o tipo de conexao é via lan ou modem posta ai que eu te ajudo

[MetalPhoeniX 0]

Só mais uma dúvida...essa função e a dll wininet.dll tem em todos os windows?Muito obrigado pela resposta.