غیر فعال کردن Ctrl+Alt+Del

[Blackk_lightt]

سلام.
من میخوام برنامم وقتی اجرا شد Alt+Ctr+Del از کار بیفته.:لبخند:
یکی کمکم کنه.

[ali_habibi1384]

ترکیب این دکمه ها فایلی رو بنام taskmgr رو از شاخه c:\windows\system32 فعال میکنه حالا اگه ما اون فیل رو اونجا نداشته باشیم مثل اینه که کلیدهای ctrl+lt+delete از کار افتاده
یه روش ابتدایی و ساده شما میتونی وقتی فرم لود شد توی مسیر این فایل یه فایل exe به همین نام رو لود کنی که هیچ کاری رو انجام نده اینجوری task manager نخواهی داشت.

[__siavash__]

البته در این مورد خیلی بحث شده بود !!!



Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_DWORD = 4

Private Sub Command1_Click()
Dim RetVal As Long
Dim hwnd As Long
Dim lpData As Long
lpData = 1

RetVal = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies \System", hwnd)
RetVal = RegSetValueEx(hwnd, "DisableTaskMgr", 0, REG_DWORD, lpData, Len(lpData))
RetVal = RegCloseKey(hwnd)
End Sub

[r0ot$harp]

سلام دوست عزیز
این دو خط به شما کمک می کنه فقط تنها مشکلش اینه که تو ویستا کار نمی کنه :

این خط را در یک command button کپی کن و اجرا کنه
کار این خط : برای غیرفعال کردن TaskManager


A = Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", vbNormalFocus)


این خط را در یک command button کپی کن و اجرا کنه
کار این خط : برای فعال کردن TaskManager


A = Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus)

[Blackk_lightt]

آقا مرسی.خیلی خوب بود
از همه ممنونم:لبخندساده::لبخندساد� �::لبخندساده::لبخندساده::لبخ� �دساده:

[ali_habibi1384]

sanaz13x کد جالب و کوتاهی بود ممنون

[r0ot$harp]

سلام دوستان خوبید
بله کد جالب و کوتاهی است و فقط تنها مشکلش اینه که تو ویستا کار نمی کند ولی تو XP کاملا کار می کند .
:لبخند: