Send Hotkeys

[onestcoder]

If you have a script that is using a on event gui button setup is it possible to have the button run a fuction that sends a hotkey?

[cdkid]

HotKeySet("a","somefunc")
While 1
sleep(100000)
WEnd
func somefunc()
hotkeyset('a','')
send("a")
hotkeyset('a','somefunc')
endfunc

that should help ya a bit

[jvanegmond]

What do you mean by send a hotkey?

You can open a function with a GUI button or send a key with a GUI button, both are possible.

[onestcoder]

What do you mean by send a hotkey?

You can open a function with a GUI button or send a key with a GUI button, both are possible.

something like

$gui = GUICreate("ONESTCODER BOTZ", 212, 75, 0, 0, -1, $WS_EX_TOPMOST)
opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")

HotKeySet("{F9}", "TogglePause")

$pause = GUICtrlCreateButton("PAUSE", 75, 40, 60)
GUICtrlSetOnEvent($pause, "Pause")

Func Pause()
Send("{F9}"); this bing the  HotKeySet("{F9}", "TogglePause")
EndFunc
Func TogglePause()
    $paused = Not $paused
    $run = Not $run
    If $paused = 0 Then
        ToolTip("")
        GUICtrlSetData($pausedinput, 'RUNNING')
    ElseIf $paused = 1 Then
        Sleep(100)
        ToolTip("")
        GUICtrlSetData($pausedinput, 'PAUSED')
    EndIf
EndFunc  ;==>TogglePause

Edited March 3, 2006 by onestcoder

[Valuater]

this seems to work

( however you do not have a while/wend loop in your "pause" )

expandcollapse popup

#include <GUIConstants.au3>

Dim $paused

$gui = GUICreate("ONESTCODER BOTZ", 212, 75, 100, 100, -1, $WS_EX_TOPMOST)
opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")

HotKeySet("{F9}", "TogglePause")

$pausedinput = GUICtrlCreateButton("PAUSE", 75, 40, 60)
GUICtrlSetOnEvent( -1, "Pause")
GUISetState()

While 1
    Sleep(10)
WEnd

Func Pause()
Send("{F9}"); this bing the  HotKeySet("{F9}", "TogglePause")
EndFunc
Func TogglePause()
    $paused = Not $paused
   ;$run = Not $run
    If $paused = 0 Then
        ToolTip("Running",5.5)
        GUICtrlSetData($pausedinput, 'RUNNING')
    ElseIf $paused = 1 Then
        Sleep(100)
        ToolTip("Paused",5,5)
        GUICtrlSetData($pausedinput, 'PAUSED')
    EndIf
EndFunc ;==>TogglePause

Func Terminate()
    Exit
EndFunc

8)

[onestcoder]

so i don't need the

$run = Not $run