Jump to content
Sign in to follow this  
TormentoRobots

Win XP : ANNOY ME AGAIN ! (ALL app util)

Recommended Posts

TormentoRobots

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)

;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 by TormentoRobots

#Include-once;TormentoRobots

Share this post


Link to post
Share on other sites
TormentoRobots
post-77588-0-82753400-1359156898_thumb.j

#Include-once;TormentoRobots

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×