نوشتن برنامه ping در vb.net2010

[darbdar]

سلام

من می خواستم یه برنامه با vb.net2010بنویسم که وقتی روی buttnکلیک میکنی یه سایتو که تو کد بهش میگی pingکنه و درصورت ping شدن یا نشدن با msgbox الارم بده.کسی می تونه کمکم کنه؟؟؟؟

[lastmory]

با سلام
Dim Ping As New Ping
Dim pReply As PingReply
pReply = Ping.Send("192.168.1.4")
If pReply.Status = IPStatus.Success Then
lbl_Connection.Text = "ارتباط برقرار شد"

Else

lbl_Connection.Text = "ارتباط برقرار نشد"
MsgBox("ارتباط با آی پی " & ClsGeneral._Endpoint & " برقرار نشد ", MsgBoxStyle.Exclamation Or MsgBoxStyle.MsgBoxRight, "خطای اتصال")

End If

[sehm67]

سلام سال نو مبارک.


Try
My.Computer.Network.Ping("www.google.com")
MsgBox("yes")
Catch ex As Exception
MsgBox("No")
End Try

[viiictor]

حتما میخواهید از پینگ استفاده کنید یا فقط میخواهید مطمئن شوید سایت مورد نظر باز میشود ؟