Registry Tweaker v1

[acidfear]

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 script

RegTweaksv1.rar

Edited July 29, 2006 by acidfear

[themax90]

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

[rambo3889]

@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

[themax90]

I do not have the force decompiler that was posted and removed a while back, can you pm me a link?

[NELyon]

can you zip it? I dont have a rar opener.

[acidfear]

Oh alright. I'll add the source. Sorry.

[rambo3889]

There were no password on the autoit compiled program

and i dont have a force decompiler

[acidfear]

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

Edited July 29, 2006 by acidfear

[rambo3889]

Okay

[SlimShady]

You really should make the tweaks independent of the main script.