Tutorial Iniciação à Programação em VB2010

[machado891]

Boas sagres. Sim claro que te posso ajudar, embora este método seja um bocado mais avançado para estar a incluir no tutorial. Deixo-te o código para incluires no método pois a assinatura do mesmo pode variar em função do que pretendas e isso só tu puderás definir ao certo. Experimenta lá:

If My.Computer.Network.Ping("192.168.10.1") Then
MsgBox("Ping efectuado com sucesso") 'ou outra mensagem qualquer de sucesso
Else
MsgBox("O pedido de ping esgotou") 'ou outra mensagem qualquer de insucesso
End If

Coloquei o IP 192.168.10.1 como exemplo, podes depois optar por colocar outro IP qualquer ou se estiveres a desenvolver uma aplicação passas o IP como o texto de uma textbox ou assim. Não te esqueças é das validações com os pontos e os valores em cada octeto não ultrapassarem 255 e não forem menores que 0. Qualquer duvida adicional apita. E diz.m se funcionou.