acidfear Posted July 29, 2006 Share Posted July 29, 2006 (edited) Hey all I finally finished my first application that i've created, successfuly at least It is a registry tweaks. Only hase a few tweaks, but they still help There is a read me along with it, which isn't too elaborate. I hope you enjoy my "not to complicated" of a script Source: expandcollapse popup;By AcidFear #include <GuiConstants.au3> GuiCreate("Registry Tweaks by: AcidFear", 442, 805,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $current = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "MenuShowDelay") $Button_1 = GuiCtrlCreateButton("Delete Shortcut Arrows (on Shortcuts)", 20, 20, 220, 30) $Button_2 = GuiCtrlCreateButton("Disable Balloon Tips", 20, 110, 220, 30) $Button_3 = GuiCtrlCreateButton("Unload Dll's of Closed Apps", 20, 200, 220, 30) $Button_4 = GuiCtrlCreateButton("Improve NTFS Performance", 20, 290, 220, 30) $Button_5 = GuiCtrlCreateButton("Disable AutoPlay of Drives", 20, 380, 220, 30) $Button_6 = GuiCtrlCreateButton("Speed Up Internet - DNS Tweak", 20, 480, 220, 30) $Button_7 = GuiCtrlCreateButton("Change Menu Display Speed", 20, 580, 220, 30) $Button_8 = GuiCtrlCreateButton("Refresh", 20, 740, 100, 30) $Button_9 = GuiCtrlCreateButton("Exit", 330, 740, 100, 30) $Button_10 = GuiCtrlCreateButton("Read-Me", 180, 740, 100, 30) $Edit_1 = GuiCtrlCreateEdit("Ready", 270, 20, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $Edit_2 = GuiCtrlCreateEdit("Ready", 270, 100, 160, 40, BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $Edit_3 = GuiCtrlCreateEdit("Ready", 270, 200, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $Edit_4 = GuiCtrlCreateEdit("Ready", 270, 290, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $Edit_5 = GuiCtrlCreateEdit("Ready", 270, 380, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $Edit_6 = GuiCtrlCreateEdit("Ready", 270, 480, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $Edit_7 = GuiCtrlCreateEdit("Ready", 270, 580, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $Edit_8 = GuiCtrlCreateEdit("Current Value: " &" "& $current, 270, 620, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) $input_1 = GUICtrlCreateInput("Input Value Here **SEE README**", 20, 612, 220, 20) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;; EndSelect ;;;;;;;;;;;;;;Button 1;;;;;;;;;;;;;;;; if $msg = $button_1 then RegDelete("HKEY_CLASSES_ROOT\lnkfile", "IsShortcut") RegDelete("HKEY_CLASSES_ROOT\InternetShortcut", "IsShortcut") RegDelete("HKEY_CLASSES_ROOT\piffile", "IsShortcut") GUICtrlSetData($edit_1, "Done") ElseIf @error = 2 Then GUICtrlSetData($edit_1, "Error") EndIf ;;;;;;;;;;;;;;;End;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;Button 2;;;;;;;;;;;;;;;;;; if $msg = $button_2 Then $reg_1 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "EnableBalloonTips") if $reg_1 = 1 Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "EnableBalloonTips", "Reg_dword", 0) elseif @error = 0 Then GUICtrlSetData($edit_2, "Error") EndIf GUICtrlSetData($edit_2, "Done") EndIf ;;;;;;;;;;;;;;;;;;End;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;Button 3;;;;;;;;;;;;;;;;;; if $msg = $Button_3 Then $reg_2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer", "AlwaysUnloadDll") RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer", "AlwaysUnloadDll", "reg_dword", 1) GUICtrlSetData($edit_3, "Done") Elseif @error = 1 Then GUICtrlSetData($edit_3, "Error") EndIf ;;;;;;;;;;;;;;;End;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;Button 4;;;;;;;;;;;;;;;; if $msg = $Button_4 Then RegWrite("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\FileSystem", "NtfsDisable8dot3NameCreation", "reg_dword", 1) RegWrite("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\FileSystem", "NtfsDisableLastAccessUpdate", "reg_dword", 1) GUICtrlSetData($edit_4, "Done") Elseif @error = 1 Then GUICtrlSetData($edit_4, "Error") EndIf ;;;;;;;;;;;;;;;;;End;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;Button 5;;;;;;;;;;;;;;; if $msg = $Button_5 Then regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom", "AutoRun", "Reg_Dword", 0) GUICtrlSetData($edit_5, "Done") Elseif @error = 1 Then GUICtrlSetData($edit_5, "Error") endif ;;;;;;;;;;;;;;;;;;;;End;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;Button 6;;;;;;;;;;;;; if $msg = $Button_6 Then regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters", "CacheHashTableBucketSize", "Reg_dword", 1) regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters", "CacheHashTableSize", "Reg_dword", 180) regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters", "MaxCacheEntryTtlLimit", "Reg_dword", 64000) regwrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters", "MaxSOACacheEntryTtlLimit", "Reg_dword", 301) GUICtrlSetData($edit_6, "Done") ElseIf @error = 1 Then GUICtrlSetData($edit_6, "Error") EndIf ;;;;;;;;;;;;;;;;;;;;End;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;Button 7;;;;;;;;;;;;; if $msg = $Button_7 Then $input_2 = GUICtrlRead($input_1) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "MenuShowDelay", "REG_SZ", $input_2) GUICtrlSetData($edit_7, "Done") Elseif @error = 1 Then GUICtrlSetData($edit_7, "Error") EndIf ;;;;;;;;;;;;;;;;;;;;End;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;Button 10;;;;;;;;;;;;;;;;; if $msg = $Button_10 Then FileChangeDir(@WorkingDir) _RunDOS("readme.txt") EndIf ;;;;;;;;;;;;End;;;;;;;;;;;;;;;;;;;;;;; if $msg = $button_8 Then GUICtrlSetData($edit_1,"Ready") GUICtrlSetData($edit_2,"Ready") GUICtrlSetData($edit_3,"Ready") GUICtrlSetData($edit_4,"Ready") GUICtrlSetData($edit_5,"Ready") GUICtrlSetData($edit_6,"Ready") GUICtrlSetData($edit_7,"Ready") GUICtrlSetData($input_1,"") $Edit_8 = GuiCtrlCreateEdit("Current Value: " &" "& $input_2 , 270, 620, 160, 40,BitOR($ES_AUTOHSCROLL, $ES_PASSWORD)) EndIf if $msg=$button_9 Then Exit EndIf WEnd Exit ; end of scriptRegTweaksv1.rar Edited July 29, 2006 by acidfear Link to comment Share on other sites More sharing options...
themax90 Posted July 29, 2006 Share Posted July 29, 2006 No one will your run program without source code. Please note that AutoIt is an automated language and it is impossible to know what a program will do without having the source code. AutoIt Smith Link to comment Share on other sites More sharing options...
rambo3889 Posted July 29, 2006 Share Posted July 29, 2006 (edited) @Autoit smith decompile it and lookat the source Edit Acidfear why not just use the buttons in the select endselect instead of start using if then endif after the select?? Edited July 29, 2006 by rambo3889 My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! youre the best in town Fight! Link to comment Share on other sites More sharing options...
themax90 Posted July 29, 2006 Share Posted July 29, 2006 I do not have the force decompiler that was posted and removed a while back, can you pm me a link? Link to comment Share on other sites More sharing options...
NELyon Posted July 29, 2006 Share Posted July 29, 2006 can you zip it? I dont have a rar opener. Link to comment Share on other sites More sharing options...
acidfear Posted July 29, 2006 Author Share Posted July 29, 2006 Oh alright. I'll add the source. Sorry. Link to comment Share on other sites More sharing options...
rambo3889 Posted July 29, 2006 Share Posted July 29, 2006 There were no password on the autoit compiled program and i dont have a force decompiler My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! youre the best in town Fight! Link to comment Share on other sites More sharing options...
acidfear Posted July 29, 2006 Author Share Posted July 29, 2006 (edited) heres the uncompiled .au3 file :http://www.lifehacked.com/hosting/acidfear...ngeon/regv1.au3heres the readme:http://www.lifehacked.com/hosting/acidfear...geon/readme.txtHmm @ ramboI'm thinking of updating it to a full sized 10+ tweaks with a full readme of each tweak and what it does. I will then update to select endselect because thats a great idea Edited July 29, 2006 by acidfear Link to comment Share on other sites More sharing options...
rambo3889 Posted July 29, 2006 Share Posted July 29, 2006 Okay My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! youre the best in town Fight! Link to comment Share on other sites More sharing options...
SlimShady Posted July 29, 2006 Share Posted July 29, 2006 You really should make the tweaks independent of the main script. 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