Что нового

Не могу вставить свой цикл "do" в связку с "While...WEnd"

APGEN

Новичок
Сообщения
9
Репутация
0
Взял чужой скрипт с темы:
http://autoit-script.ru/index.php?topic=214.0
Сам скрипт, который делает мышку "пьяной":
Код:
TrayTip("MouseDrink", "Для выхода следует нажать Esc" & @CRLF & "Время отображения данной подсказки - 20 секунд", 20)
HotKeySet("{Esc}", "ExitFunc")

Global $anCurrPos[2], $anPrevPos[2]
Global Const $nSpeed = 0
Global Const $nSc = 10 ;разброс перемещения мыши
Global Const $nN = 10 ;число скачков

$anCurrPos = MouseGetPos()
$anPrevPos = $anCurrPos

While 1
    $anCurrPos = MouseGetPos()

    If ($anCurrPos[1] <> $anPrevPos[1]) Or ($anCurrPos[0] <> $anPrevPos[0]) Then
        $anPrevPos = $anCurrPos
        For $nI = 1 To $nN
            MouseMove(Random($anCurrPos[0] - $nSc, $anCurrPos[0] + $nSc, 1), Random($anCurrPos[1] - $nSc, $anCurrPos[1] + $nSc, 1), $nSpeed)
        Next
    EndIf

    $anCurrPos = MouseGetPos() ;если заккоментировать -> мышка будет дольше "отходить" от алкоголя (пока не вернётся в нужную точку)
    $anPrevPos = $anCurrPos
    Sleep(5)
Wend

Func ExitFunc()
;~  TrayTip("", "", 0)
    Exit
EndFunc
И есть свой маленький цикл do, который делает несколько передвижений курсора.
Проблема в том, что не могу вставить их друг в друга так, чтобы работали оба...Оно или двигает курсором, или делает передвижение пьяным. Я бы воспользовался справкой, но не знаю, какой задать ей вопрос :stars:
И да, проблема из за того, что не понимаю чужой скрипт. :-[
 

Юрий

Новичок
Сообщения
82
Репутация
3
если вы предполагаете одновременную работу и пьяного режима и рандомного передвижения, то вынужден огорчить - в AutoIt многозадачности нет. А свой "маленький цикл do" всё-таки напишите, нагляднее будет :smile:
 
Автор
A

APGEN

Новичок
Сообщения
9
Репутация
0
Я так понимаю, мне придется запускать второй скрипт параллельно из этого? :scratch:
Мой код:
Код:
$numberMax = FileReadLine('Amount.txt',1)
$link=('Amount.txt',2)
$nubber=0 
$n=Random(35,50) ;скорость курсора
$Massage = FileRead('Massage.txt'); письмо
do
$number=$number+1

MouseClick("left",1577,41,1,$n);
     sleep(Random(200,400))
ClipPut ($link)
     sleep(Random(200,400))
Send("^v")
     sleep(Random(200,400))
send("{ENTER}")
     sleep(Random(2000,4000))

MouseClick("left",1082,417,1,$n) ; письмо
     sleep(Random(200,400))
ClipPut ($Massage)
     sleep(Random(200,400))
Send("^v")
     sleep(Random(200,400))
If $number = $numberMax Then
	    ToolTip('Отправка  закончена"',0,0)
	sleep(20000)
	 Exit
 EndIf

until $number= $numberMax
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
APGEN,
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.
 
Верх