Disable کردن Task Manager

[مهیار کرمی]

سلام؛
می خواستم در ویندورز Xp تسک منیجر را غیر فعال کنم.
با تشکر:متفکر:

[__siavash__]

یه Value از نوع REG_DWORD به اسم DisableTaskmgr با مقدار 1 تو این مسیر درست کن
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System

[مبین رنجبر]

دوست عزیز شما در ویندوز میخوای disable کنی یا توی وی بی ؟

اگه می خوای توی ویژوال بیسیک این کارو انجام بدی کداش اینه :



Set Reg = CreateObject("wscript.shell")

Reg.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\ & "DisableTaskMgr","1"

[__siavash__]

اینم کد Vb با استفاده از API


Option Explicit

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 ' 32-bit number
-----------------------------------------
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

[roomezonline]

یه Value از نوع REG_DWORD به اسم DisableTaskmgr با مقدار 1 تو این مسیر درست کن
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System

ميشه با Set Reg = CreateObject("wscript.shell") اونو توضيح بدين؟ چي جوري ؟؟؟؟؟

[DarkSoroush]

بهتریه از همین روشهای API های ویندوز استفاده کنید چون در بحث Scripting مشکلات زیاد هست از جمله اینکه اصلا این سرویس روی کامپیوتر مورد نظر نصب نباشه و یا ....

[lplnmsado]

اینم کد Vb با استفاده از API


Option Explicit

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
.
.
.
.

End Sub


میشه لطف کنی طریقه فعال کردنش رو هم که از طریق همین تابع کار میکنه بذاری ؟؟؟

ممنون میشم

[سید حمید حق پرست]

سلام علیکم
این تاپیک مال خیلی وقت پیشه
کافیه رو lpData = 0 به lpData = 1 تغیر بدید

سورس ضمیمه شد

[بهروز عباسی]

درود به همه
این که با رجیستری این کارو انجام بدیم کمی تابلو هستش:لبخند:
باتوابع کار با فایل فایل اصلی برنامه TaskManager رو بصورت انحصاری باز کنید تا برنامه دیگه اجرا نشه چون هندل فایلش در اختیار برنامه شما هستش و تا وقتی برنامه رهاش نکنه اجرا نمیشه
در XP تست کردم سالیان پیش
موفق باشید.