Jump to content
Sign in to follow this  
Stuperman

Tweaking program

Recommended Posts

Stuperman

#NoTrayIcon

#include <Process.au3>

ProgressOn("System Tweaking Program","Now Tweaking System","Please do not touch the mouse or keyboard until asked.","350","300",16)

$rc = _RunDOS('net stop Messenger')

$rc = _RunDOS('sc config Messenger start= disabled')

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz","NoRun","REG_DWORD",1)

ProgressSet(10)

$rc = _RunDOS('sc config ERSvc start= disabled')

$rc = _RunDOS('net stop ERSvc')

RegWrite("HKEY_CURRENT_USER\Control Panel\Accessibility\StickyKeys","Flags","REG_SZ",506)

ProgressSet(20)

$rc = _RunDOS('net stop helpsvc')

$rc = _RunDOS('sc config helpsvc start= demand')

RegWrite("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response","Flags","REG_SZ",122)

ProgressSet(30)

$rc = _RunDOS('net stop FastUserSwitchingCompatibility')

$rc = _RunDOS('sc config FastUserSwitchingCompatibility start= demand')

RegWrite("HKEY_CURRENT_USER\Control Panel\Accessibility\ToggleKeys","Flags","REG_SZ",58)

ProgressSet(40)

$rc = _RunDOS('net stop MDM')

$rc = _RunDOS('sc config MDM start= disabled')

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting","DoReport","REG_DWORD",0)

ProgressSet(50)

$rc = _RunDOS('net stop VSS')

$rc = _RunDOS('sc config VSS start= manual')

Send("#r")

Send("powercfg.cpl{ENTER}")

WinWaitActive("Power Options Properties")

Send("!m")

Send("{UP 15}")

Send("{DOWN 6}")

Send("!i")

Send("{DOWN 15}")

Send("!t")

Send("{DOWN 15}")

Send("{ENTER}")

ProgressSet(60)

$rc = _RunDOS('net stop idsvc')

$rc = _RunDOS('sc config idsvc start= disabled')

ProgressSet(70)

$rc = _RunDOS('net stop WMPnetworksvc')

$rc = _RunDOS('sc config WMPnetworksvc start= demand')

Send("#{Pause}")

WinWaitActive("System Properties")

Send("{RIGHT 3}")

Send("!s")

WinWaitActive("Performance Options")

Send("{UP 3}")

Send("{TAB}")

Send("{SPACE}")

Send("{DOWN}")

Send("{SPACE}")

Send("{DOWN}")

Send("{SPACE}")

Send("{DOWN}")

Send("{SPACE}")

Send("{DOWN}")

Send("{SPACE}")

Send("{DOWN}")

Send("{SPACE}")

Send("{DOWN}")

Send("{DOWN}")

Send("{DOWN}")

Send("{SPACE}")

Send("{DOWN}")

Send("{SPACE}")

Send("{DOWN}")

Send("{DOWN}")

Send("{DOWN}")

Send("{SPACE}")

Send("{ENTER}")

WinWaitActive("System Properties")

Send("{UP}")

Send("{TAB}")

Send("{SPACE}")

Send("{LEFT 2}")

Send("!u")

Send("{TAB}")

Send("{UP 5}")

Send("{TAB}")

Send("{UP 25}")

Send("{DOWN 12}")

Send("{ENTER}")

ProgressSet(80)

$rc = _RunDOS('net stop RemoteRegistry')

$rc = _RunDOS('sc config RemoteRegistry start= demand')

ProgressSet(100)

ProgressOff()

$rc = MsgBox(36,"Wireless","Does this computer connect to a wireless network?")

If $rc = 6 Then

MsgBox(0, "Program complete","You settings have been tweaked.",4)

Exit

EndIf

If $rc = 7 Then

$rc = _RunDOS('net stop WZCSVC')

$rc = _RunDOS('sc config WZCSVC start= demand')

MsgBox(0, "Program complete","You settings have been tweaked.",4)

EndIf

I know this is a simple program. Please add whatever you think would be a great tweak. Thank you.

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.