View Full Version : سوال: چگونگی فهمیدن متصل بودن به اینترنت
AliRezaBeytari
پنج شنبه 03 اسفند 1391, 19:41 عصر
سلام.
شاید سوالم ابتدایی باشد!
چطوری میشه فهمید که به اینترنت وصل هستیم یا نه؟؟
Hybrid
پنج شنبه 03 اسفند 1391, 19: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, 19:54 عصر
میشه یه سورس بزارید؟
..:: باتشکر ::..
Hybrid
پنج شنبه 03 اسفند 1391, 19: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, 20:01 عصر
فهمیدم.
ممنون.
امین مستانی
پنج شنبه 03 اسفند 1391, 21: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
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.