كيف يمكن ان اعطل عمل الalt+ctrl+delet

بسم الله الرحمن الرحيم

هذا الكود لتعطيل ctrl+alt+dell

قم بوضع 3 ازرار فى الفورم الزر الاول disabled

الزر الثانى enabled

الزر الثالث exit

و تيمر interval100

و الصق الكود فى الفورم

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10

Private Sub Disable_Click()
Enable.Enabled = True
Disable.Enabled = False
TmrDisable.Enabled = True
End Sub

Private Sub Enable_Click()
Enable.Enabled = False
Disable.Enabled = True
TmrDisable.Enabled = False
End Sub

Private Sub Exit_Click()
Unload Me
End
End Sub

Private Sub TmrDisable_Timer()
Const WM_CLOSE = &H10
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Windows Task Manager")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
End If
End Sub

THE ART MAN

لو بس تستخدم البحث في المنتدى ستجد أكثر من موضوع ..في قسم الفيجوال بيسك والفيجوال سي والدلفي

ولو تبحث في الانترنت ستجد آلاف المواضيع عن هذا الشئ

hichamchak:

الكود الذي كتبته يقوم باغلاق taskmanager فقط ولا يقوم بتعطيل ALT+CTRL+DEL وهناك فرق بين الاثنين

===

عموماً الطريقة تعتمد على نوع النظام

* win9x

-استخدم SystemParametersInfo

* winnt/2k/xp/2k3

-استخدام keyboard hook

-استخدام GINA

-استخدام WDM

راجع المواضيع القديمة

تحياتي