با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

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

اینتنت باز کردن ماشین حساب گوشی در B4A

 

Dim Pm As PackageManager
   Dim Inte As Intent
   Dim Packages As List
   Dim st As String

   Packages = Pm.GetInstalledPackages
  
   For i = 0 To Packages.size - 1
      st=Packages.Get(i)
      If st.Contains("calc") =True Then
         Inte=Pm.GetApplicationIntent(st)
                If Inte.IsInitialized Then   StartActivity(Inte)
            Exit
      End If
   Next