رفتن به مطلب
  • 0

شروع به کار پس از راه اندازی مجدد


berayan

سوال

AddPermission(android.permission.RECEIVE_BOOT_COMPLETED)

با احترام

 

کد بالا (شروع به کار پس از راه اندازی مجدد )رو به برنامه اضافه میکنه 

 

این کدو به منفیست اضافه کردم ولی بلد نیست داخل اکتیویتی چطوری ازش استفاده کنم .

 

ممنون میشم راهنمایی کنید .

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

2 پاسخ به این سوال تاکنون داده شده است

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

شروع به کار پس از راه اندازی مجدد؟؟یعنی چی؟! :fekr:

یعنی بعد از روشن شدن گوشی، اتوماتیک برنامه بالا بیاد؟

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

سلام

 

اگر میخواید بعد ریبوت کردن گوشی برنامتون بالا بیاد ی سرویس ایجاد کنید و کدای زیر رو بنویسید :

#Region  Service Attributes
    #StartAtBoot: 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.
 
    Private tmrStart As Timer
 
End Sub
Sub Service_Create
    '--- set timer to start app after 1 seconds
    '--- this gives time for system to init other stuff
    tmrStart.Initialize("tmrStart",1000)
End Sub

Sub Service_Start (StartingIntent As Intent)
    '--- enabled timer
    tmrStart.Enabled = True
End Sub

Private Sub Service_Destroy
End Sub


Sub tmrStart_Tick
    tmrStart.Enabled = False
    '--- if we find the file 'autoStart.dat' in the folder 'File.DirInternal'
    '--- then auto start the app.
    Dim checkFile As String = "autoStart.dat"
    If File.Exists(File.DirInternal,checkFile) Then
        Log("Auto Start is enabled")
        StartActivity(Main) 
    Else
        Log("Auto Start is disabled")
    End If
 
End Sub
Sub SetAutoStartAppOn(turnON As Boolean) 
    Dim checkFile As String = "autoStart.dat"
    If turnON Then
        If Not (File.Exists(File.DirInternal,checkFile)) Then
            File.WriteString(File.DirInternal,checkFile,"on")
        End If
    Else
        If File.Exists(File.DirInternal,checkFile) Then
            File.Delete(File.DirInternal,checkFile)
        End If
    End If
End Sub

Public Sub GetAutoStartAppOn() As Boolean
    Dim checkFile As String = "autoStart.dat"
    If File.Exists(File.DirInternal,checkFile) Then 
        Return True
    Else
        Return False
    End If
End Sub

ب این خیلی توجه کنید :

#StartAtBoot: True
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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