فکر می کنم بیشتر شما عزیزان هم از تابع زیر برای چک کردن اتصال دستگاه به اینترنت استفاده می کنید:
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
اخیرا چندین کاربر پیام دادن که میخوایم مثلا بازی رو بخریم میگه اتصال خود را اینترنت چک کنید.
سوال
fun_code 215
سلام
فکر می کنم بیشتر شما عزیزان هم از تابع زیر برای چک کردن اتصال دستگاه به اینترنت استفاده می کنید:
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 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.