Stuperman Posted January 22, 2008 Share Posted January 22, 2008 #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. 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