ich das bekomme ich nicht hin ^^
ich das bekomme ich nicht hin ^^
HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Wind ows\System\DisableCMD
das ist der reg eintrag dafür
Probier mal sowas in der richtung:
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "1", "REG_DWORD"
and enable?
Deine Nachricht ist leider zu kurz!
ganz einfach den wert ändern
0 oder 1
das geht aber nicht
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "0", "REG_DWORD"
Machs doch einfach mit nem Modul/Funktion...
Auf vb@rchiv wirst du fündig
ja link ? pls
versteh aber nicht warum
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "0", "REG_DWORD"
nicht geht
Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "0", "REG_DWORD"
--> cmd enable
Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "1", "REG_DWORD"
--> cmd disable
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