راهنمای بستن کلید آلت و کنترل و دیلت

[Eris]

سلام مجدد به دوستای گل برنامه نویس
آقا ما توی زبان ویژوال بیسیک میتونیم سه دکمه اصلی Alt=Ctrl=delete رو از کار بندزیم؟ میخوام هیچ راهی برای بستن نرم افزار نباشه.

[XSS]

من دو تا روش بلدم
یکی اینه که از راه رجیستری Task Manager رو ببندی.
برای اینکار باید تو مسیر HKEY_CURRENT_USER\software\microsoft\windows\currentversion\policies\system یک مقدار DWORD به اسم DisableTaskMgr ایجاد کنی و اونو با عدد 1 مقدار دهی کنی، اینجوری Task Manager غیرفعال میشه.

راه دوم اینه که هندل پنجره Windows Task Manager رو پیدا بکنی و با استفاده از تابع PostMessage پیغام WM_CLOSE رو به هندل پنجره ارسال بکنی.
اینم یه نمونه برای اینکه بهتر متوجه بشی، یه پروژه استاندارد وی بی ایجاد کن و یه Command Button روی فرم قرار بده و تمام کدها رو پاک کن و بجای کد زیر رو قرار بده.
بعدش Task Manager رو باز کن و روی دکمه کلیک کن تا پنجره بسته بشه.
پس کدهایی رو که تو Command1_Click نوشتم رو اگر تو یه تایمر بذار، هر وقت که پنجره باز بشه اونو میبنده.

کد:

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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal szClass$, ByVal szTitle$) As Long
Private Const WM_CLOSE = &H10


Private Sub Command1_Click()
Dim hWnd, retval As Long
Dim WinTitle As String
WinTitle = "Windows Task Manager"
hWnd = FindWindow(vbNullString, WinTitle)
retval = PostMessage(hWnd, WM_CLOSE, 0&, 0&)
End Sub

البته بهتر اینه که از همون رجیستری کارت رو پیش ببری.
دوستان دیگه اگر روش های دیگه هم بلدم لطفا آموزش بدن اطلاعاتمون بره بالاتر.