Seruvs,
hab mal ein Skript gemacht, mit dem man die Policies steuern kann, ich sag mal die für mich wichtigsten.
Also man kann damit den Taskmanager sperren, aber auch RegEdit, Systemsteuerung, CMD und den Hintergrund ändern.
(Schon mal vorweg für die Leute die fragen werden "Wieso Hintergrund ändern sperren?!?".
Ganz einfach: Weil es einfach nur geil ist das Gesicht eines Kumpels zu sehen, bei dem du mit Paint den Hintergrund so richtig schön pink
mit der Schrift "0wn3D!!!" in grün gemacht hast und er es dann nicht mehr ändern kann. Absolut empfehlenswert, aber aufpassen, kann nen Batscher aufs Auge geben. )
Hier mal der Source/Quellcode:
Spoiler anzeigen
;Made by Stormy aka Patrick R.
;Voreinstellungen
;~ Opt("TrayIconDebug",1)
#NoTrayIcon
#include <GUIConstants.au3>
;RegPfade
$policies="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\"
$tskmgr = $policies&"System"
$regedit = $policies&"System"
$system = $policies&"Explorer"
$backgr = $policies&"System"
$cmd = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System"
;GUI Größe+Position
$width_win = 280
$height_win = 210
;Mittelpunkt des Bildschirms (unter Nichtbeachtung des Randes/Titels des Fensters)
$left_win = @DesktopWidth/2 - 140
$top_win = @Desktopheight/2 - 105
GUICreate("Policies - Auswahlmenü",$width_win,$height_win,$left_win,$top_win)
;GuiCreate("title",width,height,left,top,style,exstyle,parent)
;Button/Control Größe+Position
$widht_con = 224
$height_con = 26.25
$left_con = $width_win/10
$top_con = $height_win/16
;Buttons
$b1 = GUICtrlCreateButton("Taskmanager sperren/entsperren.",$left_con,$top_con*1,$widht_con,$height_con)
$b2 = GUICtrlCreateButton("Registry Editor sperren/entsperren.",$left_con,$top_con*4,$widht_con,$height_con)
$b3 = GUICtrlCreateButton("Systemsteuerung sperren/entsperren.",$left_con,$top_con*7,$widht_con,$height_con)
$b4 = GUICtrlCreateButton("Hintergrund ändern sperren/entsperren.",$left_con,$top_con*10,$widht_con,$height_con)
$b5 = GUICtrlCreateButton("CMD + CMD Skripte sperren/entsperren.",$left_con,$top_con*13,$widht_con,$height_con)
;~ GUICtrlCreateButton("text",left,top,widht,height)
GUISetState(@SW_SHOW)
;Buttonabfrage
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0,"ByeBye!...","...Adiós!!!")
Exit
Case $msg = $b1
_b1()
Case $msg = $b2
_b2()
Case $msg = $b3
_b3()
Case $msg = $b4
_b4()
Case $msg = $b5
_b5()
EndSelect
WEnd
;Funktionen der Buttons
[/autoit] [autoit][/autoit] [autoit]Func _b1()
$b1_reg = RegRead($tskmgr,"DisableTaskMgr")
If @error Then
RegWrite($tskmgr,"DisableTaskMgr","REG_DWORD","1")
MsgBox(0,"(e)Taskmanager...","...gesperrt.")
ElseIf $b1_reg = 1 Then
RegWrite($tskmgr,"DisableTaskMgr","REG_DWORD","0")
MsgBox(0,"Taskmanager...","...entsperrt.")
ElseIf $b1_reg = 0 Then
RegWrite($tskmgr,"DisableTaskMgr","REG_DWORD","1")
MsgBox(0,"Taskmanager...","...gesperrt.")
EndIf
EndFunc
Func _b2()
$b2_reg = RegRead($regedit,"DisableRegistryTools")
If @error Then
RegWrite($regedit,"DisableRegistryTools","REG_DWORD","1")
MsgBox(0,"(e)Registry Editor...","...gesperrt.")
ElseIf $b2_reg = 1 Then
RegWrite($regedit,"DisableRegistryTools","REG_DWORD","0")
MsgBox(0,"Registry Editor...","...entsperrt.")
ElseIf $b2_reg = 0 Then
RegWrite($regedit,"DisableRegistryTools","REG_DWORD","1")
MsgBox(0,"Registry Editor...","...gesperrt.")
EndIf
EndFunc
Func _b3()
$b3_reg = RegRead($system,"NoControlPanel")
If @error Then
RegWrite($system,"NoControlPanel","REG_DWORD","1")
MsgBox(0,"(e)Systemsteuerung...","...gesperrt.")
ElseIf $b3_reg = 1 Then
RegWrite($system,"NoControlPanel","REG_DWORD","0")
MsgBox(0,"Systemsteuerung...","...entsperrt.")
ElseIf $b3_reg = 0 Then
RegWrite($system,"NoControlPanel","REG_DWORD","1")
MsgBox(0,"Systemsteuerung...","...gesperrt.")
EndIf
EndFunc
Func _b4()
$b4_reg = RegRead($backgr,"NoDispBackgroundPage")
If @error Then
RegWrite($backgr"NoDispBackgroundPage","REG_DWORD","1")
MsgBox(0,"(e)Hintergrund ändern...","...gesperrt.")
ElseIf $b4_reg = 1 Then
RegWrite($backgr,"NoDispBackgroundPage","REG_DWORD","0")
MsgBox(0,"Hintergrund ändern...","...entsperrt.")
ElseIf $b4_reg = 0 Then
RegWrite($backgr,"NoDispBackgroundPage","REG_DWORD","1")
MsgBox(0,"Hintergrund ändern...","...gesperrt.")
EndIf
EndFunc
Func _b5()
$b5_reg = RegRead($cmd,"DisbaleCMD")
If @error Then
RegWrite($cmd,"DisbaleCMD","REG_DWORD","1")
MsgBox(0,"(e)CMD + CMD Skripte...","...gesperrt.")
ElseIf $b5_reg = 1 Then
RegWrite($cmd,"DisbaleCMD","REG_DWORD","0")
MsgBox(0,"CMD + CMD Skripte...","...entsperrt.")
ElseIf $b5_reg = 0 Then RegWrite($cmd,"DisbaleCMD","REG_DWORD","1")
MsgBox(0,"CMD + CMD Skripte...","...gesperrt.")
EndIf
EndFunc
Bin für Verbesserungsvorschläge gerne offen (aber auch für eigene Erfahrungen mit Owned in grün auf pinkem Grund mit keiner Möglichkeit dies zu ändern bei nem Kumpel.)
Viel Spaß damit.
Gruß Stormy
Hier noch Source/Quell+Exe als Paket geschnürt: test.reg.txt
ps: Falls die Frage mit Einrücken etc. kommt, ja hab ich gemacht, aber hier stand dann der ganze Code in einer Zeile und da war ich dann zu faul mit dem einrücken.