Need a simple program

[bobby177]

Is this the affect your looking for?

_MySend('a', 2000, 0)

Func _MySend($sCharacters, $iRepeatTime, $iSendDelay = 5)
    $OptSKD = Opt('SendKeyDelay', $iSendDelay)
    Local $iSendTimer = TimerInit()
    While TimerDiff($iSendTimer) <= $iRepeatTime
        Send($sCharacters)
        Sleep(10)
    WEnd
    Opt('SendKeyDelay', $OptSKD)
EndFunc

Exactly!! Now is there a way to make it run everytime i push a certain key? (F1)

[i542]

Maybe you can use this:

HotKeySet ("{F1}","_MySend")
While 1
sleep (10)
Wend
;here you can add SmOke_N's code

Or you can use ini file to choose your key. I'm again not understand you....

[bobby177]

Maybe you can use this:

HotKeySet ("{F1}","_MySend")
While 1
sleep (10)
Wend
;here you can add SmOke_N's code

Or you can use ini file to choose your key. I'm again not understand you....

I want to run this

_MySend('a', 2000, 0)

Func _MySend($sCharacters, $iRepeatTime, $iSendDelay = 5)
    $OptSKD = Opt('SendKeyDelay', $iSendDelay)
    Local $iSendTimer = TimerInit()
    While TimerDiff($iSendTimer) <= $iRepeatTime
        Send($sCharacters)
        Sleep(10)
    WEnd
    Opt('SendKeyDelay', $OptSKD)
EndFunc

Every time i push F1

[SmOke_N]

I want to run this

_MySend('a', 2000, 0)

Func _MySend($sCharacters, $iRepeatTime, $iSendDelay = 5)
    $OptSKD = Opt('SendKeyDelay', $iSendDelay)
    Local $iSendTimer = TimerInit()
    While TimerDiff($iSendTimer) <= $iRepeatTime
        Send($sCharacters)
        Sleep(10)
    WEnd
    Opt('SendKeyDelay', $OptSKD)
EndFunc

Every time i push F1

That function has parameters so you can't just use HotKeySet() on it directly

HotKeySet ("{F1}","_HotSend")
While 1
    Sleep(1000)
WEnd

Func _HotSend()
    _MySend('q', 2000, 0)
EndFunc

Func _MySend($sCharacters, $iRepeatTime, $iSendDelay = 5)
    $OptSKD = Opt('SendKeyDelay', $iSendDelay)
    Local $iSendTimer = TimerInit()
    While TimerDiff($iSendTimer) <= $iRepeatTime
        Send($sCharacters)
        Sleep(10)
    WEnd
    Opt('SendKeyDelay', $OptSKD)
EndFunc

[bobby177]

Thank you VERY VERY much, exactly what i was looking for

EDIT - how would i change it to send the numpad enter instead of Q?

I tried {NUMPADENTER} and NUMPADENTER but it says some kind of error

Edited June 10, 2006 by bobby177

[bobby177]

If its too much work then just dont do it, i can find a way to make this one work

[SmOke_N]

Thank you VERY VERY much, exactly what i was looking for

EDIT - how would i change it to send the numpad enter instead of Q?

I tried {NUMPADENTER} and NUMPADENTER but it says some kind of error

Well how would you do it for Send()?

Send('{NUMPADENTER}')

?

So...

HotKeySet ("{F1}","_HotSend")
While 1
    Sleep(1000)
WEnd

Func _HotSend()
    _MySend('{NUMPADENTER}', 2000, 0)
EndFunc

Func _MySend($sCharacters, $iRepeatTime, $iSendDelay = 5)
    $OptSKD = Opt('SendKeyDelay', $iSendDelay)
    Local $iSendTimer = TimerInit()
    While TimerDiff($iSendTimer) <= $iRepeatTime
        Send($sCharacters)
        Sleep(10)
    WEnd
    Opt('SendKeyDelay', $OptSKD)
EndFunc
Global $StaySearching

Makes sense?

[bobby177]

Well how would you do it for Send()?

Send('{NUMPADENTER}')

?

So...

HotKeySet ("{F1}","_HotSend")
While 1
    Sleep(1000)
WEnd

Func _HotSend()
    _MySend('{NUMPADENTER}', 2000, 0)
EndFunc

Func _MySend($sCharacters, $iRepeatTime, $iSendDelay = 5)
    $OptSKD = Opt('SendKeyDelay', $iSendDelay)
    Local $iSendTimer = TimerInit()
    While TimerDiff($iSendTimer) <= $iRepeatTime
        Send($sCharacters)
        Sleep(10)
    WEnd
    Opt('SendKeyDelay', $OptSKD)
EndFunc
Global $StaySearching

Makes sense?

Oh now I see how to do it, Thanks a bunch