Try
'Google IP numaralarına ping at
Dim internet = My.Computer.Network.Ping("208.67.222.222")
If internet = True Then
MsgBox("internet var")
Else
MsgBox("internet yok")
End If
Catch ex As Exception
MsgBox("internet yok" & Chr(13) & "...")
End Try
Ping Uygulaması
Bu Konudaki Yorumlar |
Ping Uygulaması - Yazar: chevy - 18/02/2014, 01:08
Cvp: Ping Uygulaması - Yazar: C*e*l*o*y*c*e - 18/02/2014, 03:12
Cvp: Ping Uygulaması - Yazar: chevy - 18/02/2014, 14:48
Cvp: Ping Uygulaması - Yazar: chevy - 20/02/2014, 22:00
|
Konuyu Okuyanlar: 1 Ziyaretçi