Sign in to follow this  
Followers 0
Swift

My New Hotkey Setter!

15 posts in this topic

#1 ·  Posted (edited)

I created this! I really like it...basically...choose what file you want to open for...each hotkey. press the button Save and activate hotkeys...the window will fade out. and you can use your hotkeys. then...to bring the window back in...press {END}..and it will fade in...press save and exit...and it will save your programs and the checkbox...reload it at another time..and it reads all this info...hope you like my great first GUI program..all by myself :)

Code:

#include <GUIConstants.au3>
#include <Misc.au3>
#include <Fade.au3>
Global $active = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hotkeyset - Set All Your Hotkeys Simple and Easy", 633, 448, 193, 125)
GUISetBkColor(0x000000)
FadeIn($Form1)
$Label1 = GUICtrlCreateLabel(" Use This Program To Set Hotkeys For Any Program That You Wish", 24, 16, 569, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel(" F1", 64, 104, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Hotkey", 40, 56, 84, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Full Path Of Program", 280, 56, 248, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 280, 104, 257, 21)
$Button1 = GUICtrlCreateButton("Browse", 552, 104, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel(" F2", 64, 136, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input2 = GUICtrlCreateInput("", 280, 136, 257, 21)
$Button2 = GUICtrlCreateButton("Browse", 552, 136, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel(" F3", 64, 168, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input3 = GUICtrlCreateInput("", 280, 168, 257, 21)
$Button3 = GUICtrlCreateButton("Browse", 552, 168, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel(" F4", 64, 200, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input4 = GUICtrlCreateInput("", 280, 200, 257, 21)
$Button4 = GUICtrlCreateButton("Browse", 552, 200, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel(" F5", 64, 232, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput("", 280, 232, 257, 21)
$Button5 = GUICtrlCreateButton("Browse", 552, 232, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel(" F6", 64, 264, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input6 = GUICtrlCreateInput("", 280, 264, 257, 21)
$Button6 = GUICtrlCreateButton("Browse", 552, 264, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label10 = GUICtrlCreateLabel(" F7", 64, 296, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input7 = GUICtrlCreateInput("", 280, 296, 257, 21)
$Button7 = GUICtrlCreateButton("Browse", 552, 296, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel(" F8", 64, 328, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input8 = GUICtrlCreateInput("", 280, 328, 257, 21)
$Button8 = GUICtrlCreateButton("Browse", 552, 328, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label12 = GUICtrlCreateLabel(" F9", 64, 360, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input9 = GUICtrlCreateInput("", 280, 360, 257, 21)
$Button9 = GUICtrlCreateButton("Browse", 552, 360, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button10 = GUICtrlCreateButton("Save And Enable Hotkeys Now", 16, 392, 401, 49, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button11 = GUICtrlCreateButton("Clear All", 552, 64, 65, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button12 = GUICtrlCreateButton("Save And Exit", 432, 392, 177, 49, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Checkbox1 = GUICtrlCreateCheckbox("Override Windows", 112, 104, 129, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
;===============================================================================
$F1 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F1", "")
GUICtrlSetData($Input1, $F1)
$F2 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F2", "")
GUICtrlSetData($Input2, $F2)
$F3 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F3", "")
GUICtrlSetData($Input3, $F3)
$F4 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F4", "")
GUICtrlSetData($Input4, $F4)
$F5 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F5", "")
GUICtrlSetData($Input5, $F5)
$F6 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F6", "")
GUICtrlSetData($Input6, $F6)
$F7 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F7", "")
GUICtrlSetData($Input7, $F7)
$F8 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F8", "")
GUICtrlSetData($Input8, $F8)
$F9 = IniRead(@MyDocumentsDir & "\a.ini", "Location", "F9", "")
GUICtrlSetData($Input9, $F9)
$win = IniRead(@MyDocumentsDir & "\a.ini", "Override", "Windows", "4")
GUICtrlSetState($Checkbox1, $Win)
;================================================================================
If $win = "4" Then
GUICtrlSetData($Input1, "Windows Does Not Allow F1 To Be Used")
GUICtrlSetState($Input2, $GUI_FOCUS)
GUICtrlSetState($Input1, $GUI_DISABLE)
GUICtrlSetState($Button1, $GUI_DISABLE)
Else
    GUICtrlSetState($Input1, $GUI_FOCUS)
EndIf

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Fadeout($Form1)
            Exit
        Case $Checkbox1
            If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                GUICtrlSetData($Input1, "")
            GUICtrlSetState($Input1, $GUI_ENABLE)
            GUICtrlSetState($Button1, $GUI_ENABLE)
            GUICtrlSetState($Input1, $GUI_FOCUS)
            Else
            GUICtrlSetState($Input1, $GUI_DISABLE)
            GUICtrlSetState($Button1, $GUI_DISABLE)
            GUICtrlSetData($Input1, "Windows Does Not Allow F1 To Be Used")
            GUICtrlSetState($Input2, $GUI_FOCUS)
            EndIf
        Case $Button1
            $file1 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input1, $file1)
        Case $Button2
            $file2 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input2, $file2)
        Case $Button3
            $file3 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input3, $file3)
        Case $Button4
            $file4 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input4, $file4)
        Case $Button5
            $file5 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input5, $file5)
        Case $Button6
            $file6 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input6, $file6)
        Case $Button7
            $file7 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input7, $file7)
        Case $Button8
            $file8 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input8, $file8)
        Case $Button9
            $file9 = FileOpenDialog("Choose Program .exe", "", "Exe's (*.exe)|Shortcuts (*.ink)")
            GUICtrlSetData($Input9, $file9)
        Case $Button11
            If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED Then
            GUICtrlSetData($Input1, "Windows Does Not Allow F1 To Be Used")
            GUICtrlSetData($Input2, "")
            GUICtrlSetData($Input3, "")
            GUICtrlSetData($Input4, "")
            GUICtrlSetData($Input5, "")
            GUICtrlSetData($Input6, "")
            GUICtrlSetData($Input7, "")
            GUICtrlSetData($Input8, "")
            GUICtrlSetData($Input9, "")
            GUICtrlSetState($Input2, $GUI_FOCUS)
            Else
            GUICtrlSetData($Input1, "")
            GUICtrlSetData($Input2, "")
            GUICtrlSetData($Input3, "")
            GUICtrlSetData($Input4, "")
            GUICtrlSetData($Input5, "")
            GUICtrlSetData($Input6, "")
            GUICtrlSetData($Input7, "")
            GUICtrlSetData($Input8, "")
            GUICtrlSetData($Input9, "")
            GUICtrlSetState($Input1, $GUI_FOCUS)
            EndIf
        Case $Button10
            MsgBox(0, "Enabling Hotkeys", "To Enable The GUI, And Disable Hotkeys Press 'END' At Anytime")
            Fadeout($Form1)
            Write()
            $active = 1
            While $active
                Sleep(50)
                If _IsPressed(23) Then
                    _end()
                EndIf
                If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                    Sleep(50)
                    If _IsPressed(70) Then
                        If GUICtrlRead($Input1) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F1P = GUICtrlRead($Input1)
                    Run($F1P)
                EndIf
            EndIf
        EndIf
                If _IsPressed(71) Then
                    If GUICtrlRead($Input2) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F2P = GUICtrlRead($Input2)
                    Run($F2P)
                    EndIf
                EndIf
                If _IsPressed(72) Then
                    If GUICtrlRead($Input3) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F3P = GUICtrlRead($Input3)
                    Run($F3P)
                    EndIf
                EndIf
                If _IsPressed(73) Then
                    If GUICtrlRead($Input4) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F4P = GUICtrlRead($Input4)
                    Run($F4P)
                EndIf
                EndIf
                If _IsPressed(74) Then
                    If GUICtrlRead($Input5) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F5P = GUICtrlRead($Input5)
                    Run($F5P)
                EndIf
                EndIf
                If _IsPressed(75) Then
                    If GUICtrlRead($Input6) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F6P = GUICtrlRead($Input6)
                    Run($F6P)
                EndIf
                EndIf
                If _IsPressed(76) Then
                    If GUICtrlRead($Input7) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F7P = GUICtrlRead($Input7)
                    Run($F7P)
                EndIf
                EndIf
                If _IsPressed(77) Then
                    If GUICtrlRead($Input2) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F8P = GUICtrlRead($Input8)
                    Run($F8P)
                EndIf
                EndIf
                If _IsPressed(78) Then
                    If GUICtrlRead($Input9) = "" Then
                        Msgbox(0, "Hotkey", "Hotkey Blank")
                    Else
                    $F9P = GUICtrlRead($Input9)
                    Run($F9P)
                EndIf
                EndIf
                Sleep(100)
            WEnd
        Case $Button12
            Global $active = 0
            Write()
            Fadeout($Form1)
        Exit
    EndSwitch
WEnd

Func Write()
iniWrite(@MyDocumentsDir & "\a.ini", "Location", "F1", GUICtrlRead($Input1))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F2", GUICtrlRead($Input2))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F3", GUICtrlRead($Input3))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F4", GUICtrlRead($Input4))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F5", GUICtrlRead($Input5))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F6", GUICtrlRead($Input6))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F7", GUICtrlRead($Input7))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F8", GUICtrlRead($Input8))
IniWrite(@MyDocumentsDir & "\a.ini", "Location", "F9", GUICtrlRead($Input9))
IniWrite(@MyDocumentsDir & "\a.ini", "Override", "Windows", GUICtrlRead($Checkbox1))
EndFunc

Func _end()
    FadeIn($Form1)
    $active = 0
;glitch after fading back in, every input would be black? so focusing to reinable
    If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
    GUICtrlSetState($Input1, $GUI_FOCUS)
    GUICtrlSetState($Input2, $GUI_FOCUS)
    GUICtrlSetState($Input3, $GUI_FOCUS)
    GUICtrlSetState($Input4, $GUI_FOCUS)
    GUICtrlSetState($Input5, $GUI_FOCUS)
    GUICtrlSetState($Input6, $GUI_FOCUS)
    GUICtrlSetState($Input7, $GUI_FOCUS)
    GUICtrlSetState($Input8, $GUI_FOCUS)
    GUICtrlSetState($Input9, $GUI_FOCUS)
    GUICtrlSetState($Input1, $GUI_FOCUS)
    Else
    GUICtrlSetState($Input1, $GUI_ENABLE)
    GUICtrlSetState($Input1, $GUI_FOCUS)
    GUICtrlSetState($Input2, $GUI_FOCUS)
    GUICtrlSetState($Input3, $GUI_FOCUS)
    GUICtrlSetState($Input4, $GUI_FOCUS)
    GUICtrlSetState($Input5, $GUI_FOCUS)
    GUICtrlSetState($Input6, $GUI_FOCUS)
    GUICtrlSetState($Input7, $GUI_FOCUS)
    GUICtrlSetState($Input8, $GUI_FOCUS)
    GUICtrlSetState($Input9, $GUI_FOCUS)
    GUICtrlSetState($Input1, $GUI_DISABLE)
    GUICtrlSetState($Input2, $GUI_FOCUS)
    EndIf
EndFunc

You will need the fade udf...so..here it is...

Fade UDF:

Func Fadein($GUI)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $GUI, "int", 1000, "long", 0x00080000)
EndFunc
Func Fadeout($GUI)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $GUI, "int", 1000, "long", 0x00090000)
EndFunc

Very simple :) just didnt want to type the whole Dllcall thing :)

Please comment!

Edit: So how am I doing? Am I learning AutoIt well? Is this poor for how long ive been here?

Edited by Swift

Share this post


Link to post
Share on other sites



So, from the description, this is a program launcher?

Share this post


Link to post
Share on other sites

Yes...? What not willing to try it?

It sets hotkeys...not using HotKeySet...and then runs programs of your choosing

Share this post


Link to post
Share on other sites

No, but I was slightly confused by the description.

Share this post


Link to post
Share on other sites

Alright...Well I'll See Ya Tomarrow...Hey Justin Its Really Nice...So...I'll Be Back Tomarrow

Share this post


Link to post
Share on other sites

Posted Image

Nice work Swift. You are definitely improving. You are learning at a better rate than I did when I first started using Autoit :)

Share this post


Link to post
Share on other sites

After looking over the code, its pretty cool. :)

Good job!

I bet this would be a lot shorter if you used an array, but thats just a thought.

:)

Share this post


Link to post
Share on other sites

I'm glad you got this code working! Keep up the good scripting, can't wait to see more work from you!


[center][/center]

Share this post


Link to post
Share on other sites

Your Doing Great Swift! Learning at a very nice rate. Looking forward to seeing more of your work...

Share this post


Link to post
Share on other sites

Thanks Everyone! To say the truth..I dont really know how to use an array ;( ...so...I made this using what I knew :)

Share this post


Link to post
Share on other sites

*BUMP* (I Want More FeedBack/And Testers!)

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

Why don't you just keep the Fade UDF as normal not included functions?

I am impressed however, I would also use arrays for this :)

One more thing. If you create your GUI in Koda then remember to set your own variables for quicker access.

Edited by JamesB

Share this post


Link to post
Share on other sites

Super that is that what i need for my lan party's and gaming nigths

Share this post


Link to post
Share on other sites

Cool! Glad that helped. Btw, I am Swift, just with a different name.

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