cmd deaktivieren und aktivieren

ich das bekomme ich nicht hin ^^

wo hängts denn. haste die registry schlüssel?

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

---

danke hat funzt!

vielen dank

Jo, np ;)

Zitat:

---

Zitat von Nero

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

---

---

Da sag ich nur
http://free-hack.com/viewtopic.php?t=62090