مشکل در برنامه (بیدار باش کلش )

[mohsen-star 37]

سلام من یه برنامه  در رابطه با کلش دارم طراحی  میکنم  میخاستم این بخش رو هم به برنامم اضافه کنم (بیدار باش کلش آف کلنز )این کد هارو نوشتم !!

#Region  Project Attributes 
 #ApplicationLabel: B4A Example
 #VersionCode: 1
 #VersionName: 
 'SupportedOrientations possible values: unspecified, landscape or portrait.
 #SupportedOrientations: unspecified
 #CanInstallToExternalStorage: False
#End Region

#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.

End Sub

Sub Globals
 Dim phone1 As PhoneWakeState

 Private Button1 As Button
 Private Button2 As Button
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("mohsen")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
 phone1.KeepAlive(True)
 Msgbo(angry)" با موفقیت فعال شد ","  موضوع" )
 Dim  i As  Intent
Dim  pm As  PackageManager
i = pm.GetApplicationIntent("com.supercell.clashofclans")
If  i.IsInitialized Then
   StartActivity(i)    
End  If
End Sub

صفحه خاموش نمیشه  ولی خوب این ارور رو میده

 

 این ارور از چیه ؟ چطوری  حلش کنم ؟

[مهمان]

فقط جلوگیری از خاموش شدن صفحه کافی نیست . باید اپ را هر چند مدت تو تایمر ری استارت کنید ( با اینتنت )

[امین شاهدی 5,773]

من کلش بازی نکردم ولی تو ارور زده فعال نبودی تو بازی disconnect کرده 

[mohsen-star 37]

فقط جلوگیری از خاموش شدن صفحه کافی نیست . باید اپ را هر چند مدت تو تایمر ری استارت کنید ( با اینتنت )

میشه بیشتر توضیح بدید ؟

میتونید کد بدید ؟

[mohsen-star 37]

اپ

[مهمان]

اپ

حداقل زمان Bump کرد تاپیک 12 ساعت است .

خیر . سورس اماده وجود ندارد .

هشدار داده شد !