Schreib folgendes in ein Modul
Code:
Public Function RegRead(Path As String) As String
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = ""
End Function
Public Function RegWrite(ByVal Path As String, _
ByVal Value As String, _
Optional ByVal Typ As String = "REG_SZ") As Boolean
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
ws.RegWrite Path, Value, Typ
RegWrite = True
Exit Function
ErrHandler:
RegWrite = False
End Function
Public Function RegDelete(Path As String) As Boolean
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
ws.RegDelete Path
RegDelete = True
Exit Function
ErrHandler:
RegDelete = False
End Function
Dann kannst du ja zwei Buttons machen:
Code:
Private Sub cmdAktiviren_Click()
RegDelete ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr")
End Sub
Private Sub cmdDeaktivieren_Click()
RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1"
End Sub
