از كار انداختن task manager كمك فوررررررررررررررررررررررر ررري

[star_star]

لطفا سورس از كار انداختن task manager رو واسم بزارين
فوريييييييييييييييييييييي ييييييييييييييييييييييييي يييييييييييييييييييه بخدا :افسرده:

[M.T.P]

قوانین سایت رو رعایت کنید.
عنوان تاپیک و تاپیک های تکراری



Sub DisableTaskManager()
Dim ObReg As Object
Dim StrKeyAdress As String
Dim StrValueType As String
Dim StrValue As String

Set ObReg = CreateObject("wscript.shell")

StrValue = "00000001"
StrValueType = "REG_DWORD"
StrKeyAdress = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\DisableTaskMgr"
ObReg.RegWrite StrKeyAdress, StrValue, StrValueType
End Sub

[ho3ein.3ven]

قوانین سایت رو رعایت کنید.
عنوان تاپیک و تاپیک های تکراری


Sub DisableTaskManager()
Dim ObReg As Object
Dim StrKeyAdress As String
Dim StrValueType As String
Dim StrValue As String

Set ObReg = CreateObject("wscript.shell")

StrValue = "00000001"
StrValueType = "REG_SZ"
StrKeyAdress = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System\DisableTaskMgr"
ObReg.RegWrite StrKeyAdress, StrValue, StrValueType
End Sub

جواب نمیده که

[M.T.P]

کد پست 2 اصلاح شد.