رفتن به مطلب

اموزش تشخیص نصب بودن یک برنامه


bahman

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

اینم کدش

Sub cb As Boolean
Dim pm As PackageManager
Dim packages As List
packages = pm.GetInstalledPackages
For i = 0 To packages.Size - 1
If  packages.Get(i)="com.mxtech.videoplayer.ad" Then Return True
Next
End Sub

برای مثال

من با چک کردن برنامه Mx Player دو تا لیبل رو نمایش میدم


If cb = False Then
Label1.Visible=True
End If
	
	If cb = True Then
Label2.Visible=True
Else
Label1.Visible=True
End If

اگه مورد پسندت بود دکمه پسندیدم یادت نره

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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