Sign in to follow this  
Followers 0
acidfear

Registry Tweaker v1

10 posts in this topic

#1 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

#3 ·  Posted (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 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!

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

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! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

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

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  
Followers 0