رفتن به مطلب
  • 0

تابع چک کردن اتصال دستگاه به اینترنت


fun_code

سوال

سلام

 

فکر می کنم بیشتر شما عزیزان هم از تابع زیر برای چک کردن اتصال دستگاه به اینترنت استفاده می کنید:

Sub check_connect
	Dim P As Phone,server As ServerSocket
	Try
		server.Initialize(0, "")
		If server.GetMyIP = "127.0.0.1" Then Return False
		If Not(P.GetDataState.EqualsIgnoreCase("CONNECTED")) And server.GetMyWifiIP = "127.0.0.1" Then Return False
		Return True
	Catch
		Return False
	End Try
End Sub

اخیرا چندین کاربر پیام دادن که میخوایم مثلا بازی رو بخریم میگه اتصال خود را اینترنت چک کنید.

این پیام یعنی تابع بالا خروجی اشتباه میده.

برای رفع این مشکل چکار کنیم ؟!

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

در 2 ساعت قبل، KMOHAMMAD گفته است :

سلام

من همین  کد را استفاده کردم خطا میده 

نباید به مانیفست پیز یاضافه بشه؟؟؟؟

اگر بله

چیه؟؟

اگر ایراد از مانیفست بود کد دسترسی access.INTERNET رو بش بدید.

ولی یه راه دیگه هم وجود داره: اینکه یه متغیر از نوع httpjob تعریف کنید و از طریقش یه فایل تکست کم حجم رو دانلود کنید، و در تابع JobDone شرط بذارید اگر موفق بود یعنی اینترنت وصله، اینم دسترسی نمیخواد و مطمئنه.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

 

فکر می کنم بیشتر شما عزیزان هم از تابع زیر برای چک کردن اتصال دستگاه به اینترنت استفاده می کنید:

Sub check_connect
	Dim P As Phone,server As ServerSocket
	Try
		server.Initialize(0, "")
		If server.GetMyIP = "127.0.0.1" Then Return False
		If Not(P.GetDataState.EqualsIgnoreCase("CONNECTED")) And server.GetMyWifiIP = "127.0.0.1" Then Return False
		Return True
	Catch
		Return False
	End Try
End Sub

اخیرا چندین کاربر پیام دادن که میخوایم مثلا بازی رو بخریم میگه اتصال خود را اینترنت چک کنید.

این پیام یعنی تابع بالا خروجی اشتباه میده.

برای رفع این مشکل چکار کنیم ؟!

سلام

دوست عزیز با استفاده از کتابخونه Arialib و کد زیر میتونی اینکارو بکنی

خیلی هم ساده

	Dim aria As AriaLib
	If aria.TestInterntConnection = False Then
		ToastMessageShow("اینترنت برقرار نیست",False)
	Else If aria.TestInterntConnection = True Then
		ToastMessageShow("اینترنت برقرار است",False)
	End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

دوست عزیز با استفاده از کتابخونه Arialib و کد زیر میتونی اینکارو بکنی

خیلی هم ساده

	Dim aria As AriaLib
	If aria.TestInterntConnection = False Then
		ToastMessageShow("اینترنت برقرار نیست",False)
	Else If aria.TestInterntConnection = True Then
		ToastMessageShow("اینترنت برقرار است",False)
	End If

 

سلام

ممنونم از راهنماییتون

لطف می کنید کتابخونه رو هم پیوست کنید ؟

یعنی برای چک کردن راهی جز چک کردن اتصال به نت سیم کارت و وای فای وجود داره ؟

شما که از این کتابخونه استفاده می کنید ، تا الان کاربری مشکلی که عرض کردم رو گزارش نکرده ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

ممنونم از راهنماییتون

لطف می کنید کتابخونه رو هم پیوست کنید ؟

یعنی برای چک کردن راهی جز چک کردن اتصال به نت سیم کارت و وای فای وجود داره ؟

شما که از این کتابخونه استفاده می کنید ، تا الان کاربری مشکلی که عرض کردم رو گزارش نکرده ؟

بنده تا الان مشکلی با این کد نداشتم هم ساده هست هم قابل اطمینان با خیال راحت استفاده کنید

 

لینک کتابخونه Arialib 

http://s3.picofile.com/file/8222573584/AriaLib_v6.zip.html

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1394/10/16, 21:38:57، Hamed Sabet Farhadi گفته است :

سلام

دوست عزیز با استفاده از کتابخونه Arialib و کد زیر میتونی اینکارو بکنی

خیلی هم ساده


	Dim aria As AriaLib
	If aria.TestInterntConnection = False Then
		ToastMessageShow("اینترنت برقرار نیست",False)
	Else If aria.TestInterntConnection = True Then
		ToastMessageShow("اینترنت برقرار است",False)
	End If

سلام

من همین  کد را استفاده کردم خطا میده 

نباید به مانیفست پیز یاضافه بشه؟؟؟؟

اگر بله

چیه؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...