Send ("{A DOWN}") with variable?

[was2]

Hey !

I was thinking about doing an automated "send" command, with a chosen key, but i cant get it to work with a variable. I've already tried the code of another thread, but that doesnt work either. Do you know how i can get it to work?

[Blue_Drache]

show us the code you used and what's the program you're trying to interact with?

[was2]

  On 7/4/2013 at 11:38 PM, Blue_Drache said:

show us the code you used and what's the program you're trying to interact with?

I'm not trying to interact with a specific program, i want to make a copy-paste program, with an input line where you can type the words you want to send and specify a hotkey. The code i use is the following:

$var = GuiCtrlRead($Input1)

Send("{" & $var & "down}")
sleep(20)
Send("{" & $var & "up}")

That one doesnt work, neither with single letters and i dont get why... i've also tried those:

send($var&{down})

send($var & "{down}")

but they didnt work either.

[water]

Try:

$var = GuiCtrlRead($Input1)
Send("{" & $var & " down}")
sleep(20)
Send("{" & $var & " up}")

[was2]

  On 7/5/2013 at 9:21 AM, water said:

 

Try:

$var = GuiCtrlRead($Input1)
Send("{" & $var & " down}")
sleep(20)
Send("{" & $var & " up}")

Thats exactly the code i posted, why should it work now?

[Malkey]

This example might give you a few ideas.

Global $var = ""
HotKeySet("^!i", "_InputFunc"); Press Ctrl+Alt+i keys to input data in InputBox.(Highlighted text is put in InputBox.)
HotKeySet("^!s", "_SendFunc") ; Press Ctrl+Alt+s keys to insert data at blinking cursor position, or;
;                                             Highlight text to be replace then press Ctrl+Alt+s keys.
HotKeySet("{ESC}", "_Terminate"); Press Esc key to exit loop (end script)

While Sleep(20)
WEnd

; Press Ctrl+Alt+i keys
Func _InputFunc()
    Send("^c")                  ; Copy highlighted text to clipboard.
    $var = InputBox("Input Data", "Enter data to be send", ClipGet())
EndFunc   ;==>_InputFunc

; Press Ctrl+Alt+s keys
Func _SendFunc()
    Send($var)
EndFunc   ;==>_SendFunc

; Press Esc key
Func _Terminate()
    Exit 0
EndFunc   ;==>_Terminate

[water]

Did you notice the additional space?

[fede97]

From helpfile:

  Quote

[optional] Changes how "keys" is processed:
  flag = 0 (default), Text contains special characters like + and ! to indicate SHIFT and ALT key-presses.
  flag = 1, keys are sent raw.

So, this does the trick

$var = GuiCtrlRead($Input1)

Send("{" & $var & "down}", 1)
sleep(20)
Send("{" & $var & "up}", 1)