am632 3 Posted March 10, 2011 Hi, I'm bored of constantly typing out common things everyday like various usernames/passwords/email addys etc so I put this script together. Basically once you run the script, press 'Alt+Shift+9' brings up a menu, tick the box for the word you want to assign to the f9 key, and click set, then every time you press the f9 key in a text box/document it will type out the word you selected. expandcollapse popup#cs ---------------------------------------------------------------------------- Author: Aaron Marsh Script: Sets the F9 Key to a word #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon Local $getword ;Function HotKeySet("{f9}", "capturef9") Func capturef9() HotKeySet("{f9}") Send($getword) HotKeySet("{f9}", "capturef9") EndFunc HotKeySet("+!9", "menuf9") Func menuf9() HotKeySet("+!9") $form = GuiSetState(@SW_SHOW) HotKeySet("+!9", "menuf9") EndFunc ;Gui $form = GUICreate("Main Menu", 430, 300, 677, 324) $title = GUICtrlCreateLabel("Choose a word to assign to the 'F9' Key", 16, 24, 394, 22) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox1 = GUICtrlCreateCheckbox("Default Word", 48, 72, 153, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox2 = GUICtrlCreateCheckbox("Default Word 2", 48, 104, 169, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox3 = GUICtrlCreateCheckbox("Default Word 3", 48, 136, 193, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox4 = GUICtrlCreateCheckbox("Default Word 4", 48, 168, 193, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $setbutton = GUICtrlCreateButton("Set", 76, 230, 81, 33, $WS_GROUP) $closebutton = GUICtrlCreateButton("Close", 172, 230, 81, 33, $WS_GROUP) $quitbutton = GUICtrlCreateButton("Quit", 268, 230, 81, 33, $WS_GROUP) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE $form = GuiSetState(@SW_HIDE) EndSwitch Select Case $nMsg = $setbutton If GUICtrlRead($checkbox1) = $GUI_CHECKED Then $getword = "Default Word" TrayTip("", "F9 has been set to " & $getword, 5) EndIf If GUICtrlRead($checkbox2) = $GUI_CHECKED Then $getword = "Default Word 2" TrayTip("", "F9 has been set to " & $getword, 5) EndIf If GUICtrlRead($checkbox3) = $GUI_CHECKED Then $getword = "Default Word 3" TrayTip("", "F9 has been set to " & $getword, 5) EndIf If GUICtrlRead($checkbox4) = $GUI_CHECKED Then $getword = "Default Word 4" TrayTip("", "F9 has been set to " & $getword, 5) EndIf Case $nMsg = $closebutton $form = GuiSetState(@SW_HIDE) Case $nMsg = $quitbutton Exit EndSelect WEnd The only thing you got 2 do is make sure only 1 box is ticked at a time otherwise the word that is assigned will be the last in the list. if anyone knows how to make it auto de-select a checkbox when another is selected then that would be gr8. thanks Share this post Link to post Share on other sites
JohnOne 1,589 Posted March 11, 2011 "if anyone knows how to make it auto de-select a checkbox when another is selected then that would be gr8." Use a group of radio controls instead. AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Share this post Link to post Share on other sites
drever44 0 Posted March 11, 2011 expandcollapse popup#cs ---------------------------------------------------------------------------- Author: Aaron Marsh Script: Sets the F9 Key to a word #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon Local $getword Local $form ;Function HotKeySet("{f9}", "capturef9") Func capturef9() HotKeySet("{f9}") Send($getword) HotKeySet("{f9}", "capturef9") EndFunc ;==>capturef9 HotKeySet("+!9", "menuf9") Func menuf9() HotKeySet("+!9") GUISetState(@SW_SHOW, $form) HotKeySet("+!9", "menuf9") EndFunc ;==>menuf9 ;Gui $form = GUICreate("Main Menu", 430, 300, 677, 324) GUISetFont(12, 400, 0, "Courier New") $Group1 = GUICtrlCreateGroup("Choose a word to assign to the 'F9' Key", 5, 5, 415, 200) $checkbox1 = GUICtrlCreateRadio("Default Word", 48, 72, 153, 17) $checkbox2 = GUICtrlCreateRadio("Default Word 2", 48, 104, 169, 17) $checkbox3 = GUICtrlCreateRadio("Default Word 3", 48, 136, 193, 17) $checkbox4 = GUICtrlCreateRadio("Default Word 4", 48, 168, 193, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $setbutton = GUICtrlCreateButton("Set", 76, 230, 81, 33, $WS_GROUP) $quitbutton = GUICtrlCreateButton("Quit", 268, 230, 81, 33, $WS_GROUP) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $form) EndSwitch Select Case $nMsg = $setbutton If GUICtrlRead($checkbox1) = $GUI_CHECKED Then $getword = "Default Word" TrayTip("", "F9 has been set to " & $getword, 5) GUISetState(@SW_HIDE, $form) EndIf If GUICtrlRead($checkbox2) = $GUI_CHECKED Then $getword = "Default Word 2" TrayTip("", "F9 has been set to " & $getword, 5) GUISetState(@SW_HIDE, $form) EndIf If GUICtrlRead($checkbox3) = $GUI_CHECKED Then $getword = "Default Word 3" TrayTip("", "F9 has been set to " & $getword, 5) GUISetState(@SW_HIDE, $form) EndIf If GUICtrlRead($checkbox4) = $GUI_CHECKED Then $getword = "Default Word 4" TrayTip("", "F9 has been set to " & $getword, 5) GUISetState(@SW_HIDE, $form) EndIf Case $nMsg = $quitbutton Exit EndSelect WEnd nice little script i played around with it a lil and changed the check box's to radio's to fix the multiple selection issue. works nice Share this post Link to post Share on other sites
am632 3 Posted March 11, 2011 nice, thanks guys, i never thought of that Share this post Link to post Share on other sites
BoD 0 Posted March 11, 2011 Hey Looking at this script Instead of having radio box's If there a way to keep the check boxes, and if 2 things are checked to send both those things so if 1 and 3 were checked it would send Default Word and Default Word 3 Share this post Link to post Share on other sites
AdmiralAlkex 118 Posted March 11, 2011 Hi BoD. I cleaned up the code from post 1 and made it to a basic example for what you are asking, you can probably work from here. expandcollapse popup#cs ---------------------------------------------------------------------------- Author: Aaron Marsh Edited by: Alexander Samuelsson (AdmiralAlkex) Script: Sets the F9 Key to a word #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon Local $getword ;Function HotKeySet("{f9}", "capturef9") Func capturef9() HotKeySet("{f9}") Send($getword) HotKeySet("{f9}", "capturef9") EndFunc ;==>capturef9 HotKeySet("+!9", "menuf9") Func menuf9() HotKeySet("+!9") $form = GUISetState(@SW_SHOW) HotKeySet("+!9", "menuf9") EndFunc ;==>menuf9 ;Gui $form = GUICreate("Main Menu", 430, 300, 677, 324) $title = GUICtrlCreateLabel("Choose a word to assign to the 'F9' Key", 16, 24, 394, 22) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox1 = GUICtrlCreateCheckbox("Default Word", 48, 72, 153, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox2 = GUICtrlCreateCheckbox("Default Word 2", 48, 104, 169, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox3 = GUICtrlCreateCheckbox("Default Word 3", 48, 136, 193, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $checkbox4 = GUICtrlCreateCheckbox("Default Word 4", 48, 168, 193, 17) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") $setbutton = GUICtrlCreateButton("Set", 76, 230, 81, 33, $WS_GROUP) $closebutton = GUICtrlCreateButton("Close", 172, 230, 81, 33, $WS_GROUP) $quitbutton = GUICtrlCreateButton("Quit", 268, 230, 81, 33, $WS_GROUP) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE $form = GUISetState(@SW_HIDE) Case $setbutton $getword = "" If BitAnd(GUICtrlRead($checkbox1),$GUI_CHECKED) Then $getword &= "Default Word" EndIf If BitAnd(GUICtrlRead($checkbox2),$GUI_CHECKED) Then $getword &= "Default Word 2" EndIf If BitAnd(GUICtrlRead($checkbox3),$GUI_CHECKED) Then $getword &= "Default Word 3" EndIf If BitAnd(GUICtrlRead($checkbox4),$GUI_CHECKED) Then $getword &= "Default Word 4" EndIf If $getword <> "" Then TrayTip("", "F9 has been set to " & $getword, 5) Case $closebutton $form = GUISetState(@SW_HIDE) Case $quitbutton Exit EndSwitch WEnd .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Share this post Link to post Share on other sites
BoD 0 Posted March 11, 2011 ahh awesome, exactly what i wanted. Thanks Share this post Link to post Share on other sites
am632 3 Posted March 13, 2011 (edited) Hi guys, I was thinking how to make the script better and thought it would probably be best to just have an input box so you can just type a word you want, then set it, so heres the code expandcollapse popup#cs ---------------------------------------------------------------------------- Author: Aaron Marsh Script: Sets the F9 Key to a word #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon Local $getword ;Function HotKeySet("{f9}", "capturef9") Func capturef9() HotKeySet("{f9}") Send($getword) HotKeySet("{f9}", "capturef9") EndFunc HotKeySet("+!9", "menuf9") Func menuf9() HotKeySet("+!9") $form = GuiSetState(@SW_SHOW) HotKeySet("+!9", "menuf9") EndFunc ;Gui $form = GUICreate("Main Menu", 430, 170, 677, 324) $title = GUICtrlCreateLabel("Choose a word to assign to the 'F9' Key", 16, 24, 394, 22) GUICtrlSetFont(-1, 12, 400, 0, "Courier New") ;InputBox $INPUTBOX = GUICtrlCreateInput("", 25, 70, 355, 23) GUICtrlSetFont(-1, 14, 400, 0, "Courier New") $setbutton = GUICtrlCreateButton("Set", 76, 120, 81, 33, $WS_GROUP) $closebutton = GUICtrlCreateButton("Close", 172, 120, 81, 33, $WS_GROUP) $quitbutton = GUICtrlCreateButton("Quit", 268, 120, 81, 33, $WS_GROUP) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE $form = GuiSetState(@SW_HIDE) EndSwitch Select Case $nMsg = $setbutton $readword = GUICtrlRead($INPUTBOX) GUICtrlSetData($INPUTBOX, $readword) $getword = $readword $form = GuiSetState(@SW_HIDE) EndSelect Select Case $nMsg = $closebutton $form = GuiSetState(@SW_HIDE) Case $nMsg = $quitbutton Exit EndSelect WEnd works ok if u put spaces in the input aswell. Hope you like it Edited March 13, 2011 by am632 Share this post Link to post Share on other sites
