چک کردن متصل بودن به اینترنت

[koorosh-soft]

دوباره سلام
اینم فکر کنم تاپیک 4-5 ی باشه که این هفته میزنم ! امید وارم مثل قبلی ها بی جواب نمونه!

سوالی که داشتم اینه :
آیا راهی هست که اتصال کامپیوتر به اینترنت تست شه ؟ و البته بدون پینگ کردن و این کارا !
آیا ویندوز Event ی ایجاد نمیکنه که از طریق اون بشه تست کرد ؟
آیا API خاصی وجود نداره برای اینکار ؟

[alimanam]

با سلام

تابع زیر برات این کار رو انجام میده :


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


موفــــق باشید./

[shahryari]

راه های زیادی وجود دارد اما بهترین روشی هست در تابع زیر آوردم:



Public Function IsConnectionAvailable(ByVal time_out As Integer) As Boolean
Try
Return My.Computer.Network.Ping("www.google.com", time_out)
Catch ex As Exception
Return False
End Try
End Function

روش استفاده ازش خیلی راحته. فقط این تابع رو به فرم خودتون اضافه کنید و اونرو فراخوانی کنید. این تابع فقط یک آرگومان یا پارامتر داره
که مدت زمان تست اینترنت رو بر حسب میلی ثانیه باید به اون بگید که معمولا من خودم این عدد رو بین 10000 تا 50000 یعنی بین 20 تا 50 ثانیه تغییر میدم.
مقدار برگشتی تابع هم یا true هست یا false . که اگر true باشد سیستم به اینترنت وصل است و در غیر اینصورت وصل نیست
اما روش فراخوانی :

If IsConnectionAvailable(20000) = True Then
MsgBox("سیستم شما به اینتر نت متصل است")
Else
MsgBox("سیستم شما به اینتر نت متصل نمی باشد")
End If
ز

با تشكر از استاد عزيزم جناب آقاي مهندس فراهاني
موفق باشید

[saeidpsl]

من قبلآ یه مشکل داشتم که اینترنتم بعضی وقتها قطع میشد برای وصل شدن دوباره Wireless Network Connection رو قطع و وصل میکردم
واسه همین به فکر ساختن یه برنامه افتادم
که کارش اینه که هم اینترنت رو چک میکنه هم Wireless Network Connection قطع و وصل میکنه
اینم لینک سورس برنامه :

http://up98.org/upload/server1/02/j/vc8pniybs9b5atku4tje.zip

[hakim22]

از فرمان My.Computer.Network.IsAvailable استفاده کنید.