تست اتصال به اینترنت

[milad19 113]

باسلام خدمت دوستان

ببخشید کسی از دوستان ایده ای برای تست اتصال دستگاه به اینترنت بجز روشی که آقا آرمین گفتن(آموزش تصویری) نداره؟

چون من برنامم با این روش مشکل داره و کاریش نمیشه کرد.

[مهران محمودی 778]

من نمیدونم آرمین عزیز چه روشی رو گفته.. نت درست حسابی ندارم که همه آموزشهای تصویری رو دنبال کنم، ولی این تاپیک رو نگاه کن شاید کمکی بهت کرد:

http://answercenter.ir/topic/24-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%D9%88%D8%B6%D8%B9%DB%8C%D8%AA-%D8%A7%DB%8C%D9%86%D8%AA%D8%B1%D9%86%D8%AA-%D8%AF%D8%B1-basic4android/

[milad19 113]

من نمیدونم آرمین عزیز چه روشی رو گفته.. نت درست حسابی ندارم که همه آموزشهای تصویری رو دنبال کنم، ولی این تاپیک رو نگاه کن شاید کمکی بهت کرد:

http://answercenter.ir/thread25.html

داداش تشکر ولی چیز زیادی دستگیرم نشد

پ.خ دادم لطفا چک کنید

اینجا هم توضیح میدم

من یک ایمیج ویو دارم و میخوام وقتی روش کلیک میشه اگه اتصال به اینترنت وجود داشته باشه یک اکتیویتی و در غیر این صورت یک اکتیویتی دیگه باز بشه.پیشاپیش از راهنماییتون ممنونم

[nicetitle 18]

ببین بدردت میخوره...هرچند آموزش آقای محمودی بنظرم بهتره

  If checkinternet=True Then
Msgbox ("اینترنت شما وصل است","متصل شد")
Else
Msgbox ("لطفا اینترنت خود را فعال کنید","خطا در اتصال")
End If 

Sub CheckConnection As Boolean 

      Dim p As Phone 

   If (p.GetDataState == "CONNECTED") Then 
       Return True 
   End If 
   If (p.GetSettings ("wifi_on") == 1) Then 
       Return True 
   End If 
   If (p.GetSettings ("wifi_on") == 2) Then 
       Return True 
   End If 
   If (p.GetSettings ("wifi_on") == 2) AND (p.GetDataState == "DISCONNECTED") Then 
       Return True 
   End If 
   If (p.GetDataState == "DISCONNECTED") Then 
       Return False 
   End If 
   If (p.GetDataState == "SUSPENDED") Then 
       Return False 
   End If 
   If (p.GetSettings ("wifi_on") == 2) Then 
       Return True 
   End If 
End Sub  

[milad19 113]

تشکر از همه ی دوستان

با همه ی روش ها به نتیجه ی دلخواه رسیدم ولی روش آقای محمودی سریع تر بود و ازش استفاده کردم