بررسی ضعیف بودن اینترنت درb4a

[mohammad2244 1]

سلام

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

کد بررسی ضعیف بودن اینترنت رو می خواستم

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

[مجید آرتا 5,874]

سلام،

شما برای تست سرعت اینترنت می تونید به روشی که در ادامه براتون لینکش رو قرار میدم انجام بدید.

به زبان جاوا هستش شما ترجمه کنید به B4A.

StackOverFlow

 

نتوستید از کدش استفاده کنید، اعلام کنید تا براتون به زبان بیسیک بنویسم.

[mohammad2244 1]

اگه میشه به زبان بیسیک بنوسید

[mohammad2244 1]

لطفا کمکم کنید

[مجید آرتا 5,874]

اوکی، بنده براتون کدش رو مینویسم و قرار میدم

تا صبح نهایتا، چون به سیستم دسترسی ندارم برادر.

[mohammad2244 1]

کسی کمک نمی کنه؟

[porya 959]

سلام اینو یه تست کن...

کد جاوا

#if java
import android.app.Activity;
import android.net.ConnectivityManager;
import android.net.NetworkInfo;
import android.provider.Settings.Secure;
import anywheresoftware.b4a.BA;
public boolean isConnected(){
    ConnectivityManager connMgr = (ConnectivityManager) BA.applicationContext.getSystemService(Activity.CONNECTIVITY_SERVICE);
    NetworkInfo networkInfo = connMgr.getActiveNetworkInfo();
    if (networkInfo != null && networkInfo.isConnected())
        return true;
    else
        return false;
}
#End if

و بعد مثلا تو رویداد کلیک این کد رو بزار اون متد آخر یه مقدار بازگشتی از نوع bool داره که میگه اینترنت وصله یا نه...

	
	Dim jo As JavaObject
	jo.InitializeContext
	Msgbox(jo.RunMethod("isConnected",Null),"")

 

[محمدرضا شاهپیری 5,492]

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

 

Dim pd As PersianDeviceInfo
pd.initialize("pd")
pd.TestInternetConnection

Sub pd_onNetTestRecive(isconnected As Boolean)
	If isconnected Then
		Log("دستگاه به اینترنت متصل است")
	Else
		Log("بسته شما تمام شده است")
	End If
End Sub