VERIFICAR SE ESTA CONECTADO NA INTERNET

MICHAELL 11/10/2010 11:33:33
#354830
BEM, INFELIZMENTE COMO EU TINHA FEITO FICA MEIO [Ô]RUIM[Ô]...
pois se o internet explorer estiver trabalhando como OFFLINE ele não executa corretamente.



alguem pode me ajudar?
MICHAELL 11/10/2010 11:59:06
#354835
tem como colocar o internet explorer como modo ONLINE via codigo?
MICHAELL 20/10/2010 14:54:06
#355539
pessoal.. estou declarando uma variavel assim:

      Dim ip As String
    Dim http As Object [ô] Inet
    
    Set http = CreateObject([Ô]InetCtls.Inet[Ô])
    
    ip = http.OpenURL([Ô]http://www.meusite.com.br/ip.php[Ô])



ele ta dando o seguinte erro em outros computador

Rum-Time error [ô]429[ô]
ActiveX component can[ô]t create object

no meu pc que tem vb6 funciona
alguem sabe qual arquivo seria para funcionar correto em outros pc?
MARCELO.TREZE 20/10/2010 17:44:19
#355553
vc tem que distribuir a ocx (MSINET.OCX) que se encontra na pasta c:\windows\system32

ou seja copie esta ocx cole na pasta do outro pc e registre.
DARKFOX 31/12/2010 13:55:14
#360788
Sei que o post é antigo mas eu uso o seguinte código

Winsock1.Close
Winsock1.Bind
If Winsock1.LocalIP = [Ô][Ô] Or Winsock1.LocalIP = [Ô]127.0.0.1[Ô] Then
MsgBox [Ô]Sem net [Ô] & Winsock1.LocalIP
Else
MsgBox [Ô]Com net [Ô] & Winsock1.LocalIP
End If
MARCELO.TREZE 31/12/2010 16:27:33
#360804
caro colega DarkFox, seu código retorna o ip da máquina local, então sempre dará retorno positivo

o certo seria fazer um ping em um site

veja este código

Private Declare Function Ping Lib [Ô]iphlpapi[Ô] _
Alias [Ô]#65[Ô] (ByVal pInternetProtocol As Long, pNumberOfCalls As Long, _
ByVal pMaxNumberOfCalls As Long, lTime As Long) As Long


Private Declare Function ConvertStringToIP Lib [Ô]wsock32[Ô] _
Alias [Ô]#10[Ô] (ByVal stoip As String) As Long


Function MyPing(sIPAddr As String) As Boolean
Dim IP As Long, pNumCalls As Long, lTime As Long
IP = ConvertStringToIP(sIPAddr)
MyPing = (Ping(IP, pNumCalls, 15, lTime) = 1)
End Function



Private Sub Command1_Click()
Dim Result As Boolean
Result = MyPing([Ô]72.14.204.147[Ô]) [ô]este ip é de um site de busca famoso
If Result = True Then
MsgBox [Ô]OK[Ô]
Else
MsgBox [Ô]Não Respondeu[Ô]
End If
End Sub


o código acima retirei da seção de dicas aqui do forum, apenas coloquei o ip.

será enviado um ping pára o site, se estiver sem retorno ou seja sem internet ele informa, porém se o site estiver fora do ar, coisa que nunca vi com este site, também ocorrerá erro.

mas é a forma mais correta de saber se existe internet ou não
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar