
Sub downloadAp
	Try
		Dim p As PhoneIntents
		StartActivity(p.OpenBrowser("myket://details?id="&Application.PackageName))
 	Catch
		Log(LastException)
	End Try
End Sub
   
Sub popup1
	Try
		func.TextShare("https://myket.ir/app/"&Application.PackageName)
 	Catch
		Log(LastException)
	End Try
End Sub

Sub nazar
	Try
		Dim i As Intent
		i.Initialize(i.ACTION_VIEW, "myket://comment?id=" & Application.PackageName)
		StartActivity(i)
	Catch
		Log(LastException)
	End Try
End Sub


***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************


Sub downloadAp
	Try
		Dim p As PhoneIntents
		StartActivity(p.OpenBrowser("bazaar://details?id="&Application.PackageName))
	Catch
		Log(LastException)
	End Try
End Sub
   
Sub popup1
	Try
		func.TextShare("https://cafebazaar.ir/app/"&Application.PackageName)
	Catch
		Log(LastException)
	End Try
End Sub

Sub nazar
	Try
		Dim i As Intent
		i.Initialize(i.ACTION_EDIT, "bazaar://details?id=" & Application.PackageName)
		i.SetPackage("com.farsitel.bazaar")
		StartActivity(i)
	Catch
		Log(LastException)
	End Try
End Sub

***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************

 
Sub downloadAp
	Try
		Dim p As PhoneIntents
		StartActivity(p.OpenBrowser("https://play.google.com/store/apps/details?id="&Application.PackageName))
	Catch
		Log(LastException)
	End Try
End Sub
   
Sub popup1
	Try
		func.TextShare("https://play.google.com/store/apps/details?id="&Application.PackageName)
	Catch
		Log(LastException)
	End Try
End Sub

Sub nazar
	Try
		Dim p As PhoneIntents
		StartActivity(p.OpenBrowser("https://play.google.com/store/apps/details?id="&Application.PackageName))
	Catch
		Log(LastException)
	End Try
End Sub

***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************
***************************************

 
  
	#if PARVAZ_ROOH
  	
	#Else If MOLAGHAT_BA_EMAM_ZAMAN
	
	#Else If DAR_MAHZAR_OSTAD_1
	
	#Else If DAR_MAHZAR_OSTAD_2
	
	#Else If SEYR_1
	
	#Else If SEYR_2
	
	#Else If SEYR_3
	
	#Else If SEYR_4
	
	#Else If SHAB_MAKEH
	
	#Else If MOSLEH_GHEYBI
	
	#Else If MOSLEH_ZAMAN
	
	#Else If ANVAR_ZAMAN
	
	#Else If ETTEHAD
	
	#Else If AVAMEL_PISHRAFT
	
	#Else If ALAM_ARVAH
	
	#Else If TOZIH_QURAN
	
	#Else If AHKAM
	
	#Else If RAHKHODA
	
	#Else If DOMAGHALEH
	
	#Else If RASOOL_KHODA
	
	#Else If AMIR_MOMENIN
	
	#Else If ANVAR_ZAHRA
	
	#Else If EMAM_MOGTABA
	
	#Else If EMAM_HOSEIN
	
	#Else If AGHAED
	
	#Else If EZDEVAG
	
	#Else If BIDARI
	
	#Else If EMAM_ZAMAN
	
	#Else If DARBAREH
	
	#Else If TARBIAT
	
	#Else If KLID
	 
	#End If