Send & Sleep at the same time

[Trojan55]

Hello guys I'm bored of typing a text then new line sleep... etc...

So i decided to make a function of SendSleep(text,sleepms)

Here is the code :

Func SendSleep($txt,$time)
    $chr = StringLen($txt)
    Dim $lol[$chr]
    Dim $bitz = 0
    Do
    $bitz = $bitz + 1
    Send($lol[$bitz])
    Sleep($time)
Until $bitz = $chr
EndFunc
SendSleep("Hello",100)

Error is :

C:UsersSyhsherDocumentsjik.au3 (7) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

Send($lol[$bitz])

Send(^ ERROR

[michaelslamet]

Hi Trojan,

Try this:

Func SendSleep($txt,$time)
    For $a = 1 to StringLen($txt)
        Send(StringMid($txt, $a, 1))
        Sleep($time)
    Next
EndFunc
SendSleep("Hello",100)

 

Is that what you want?

[Trojan55]

Yea , Exactly !!! thanks solved!!!