COMO PINGAR UM COMPUTADOR RAPIDAMENTE EM VB 6

PIETRO1901 10/03/2012 20:03:09
#396874
No site da Microsoft diz que precisa usar o seguinte código:

If My.Computer.Network.Ping([Ô]198.01.01.01[Ô]) Then
MsgBox([Ô]Server pinged successfully.[Ô])
Else
MsgBox([Ô]Ping request timed out.[Ô])
End If

http://msdn.microsoft.com/pt-br/library/s9xkzk4s.aspx

porém usei , só da pau , alguem me explica por favor faloww
LVFIOROT 10/03/2012 20:24:31
#396875
so troquei o nome e deu certo para dns

If My.Computer.Network.Ping([Ô]www.cade.com.br[Ô], 1000) Then
MsgBox([Ô]Server pinged successfully.[Ô])
Else
MsgBox([Ô]Ping request timed out.[Ô])
End If


para ip tem que ser como é escrito o ip e nao com esses zeros na frete

If My.Computer.Network.Ping([Ô]www.cade.com.br[Ô], 1000) Then
MsgBox([Ô]Server pinged successfully.[Ô])
Else
MsgBox([Ô]Ping request timed out.[Ô])
End If

If My.Computer.Network.Ping([Ô]192.168.1.1[Ô], 100) Then
MsgBox([Ô]Server pinged successfully.[Ô])
Else
MsgBox([Ô]Ping request timed out.[Ô])
End If
OCELOT 10/03/2012 20:26:32
#396876
Esse código é para VB.Net e não para VB6
LVFIOROT 10/03/2012 21:27:21
#396877
em vb 6

http://support.microsoft.com/kb/300197
Tópico encerrado , respostas não são mais permitidas
Voltar