Dando Ping = Resultado [vb6]

[Xpchacker]

1º Post .

'-----------------------------------------'
Simples DoubleClik na Form Na tela Do Fonte Cole isso

'-----------------------------------------'
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

'Chamando a Função'
Private Sub Form_Load()
Dim Result As Boolean: Result = MyPing("200.158.24.129")
If Result = True Then
MsgBox "OK"
Else
MsgBox "Não Respondeu": End If
End Sub

[THiaG04EveR]

Obrigado pela contribuição (:

[tecnico1]

Vou ja exprientar é mexmo o ke vou dar a LP xD

[Alessandro Dias]

ok testei e funcionou, detalhe tem que colococar um IP válido, pode ser o ip da rede mesmo ou do modem ok

ambos funcionou, legal valew.