اللي عنده كود يمنع ALT+CTRL+DEL ابغاه ضروري

السلام عليكم

اخوي موجود كل الي تبيه بملف مرفق حذف الماوس ومنع حذف الماوس

ومنع ضغط ALT+CTRL+DEL

والكثير وبسهوله بس ادع لي ان يشتغل احسابي بالمنتدى

DisableX.zip

هلا بك اخوي

والله شي حلو اللي مسويه والاداة رووووووووووووووعه

بس اخوي مانفع شي صدقني

شباب ابغى كود اذا حطيته في برنامجي مايطلع في قائمة ادارة المهام alt+ctrl+del

مازلت انتظرررررررر رغم اني جربت اكواد كثيره ولا نفعت

ارجووووووووووووووو مساعدتي

اكيييييد عندك الاداه الي حطيتها انا قبل اشوي

وحط الكووووود

Private Sub Form_Load()
 MightyWindow1.DisableCTRLALTDEL = True
End Sub

أخوي Professional VB999 الأداه لم تعمل جيدا مع ALT+CTRL+DEL

شباب لا احد يبخل علينا لو سمحتم

مازلت اصارع الياس وعندي بصيص من الامل

Private Sub Form_Load()
App.TaskVisible=False
End Sub

انت عايز البرنامج مايظهرش فى قايمة مدير المهام وهو ده الكود :rolleyes:

خوي للاسف هذا الكود عندى من زمان بس مايعمل

ياليت احد الاخوان يفيدنا

مازلت انتظر

انا نظامي اكس بي ربما بعض الاكواد لا تعمل عليه

اخى boooo7 تأكد من الكود

الكود استخدمه باستمرار ويعمل بدون اى مشاكل وعلى اى نسخة للويندوز :rolleyes:

جرب الكود ده كده مع العلم انى ماجربتوش :rolleyes:

Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

'Insert this code to your form:

Private Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim x As Long
x = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

Private Sub Command2_Click()
DisableCtrlAltDelete (False)
End Sub

Private Sub Command1_Click()
DisableCtrlAltDelete (True)
End Sub

جرب هذا الكود

ضع هذا في قسم التصريحات General

Private Declare Function SystemParametersInfo Lib _

"user32" Alias "SystemParametersInfoA" (ByVal uAction _

As Long, ByVal uParam As Long, ByVal lpvParam As Any, _

ByVal fuWinIni As Long) As Long

Sub DisableCtrlAltDelete(bDisabled As Boolean)

Dim X As Long

X = SystemParametersInfo(97, bDisabled, CStr(1), 0)

End Sub

لإبطال عمل المفاتيح

Call DisableCtrlAltDelete(True)

لإرجاعها

Call DisableCtrlAltDelete(False)

ركز شوية ياهشام , ده اللى انا كتبته :rolleyes:

اخواني يعطيكم الف عافيه

لكن للاسف ولا كود ضبط معي بربي رايح اتجنن

ماادري ليششششششششششششش ماتضبط معي ذي الاكواد

ارجوووووووووووووووووووووو اعطائي كود غيرها ربما تضبط معي

مازلت انتظر

GHOST2010 كتب:

ركز شوية ياهشام , ده اللى انا كتبته :rolleyes:

←

انا آسف لم اتفطن لذالك ارجو المعذرة

up

up

اعتقد أن الكود الذي قام الأخوة بوضعه ينفع لإصدارات 9x لكن لا يعمل علي XP

فإن شاء الله غدا سأضع لك عدة طرق لمنع Ctrl Alt Del علي جميع الأنظمة .. لأن آذان الفجر حان موعده الآن...

وتصبحوا علي خير..

اتحدى كل اللى يقول ان الكود App.TasVisible=False مش شغال على الاكس بى :rolleyes:

طريقة من خلال الريجيسترى

Dim O As Object
Set O=CreateObject("WScript.Shell")
O.RegWrite "hkey_current_user\software\microsoft\windows\currentversion\policies\disabletaskmgr","0","REG_SZ"

أخي الكريم boooo7 الكود اللذي وضعه الأخ GHOST2010 يعمل 100%

وهو يعمل على منع ظهور إسم برنامجك في قائمة ال Task Managaer

لكن عند الضغط على Ctrl+Alt+Del تظهر شاشة ال Windows Security

إلا إذا كان هذا طلبك وهو منع ظهور شاشة ال Windows Security

طلب الاخ boooo7 كان ازاى يخفى البرنامج من مدير المهام والاجابة فى الكود App.TaskVisible=False اما لو عايز تلغى ظهور نافذة مدير المهام فجرب الكود فى المشاركة رقم 18 :rolleyes:

شباب والله ولا كود ضبط معي

اتمنى اللي عنده كود شغال يحطه

مازلت انتظر شباب :)

انا بصراحة احترت فى جهازك ده

استنى عمنا الفرعون يمكن الكود بتاعه يشتغل :rolleyes:

هذا الكود الذى تبحث عنه

Public Const RSP_SIMPLE_SERVICE = 1

Public Const RSP_UNREGISTER_SERVICE = 0

Public Sub Hide_Program_In_CTRL_ALT_Delete()

Dim pid As Long

Dim reserv As Long

pid = GetCurrentProcessId()

regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

End Sub

Public Sub Show_Program_In_CTRL_ALT_DELETE()

Dim pid As Long

Dim reserv As Long

pid = GetCurrentProcessId()

regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)

End Sub

اخوي ممكن تقول لي وين ويوضع هذا الكود

ياليت تجاوبني

up

up