PDA

View Full Version : سوال: چگونگی فهمیدن متصل بودن به اینترنت



AliRezaBeytari
پنج شنبه 03 اسفند 1391, 18:41 عصر
سلام.
شاید سوالم ابتدایی باشد!
چطوری میشه فهمید که به اینترنت وصل هستیم یا نه؟؟

Hybrid
پنج شنبه 03 اسفند 1391, 18:52 عصر
سلام ، راه حل زیاد داره ، یکی ازشون :


Public Function IsConnectionAvailable() As Boolean
Dim objWebReq As System.Net.WebRequest = System.Net.WebRequest.Create("http://www.google.com/")
Dim objResp As System.Net.WebResponse
Try
objResp = objWebReq.GetResponse
objResp.Close()
objWebReq = Nothing
Return True
Catch ex As Exception
objResp = Nothing
objWebReq = Nothing
Return False
End Try
End Function

AliRezaBeytari
پنج شنبه 03 اسفند 1391, 18:54 عصر
میشه یه سورس بزارید؟

..:: باتشکر ::..

Hybrid
پنج شنبه 03 اسفند 1391, 18:58 عصر
Public Class Form1

Public Function IsConnectionAvailable() As Boolean
Dim objWebReq As System.Net.WebRequest = System.Net.WebRequest.Create("http://www.google.com/")
Dim objResp As System.Net.WebResponse
Try
objResp = objWebReq.GetResponse
objResp.Close()
objWebReq = Nothing
Return True
Catch ex As Exception
objResp = Nothing
objWebReq = Nothing
Return False
End Try
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IsConnectionAvailable() Then
MessageBox.Show("Internet is connected!")
End If

End Sub
End Class

AliRezaBeytari
پنج شنبه 03 اسفند 1391, 19:01 عصر
فهمیدم.
ممنون.

امین مستانی
پنج شنبه 03 اسفند 1391, 20:50 عصر
سلام
یک روش ساده :
یک تابع نوشتم که یک سایت رو پینگ میکنه اگر اطلاعاتی دریافت کرد True و اگر اطلاعاتی نگرفت False رو بر میگردونه :


Public Function IsConnected() As Boolean
Try
Dim Connection As Boolean = My.Computer.Network.Ping("www.google.com")
Return Connection
Catch ex As Exception
Return False
End Try
End Function


موفق باشید