HotKeySet holds CTRL down

[UniPer 0]

Hi All,

I'm trying to create a script that makes it able to just hit a combination like CTRL+G to login to Gmail.com and CTRL+F to login on Facebook.

The problem is that when I used one of those hotkeys it seems to hold down the CTRL button so everytime I hit the 'F' or 'G' it runs the function.

My script below:

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet ( "^g", "google" )
HotKeySet ( "^l", "linkedin" )
HotKeySet ( "^f", "facebook" )
HotKeySet ( "^h", "hyves" )
While 1;loop forever
sleep(100)
WEnd
Func Google()
Send ("username")
Send ("{TAB}")
Send ("password")
Send ("{TAB}")
Send ("{SPACE}")
EndFunc
Func linkedin()
Send ("username")
Send ("{TAB}")
Send ("password")
Send ("{TAB}")
Send ("{SPACE}")
EndFunc
Func facebook()
Send ("username")
Send ("{TAB}")
Send ("password")
Send ("{TAB}")
Send ("{SPACE}")
EndFunc
Func hyves()
Send ("username")
Send ("{TAB}")
Send ("password")
Send ("{TAB}")
Send ("{SPACE}")
EndFunc
Exit

Why is that happening?

[BrewManNH 1,306]

http://www.autoitscript.com/wiki/FAQ#Why_does_the_Ctrl_key_get_stuck_down_after_I_run_my_script.3F

[UniPer 0]

Sorry, I read the topic but I really don't know how to use it with my script.

I included the function but I still have got the same issue...I'm not that experienced.

Can please tell me, or put in the right direction, where I went wrong:

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include "Misc.au3"
HotKeySet ( "^g", "google" )
HotKeySet ( "^l", "linkedin" )
HotKeySet ( "^f", "facebook" )
HotKeySet ( "^h", "hyves" )
While 1
sleep(100)
WEnd
;Send the string $ss after the Shift Alt and Ctrl keys are released. Optionally give a warning after 1 sec if any of those keys still down.
;Requires misc.au3 to be included in the script for the _IsPressed function.
Func _SendEx($ss, $warn = "")
Local $iT = TimerInit()
While _IsPressed("10") Or _IsPressed("11") Or _IsPressed("12")
  If $warn <> "" And TimerDiff($iT) > 1000 Then
   MsgBox(262144, "Warning", $warn)
  EndIf
  Sleep(50)
WEnd
Send($ss)
EndFunc;==>_SendEx
Func google()
Send ("username")
Send ("{TAB}")
Send ("password")
Send ("{Enter}")
_SendEx("{LCTRL}");
EndFunc
Func linkedin()
Send ("username")
Send ("{TAB}")
Send ("password")
Send ("{Enter}")
_SendEx("{LCTRL}");
EndFunc
Func facebook()
Send ("username")
Send ("{TAB}")
Send ("password")
Send ("{Enter}")
_SendEx("{LCTRL}");
EndFunc
Func hyves()
Send ("username")
Send ("{TAB}")
Send ("password")
_SendEx("{LCTRL}");
EndFunc
Exit

Edited January 3, 2012 by UniPer

[BrewManNH 1,306]

Here's how you would include that function in your script:

expandcollapse popup

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Misc.au3>
HotKeySet("^g", "google")
HotKeySet("^l", "linkedin")
HotKeySet("^f", "facebook")
HotKeySet("^h", "hyves")
While 1;loop forever
    Sleep(100)
WEnd
Func Google()
    _SendEx("username")
    _SendEx("{TAB}")
    _SendEx("password")
    _SendEx("{TAB}")
    _SendEx("{SPACE}")
EndFunc   ;==>Google
Func linkedin()
    _SendEx("username")
    _SendEx("{TAB}")
    _SendEx("password")
    _SendEx("{TAB}")
    _SendEx("{SPACE}")
EndFunc   ;==>linkedin
Func facebook()
    _SendEx("username")
    _SendEx("{TAB}")
    _SendEx("password")
    _SendEx("{TAB}")
    _SendEx("{SPACE}")
EndFunc   ;==>facebook
Func hyves()
    _SendEx("username")
    _SendEx("{TAB}")
    _SendEx("password")
    _SendEx("{TAB}")
    _SendEx("{SPACE}")
EndFunc   ;==>hyves
Exit
Func _SendEx($ss, $warn = "")
    Local $iT = TimerInit()

    While _IsPressed("10") Or _IsPressed("11") Or _IsPressed("12")
        If $warn <> "" And TimerDiff($iT) > 1000 Then
            MsgBox(262144, "Warning", $warn)
        EndIf
        Sleep(50)
    WEnd
    Send($ss)
EndFunc;==>_SendEx

This will not send the key sequences until the CTRL key is released, so make sure you only hit the hotkey once, otherwise it will send it multiple times.

[UniPer 0]

Really...really..thanks!

Great job...I see what you did..it makes me understand it a lot better now!

Thanks again..

Cheers,

UniPer