Jump to content

Registry Tweaker v1


acidfear
 Share

Recommended Posts

Hey all :)

I finally finished my first application that i've created, successfuly at least :whistle:

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:

;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 script

RegTweaksv1.rar

Edited by acidfear
Link to comment
Share on other sites

@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 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! you’re the best in town Fight!
Link to comment
Share on other sites

heres the uncompiled .au3 file :

http://www.lifehacked.com/hosting/acidfear...ngeon/regv1.au3

heres the readme:

http://www.lifehacked.com/hosting/acidfear...geon/readme.txt

Hmm @ rambo

I'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 :whistle:

Edited by acidfear
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...