Mister_Che
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: while 1
MouseClick("left", 120, 123, 1)
MouseClick("left", 913, 431, 1)
Send ("{HOME}")
MouseClick("left", 376, 598, 1)
Send("#my script")
MouseClick("left", 736, 637, 1)
Dim $aWord[5] = [4, "Hello", "World", "Good", "Morning"]
For $i = 1 To $aWord[0]
Send($aWord[$i])
MouseClick("left", 644, 596, 1)
MouseClick("left", 295, 120, 1)
Next
Sleep(1000 * 120)
WEnd
|
Нужно, чтоб написался Хелло, сделалось 2 маусклика и на две минуты затих, чтоб затем следующее слово ввел (с повторением до этого вышестоящих маускликов). Не получается, куда бы я Некст ни совал.
Тоже и с цифирным вариантом
Цитата: For $i = 1 To 3
$sTextToSend = $i
If $i = 3 Then $sTextToSend = $i
Send($sTextToSend)
Next
|
Добавлено:
Он или вводит сразу все цифры/буквы или делает бессмысленные движения мышью. |
