پارسه : سوال مهم در ارتباط با parse

[mortezasaidi 6]

با عرض سلام خدت اساتید محترم

من سرویس پارسه را در نرم افزار ها پیدا سازی کرده ام

و توانسته ام با این سرویس کار کنم و بیش از 100 هزار عضو هم دارد ولی یک اشتباه راهبردی کردم

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

حالا سوال من این است که من چگونه می توانم در تنظیمات برنامه و کد ها تغیراتی ایجاد کنم که بشود سایت هم با این نوتیفیکیشن ها باز کرد

این کد نوتیفیکیشن من در بیسیک

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim PreviousHash As String
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim aria As AriaMarkets
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	Activity.Title = "Notification"

End Sub

Sub Activity_Resume	
	Dim title, msg, Alert, Hash, Channel As String
	Dim StartingIntent As Intent
	Dim JSON As JSONParser	
	StartingIntent = Activity.GetStartingIntent
	
	JSON.Initialize(StartingIntent.GetExtra("com.parse.Data"))
	Dim DataMap As Map
	
	DataMap = JSON.NextObject
	Alert = DataMap.Get("alert")
	Hash = DataMap.Get("push_hash")	
	Channel = StartingIntent.GetExtra("com.parse.Channel")
	
title=DataMap.Get("title")
Alert=DataMap.Get("alert")
Log(DataMap.Get("package"))
	
	aria.Cafebazaar_SafheBarname(DataMap.Get("package"))
	
	If DataMap.Get("run") = True Then
		If DataMap.Get("app") <> "" Then
			
		End If
	End If
	
	If Hash <> PreviousHash Then
		title = "New Notification"
		PreviousHash = Hash
	Else
		title = "Old Notification"
	End If

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

ممنون می شوم بفرمایید چگونه اصلاح کنم که قابلیت باز کردن سایت هم داشته باشد یعنی ادرس سایت بفرستم در پوش

تشکر :53: :53:

[dostmobile 329]

سلام من ازین کد استفاده میکنم

هم لینک باز میکنم و تلگرام و ..

 

نام سرویس رو بزارین Notification

Sub Activity_Create(FirstTime As Boolean)

	'Activity.LoadLayout("Layout1")'
	Activity.Title = "Notification"

End Sub

Sub Activity_Resume	
	Dim title, msg, Alert, Hash, Channel As String
	Dim StartingIntent As Intent
	Dim JSON As JSONParser	
	StartingIntent = Activity.GetStartingIntent
	
	JSON.Initialize(StartingIntent.GetExtra("com.parse.Data"))
	Dim DataMap As Map
	
	DataMap = JSON.NextObject
	Alert = DataMap.Get("alert")
	Hash = DataMap.Get("push_hash")	
	Channel = StartingIntent.GetExtra("com.parse.Channel")
	
	Log(DataMap.Get("link"))
	Log(DataMap.Get("sound"))
	
	Dim i1 As PhoneIntents
         If DataMap.Get("link")<>"" Then
			 StartActivity(i1.OpenBrowser(DataMap.Get("link")))
			 
		End If
	
	
	If Hash <> PreviousHash Then
		title = "New Notification"
		PreviousHash = Hash
	Else
		title = "Old Notification"
	End If

Activity.Finish 
End Sub

 نمونه ارسال با جیسون

{ 
"alert": " TEXT",
 "link": "http://cafebazaar.ir/app/?id=com.dostmobile.ringtone"
 }

[طاها 480]

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

[mortezasaidi 6]

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

دوست عزیز نوشته تقریبا 6 ماه دیگه

خب من باید این چند صد هزار عضو را انتقال دهم سرویس دیگری بلاخره

اگر می دانید بفرمایید من چگونه این قابلیت را اضافه کنم

ممنون می شوم