ساخت lock Screen در b4a

[مصطفی حقیقی 176]

فقط کد های تو Activity_Create و Activity_Resume رو پاک کنید همین

 

البته به غیر از StartService(lock)

[AMiN.M7892 1,029]

دوستان فکر نمیکنم مشکل من به این تاپیک ربطی داشته باشه ولی سوال رو می پرسم چون احتمالا شما بهش برخوردید

کسی با کتابخانه LocScreen کار کرده؟

روش کارش چجوریه؟

ممنون میشم یه توضیح کامل راجع به هر کدوم از توابع اش بدید چون خودش هیچ توضیحی نداده راجع به کتابخانه

ممنون میشم کمک کنید 

[pooyagh88 0]

سلام

می دونم خیلی از شماها دنبال این موضوع هستید

گفتم یه آموزش جنجالی بذارم حالشو ببرید دیگه *vibre*

خب شما اول میاید یه Intent تعریف می کنید

مهم همین جاست که اجزای intent چی باشه

به این شکل بنویسید

Dim i As Intent
    i.Initialize (i.ACTION_MAIN ,"")
    i.AddCategory ("android.intent.category.HOME")
    i.Flags =0x3400000
    i.SetComponent("android/com.android.internal.app.ResolverActivity")

بعد میایم یه Service Module ایجاد می کنیم

StartService(lock)

حالا اینم کد کلی که باید داخل Activity_Create بذارین

Sub Activity_Create(FirstTime As Boolean)
    Dim i As Intent
    i.Initialize (i.ACTION_MAIN ,"")
    i.AddCategory ("android.intent.category.HOME")
    i.Flags =0x3400000
    i.SetComponent("android/com.android.internal.app.ResolverActivity")
	StartService(lock)
	Activity.Finish
End Sub

حالا می خوایم چک کنیم که Lock Screen ما تنظیم شده یا نه

Sub Activity_Resume
    Dim r As Reflector
    r.Target = Activity.GetStartingIntent
    If r.RunMethod2("hasCategory", "android.intent.category.HOME", "java.lang.String") Then
	    Log(Activity.GetStartingIntent)
    End If
End Sub

کار ما تو ".Main" تموم شد میریم سراغ Service خودمون که من اسمش رو گذاشتم "lock"

حالا یه BroadCastReceiver تعریف کنید

Dim Broadcast As BroadCastReceiver

بعد تو Service_Start تنظیمش کنید

Sub Service_Start (StartingIntent As Intent)
    Broadcast.addAction("android.intent.action.SCREEN_OFF")
	Broadcast.SetPriority(2147483647)
	Broadcast.registerReceiver("") 'here you can add the main action (intent)
End Sub

حالا هم sub برای OnReceived میسازیم که محتویاتش برای استارت زدن activity lock ماست

Sub BroadcastReceiver_OnReceive (Action As String,Obj As Object)
	    Dim Intent1 As Intent
        Intent1.Initialize(Intent1.ACTION_MAIN, "")
		Intent1.Flags = 268435456
        Intent1.SetComponent("ehem.ehem/.sa")
		StartActivity(Intent1)
End Sub

اینم یادتون نره که حتما یه activity دیگه هم بسازین که وقتی lock شد به رو اون که اسم activity من اینجا sa هست

بعد برین به manifest editor خودتون و این کد رو بهش اضافه کنید

AddActivityText("main",
<intent-filter>
<action android:name="android.intent.action.MAIN" />
<category android:name="android.intent.category.HOME" />
<category android:name="android.intent.category.DEFAULT" />
<category android:name="android.intent.category.MONKEY"/>
</intent-filter>)

تموم شد

ایشالا که به کارتون بیاد

اگه مشکلی بود بگین

 

سلام با تشکر از شما

فقط ی اشکال هست

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

یعنی  کد عوض شده

یا یک مشکلی داره لطفا راهنمایی کنید ممنون

[pooyagh88 0]

این کد کار نمیده

البته اون برنامه ای ک فایلapkپیوست شده درستا کامله اون کار میده ولی این کد را اگه بنویسیا اجرا کنی هیچ خطایی نمیده ولی کار نمیده

چکار کنم  ممنون؟؟

[pooyagh88 0]

سلام

می دونم خیلی از شماها دنبال این موضوع هستید

گفتم یه آموزش جنجالی بذارم حالشو ببرید دیگه *vibre*

خب شما اول میاید یه Intent تعریف می کنید

مهم همین جاست که اجزای intent چی باشه

به این شکل بنویسید

Dim i As Intent
    i.Initialize (i.ACTION_MAIN ,"")
    i.AddCategory ("android.intent.category.HOME")
    i.Flags =0x3400000
    i.SetComponent("android/com.android.internal.app.ResolverActivity")

بعد میایم یه Service Module ایجاد می کنیم

StartService(lock)

حالا اینم کد کلی که باید داخل Activity_Create بذارین

Sub Activity_Create(FirstTime As Boolean)
    Dim i As Intent
    i.Initialize (i.ACTION_MAIN ,"")
    i.AddCategory ("android.intent.category.HOME")
    i.Flags =0x3400000
    i.SetComponent("android/com.android.internal.app.ResolverActivity")
	StartService(lock)
	Activity.Finish
End Sub

حالا می خوایم چک کنیم که Lock Screen ما تنظیم شده یا نه

Sub Activity_Resume
    Dim r As Reflector
    r.Target = Activity.GetStartingIntent
    If r.RunMethod2("hasCategory", "android.intent.category.HOME", "java.lang.String") Then
	    Log(Activity.GetStartingIntent)
    End If
End Sub

کار ما تو ".Main" تموم شد میریم سراغ Service خودمون که من اسمش رو گذاشتم "lock"

حالا یه BroadCastReceiver تعریف کنید

Dim Broadcast As BroadCastReceiver

بعد تو Service_Start تنظیمش کنید

Sub Service_Start (StartingIntent As Intent)
    Broadcast.addAction("android.intent.action.SCREEN_OFF")
	Broadcast.SetPriority(2147483647)
	Broadcast.registerReceiver("") 'here you can add the main action (intent)
End Sub

حالا هم sub برای OnReceived میسازیم که محتویاتش برای استارت زدن activity lock ماست

Sub BroadcastReceiver_OnReceive (Action As String,Obj As Object)
	    Dim Intent1 As Intent
        Intent1.Initialize(Intent1.ACTION_MAIN, "")
		Intent1.Flags = 268435456
        Intent1.SetComponent("ehem.ehem/.sa")
		StartActivity(Intent1)
End Sub

اینم یادتون نره که حتما یه activity دیگه هم بسازین که وقتی lock شد به رو اون که اسم activity من اینجا sa هست

بعد برین به manifest editor خودتون و این کد رو بهش اضافه کنید

AddActivityText("main",
<intent-filter>
<action android:name="android.intent.action.MAIN" />
<category android:name="android.intent.category.HOME" />
<category android:name="android.intent.category.DEFAULT" />
<category android:name="android.intent.category.MONKEY"/>
</intent-filter>)

تموم شد

ایشالا که به کارتون بیاد

اگه مشکلی بود بگین

 

سلام ممنون از کد خوبتان

ولی ی مشکل

سورسی ک اپلود کردینا اگر اجراش کنم و فایلی apkک میده بهم را امتحان کنم کار نمیده

ولی اون فایل apkک الان داخل خود فایل پیوست شدتون هست جواب میده

نمیدونم گفتم شاید سورس تغیر کرده

ممنون میشم راهنماییم کنید با تشکر