TormentoRobots Posted January 25, 2013 Share Posted January 25, 2013 (edited) Power Config The default power configuration hacker. How do you change this? • Run powercfg.cpl - OR - • open the Control Panel , select Power Config Wait , I’ve tried this, the machine is telling me access is denied! And why every time some other admin user logs in, it changes? SOLUTION: Simple registry hack. Sets the default to index of the built-in scheme of your choosing. Windows Registry Editor Version 5.00 [HKEY_USERS\.DEFAULT\Control Panel\PowerCfg] "CurrentPowerPolicy"="2" ******* FixMyNet this little script as your admin, It will all go away , poof when done! automatically (unlike M$ crap, you have to also put up with an ignorant message about DNS not being flushed, but when you run the ipconfig /flushdns it DOES DO SOMETHING Ignorant DNS message as follows DOES DO SOMETHING Ignorant DNS message as follows or use cmdline but cmdline sucks ok..... ******* 2nd party utils in path: (download or rename your own apps there) search for these Codestuff starter (starter.exe) 2xexplorer (2xexplorer.exe) expandcollapse popup;TormentoRobots 2013 ;#requireadmin #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Process.au3> #include <DateTimeConstants.au3> Global $TR_APPNAME = "APP" local $TRcolor = 0x000000 If IsAdmin() Then $TR_APPNAME = "ADMIN - " & @username & " " & $TR_APPNAME $TRcolor = 0x450000 endif #Region ### START Koda GUI section ### $Form1_2 = GUICreate($TR_APPNAME, 544, 309, 280, 461) GUISetBkColor($TRcolor) $Button1 = GUICtrlCreateButton("taskmgr", 24, 16, 65, 25) $Button2 = GUICtrlCreateButton("starter", 176, 16, 57, 25) $Editnotes = GUICtrlCreateEdit("", 312, 64, 225, 233, $GUI_SS_DEFAULT_EDIT) GUICtrlSetData(-1, "") $Label1 = GUICtrlCreateLabel("", 370, 24, 146, 24, 0) GUICtrlSetFont(-1, 12, 400, 4, "MS Sans Serif") $Group1 = GUICtrlCreateGroup("", 8, 56, 297, 241) $Button3 = GUICtrlCreateButton("Install a program...", 39, 79, 233, 25) $Button5 = GUICtrlCreateButton("Power Config hack (always on)", 39, 111, 233, 25) $Button6 = GUICtrlCreateButton("Folder Propagation...", 39, 143, 233, 25) $Button7 = GUICtrlCreateButton("Add a Limited User...", 53, 178, 209, 25) $Button4 = GUICtrlCreateButton("FixMyNet...", 40, 240, 89, 25) $Button9 = GUICtrlCreateButton("About...", 160, 240, 97, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button10 = GUICtrlCreateButton("2xExplorer", 96, 16, 73, 25) $Button8 = GUICtrlCreateButton("Cal XP", 240, 16, 57, 25) call("CheckIfAdmin") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 local $x = run("starter.exe") if not $x then echo("not found") Case $Button1 local $x = run("taskmgr.exe") if not $x then echo("not found") Case $Button5 call("pwrcfg") Case $Button7 call("AddNewUser") Case $Button8 call("calxp") case $Button6 call("folderprop") Case $Button3 call("installadmin") Case $Button4 call("FixMyNet") Case $Button9 call("by TormentoRobots 2013") Case $Button10 local $x = run("2xexplorer.exe") if not $x then echo("not found") EndSwitch WEnd Func pwrcfg() If IsAdmin() Then echo("you are admin, this registry hack is for the User.") ShellExecute("power.cpl") return else TRpowerconfigHack() echo("power config applied") addnote("Power Config applied in HKEY_USERS\.DEFAULT\Control Panel\PowerCfg") endif EndFunc Func folderprop() local $uname = inputbox("Edit File Permissions", "Will operate on a folder recursively" & @CRLF & "granting username FULL control" & @CRLF & "Please enter username", "") if $uname = "" then Return local $Fpath = _Browseforfolder(@programfilesdir) _FolderPropigate($Fpath, $uname) Addnote("edited ACL of " & $Fpath & " and its sub-directories (" & $uname & ")") EndFunc Func AddNewUser() local $inpUsername = inputbox("enter username", "enter username") if $inpusername = "" then Return _AddLimitedUser($inpUsername) addnote("user " & $inpUsername & " added") EndFunc Func InstallAdmin() local $message = "Choose file to install" if IsAdmin() then $message = "Choose file to install, ADMIN" endif local $zvar $zvar = FileOpenDialog($message, @MyDocumentsDir & "\", "Programs (*.exe;*.msi)", 1) If not $zvar Then ;echo("No File(s) chosen") Return Else $zvar = StringReplace($zvar, "|", @CRLF) ;echo("You chose " & $zvar) EndIf local $x = Run($zvar) sleep(1444) if $x then addnote("Installed " & $zvar) EndFunc Func CheckIfAdmin() If IsAdmin() Then GuictrlSetdata($Label1, "You are ADMIN") GuictrlSetdata($Button3, "Install a program as ADMIN...") GUICtrlSetState($button5, $GUI_DISABLE) else GUICtrlSetState($button7, $GUI_DISABLE) GUICtrlSetState($button6, $GUI_DISABLE) ;GUICtrlSetState($button5, $GUI_DISABLE) Endif EndFunc Func AddNote($noter) local $spc = " " local $readtxt = guictrlread($editnotes) guictrlsetdata($editnotes, $readtxt & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & $spc & $noter & @CRLF) EndFunc Func CalXP() Local $xmsg, $Form2, $MonthCal2, $cmenuJumpyr, $setm, $trackmenu $Form2 = GUICreate("MiniCal XP", 197, 178, 231, 133) $MonthCal2 = GUICtrlCreateMonthCal(@YEAR, 8, 8, 177, 161, BitOR($MCS_NOTODAY,$WS_TABSTOP)) $trackmenu = GuiCtrlCreateContextMenu () $cmenuJumpyr = GuiCtrlCreateMenuitem ("&Jump to Year...",$trackmenu) GUISetState(@SW_SHOW) while 1 $xmsg = GUIGetMsg() Switch $xMsg Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $Form2) Return Case $cmenuJumpyr $setm = Inputbox(0,"Input YEAR (1753 - 9999)",@YEAR) If $setm <= 9999 then if $setm > 1752 then GUICtrlSetData($MonthCal2, $setm & "/01/01" ) endif EndSwitch wend EndFunc Func FixMyNet() local $answer = MsgBox(4, "Windows Network Repair", "Attempt to repair your network adapter?") If $answer = 7 Then Return EndIf local $stparm = "ipconfig.exe" local $i SLEEP(1000) ProgressOn("Repairing", "Windows Network Repair", "0 percent") For $i = 10 to 100 step 10 sleep(500) if $i = 20 then ProgressSet($i & " % " , "Running ipconfig in background") ShellExecute( @comspec , $Stparm & " /renew *", "" , "" ,@SW_HIDE ) sleep(800) endif if $i = 60 then ProgressSet($i & " % " , "Flushing DNS in background") ShellExecute( @comspec , $Stparm & " /flushdns" , "" , "" ,@SW_HIDE ) sleep(800) endif ProgressSet( $i, $i & "% completed") Next ProgressSet(100 , "Repair complete", "Windows Network Repair") ProgressOff() addnote("Ran Network repair (flush DNS , RENEW)") MsgBox(0, "Windows Network Repair", "ALL DONE! TEST Internet NOW!", 3) Return EndFunc Func _FolderPropigate($targetDir, $LUID) Run(@comspec & " /k " & "cacls.exe" & ' "' & $targetDir & '"' & " /t /e /g " & '"' & $LUID & '"' & ":F", @ScriptDir, @SW_SHOW) EndFunc Func _AddLimitedUser($sName, $sPassword = '', $sGroupName = 'Users', $iAutoLogon = 0) ; Creates user accounts. TODO - script must contain #requireAdmin If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then RunWait(@ComSpec & ' /c ' & _ 'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _ 'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _ 'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE) EndIf EndFunc Func TRpowerconfigHack() local $TRreg = "HKEY_USERS\.DEFAULT\Control Panel\PowerCfg" local $TRkey = "CurrentPowerPolicy" ;#2 - always ON local $powerprof_Presentation = 2 RegWrite($TRreg, $TRkey, "REG_SZ", $powerprof_Presentation) EndFunc Func ECHO($data = "You called ECHO with no data") MsgBox(0,$TR_APPNAME, $data) EndFunc Func _BrowseForFolder($fncdest = @homedrive) Local $ret = FileSelectFolder("Choose a folder", "", "", $fncdest) Return $ret EndFunc edit (about... button) call() should be echo() Edited January 25, 2013 by TormentoRobots #Include-once;TormentoRobots Link to comment Share on other sites More sharing options...
TormentoRobots Posted January 25, 2013 Author Share Posted January 25, 2013 #Include-once;TormentoRobots Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now