1:Try2:IfMy.Computer.Network.Ping("SITE")Then3:End If4:CatchexAs Exception5:End Try
em "SITE" você pode colocar o google por exemplo, e dentro da chave do If coloque a ação que queria caso consiga pingar
1:Try2:IfMy.Computer.Network.Ping("SITE")Then3:End If4:CatchexAs Exception5:End Try
Copyright © 2015 Projeto Programação
Distributed By My Blogger Themes | Designed by Templateism
0 comentários:
Postar um comentário