17-10-12, 04:39 PM
كاتب الموضوع : نور نبهان
بسم الله الرحمن الرحيم
كود لتعطيل وتفعيل مدير المهامبسم الله الرحمن الرحيم
كود :
Private Sub Command1_Click()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
Me.Caption = "! Task Manager is: Enabled !"
End Sub
Private Sub Command2_Click()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
Me.Caption = "! Task Manager is: Disabled !"
End Sub