تغییر کد بیسیک به جاوا

[مهمان]

با سلام

آیا این کد توی بیسیک:

Sub checkHack As Boolean
  Dim ActMan As JavaObject
  Dim R As Reflector
  R.Target=R.GetContext
    ActMan = R.RunMethod2("getSystemService","activity","java.lang.String")
    Dim TaskInfo As JavaObject = ActMan.RunMethod("getRunningTasks",Array As Object(1))
    Dim CompInfo As JavaObject = TaskInfo.RunMethodJO("get",Array As Object(0)).GetField("topActivity")
    Dim PackageName As String = CompInfo.RunMethod("getPackageName",Null)
   If PackageName.CompareTo("com.farsitel.bazaar")=0 Then Return True
    Return False
End Sub

توی جاوا به این شکله:

public boolean checkHack() {
	    mActivity = null;
	    try {
	    	ActivityManager mActivityManager = (ActivityManager) mActivity.getSystemService(Context.ACTIVITY_SERVICE);
			String mpackageName = null;
			if (Build.VERSION.SDK_INT > 20) {
				mpackageName = mActivityManager.getRunningAppProcesses().get(0).processName;
			} else {
				List<RunningTaskInfo> taskInfo = mActivityManager.getRunningTasks(1);
	            ComponentName componentInfo = taskInfo.get(0).topActivity;
	            mpackageName = componentInfo.getPackageName();
			}
			boolean result = !mpackageName.equals("com.farsitel.bazaar");
			return result;
	    } catch(Exception ex) {
	    	ex.printStackTrace();
	    }
		return false;
	}

اگه فرق داره کسی میتونه کد جاواشو برام بنویسه