реестр...

[Шнурок]

Как это реализовать на VB?
Как зная путь изменить DisableTaskMgr на 1

Код: Выделить всё

Путь: HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System


И еще ... что значит reg_dword

[Max!]

Эти строчки куча раз проскакивали на форуме

Код: Выделить всё

Так мы запретим доступ
Dim Reg
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
Так разрешим
Dim Reg
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"


С наступающим тебя новым годом !!!

[Max!]

Только путь поменяй на свой !

[GM]

А вот мой пример по этой теме когда-то выкладывал, без использования WScript, на форме один CheckBox.

Код: Выделить всё

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
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_CURRENT_USER = &H80000001
Sub SetRegKey(hKey As Long, sPath As String, sValue As String, sData As String)
    Dim Ret
    RegCreateKey hKey, sPath, Ret
    RegSetValueEx Ret, sValue, 0, 4, CLng(sData), 4
    RegCloseKey Ret
End Sub


Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Check1.Caption = "Enable Alt+Ctrl+Del"
SetRegKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 1
Else
Check1.Caption = "Disable Alt+Ctrl+Del"
SetRegKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 0
End If
End Sub