Что нового

[Автоматизация] Зациклить отправку сообщений с произвольной сменой их

Криворукий

Новичок
Сообщения
17
Репутация
0
Доброго времени суток!
Подскажите пжл, как зациклить процесс?
Имеется сайт, содержащий в себе чат, необходимо через заданные промежутки времени отправлять рандомно сообщения, что прописаны в коде программы.
Вопрос с автологином, открытием окна чата и отправкой сообщений я решил. Не могу понять как зациклить данный кусок кода?

Код:
_IENavigate($oIE, 'Окно с активированным чатом')
MouseClick('left', 390, 451 )
Send ( 'Текст_1' )
Send("{ENTER}")
Sleep (5000)
Send ( 'Текст_2' )
Send("{ENTER}")
Sleep (5000)
Send ( 'Текст_3' )
Send("{ENTER}")
Sleep (5000)


Спасибо за подсказку.
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Криворукий сказал(а):
как зациклить данный кусок кода?
Зациклить циклом! :smile:
Ну вот так например можно:
Код:
For $k = 1 To 100 Step +1
;    Этот код выполнится 100 раз
    _IENavigate($oIE, 'Окно с активированным чатом')
    MouseClick('left', 390, 451 )
    Send ( 'Текст_1' )
    Send("{ENTER}")
    Sleep (5000)
    Send ( 'Текст_2' )
    Send("{ENTER}")
    Sleep (5000)
    Send ( 'Текст_3' )
    Send("{ENTER}")
    Sleep (5000)
Next
 
Автор
К

Криворукий

Новичок
Сообщения
17
Репутация
0
А как рандомно высылать сообщения? Сейчас они буду отсылаться по очереди
Текст_1
Текст_2
Текст_3

Как их отсылать в случайной последовательности?
 

Коршун

Новичок
Сообщения
58
Репутация
1
Криворукий [?]
А как рандомно высылать сообщения?
Код:
Dim $text[3] = ['Текст_1', 'Текст_2', 'Текст_3']
For $k = 1 To 100 Step +1
;    Этот код выполнится 100 раз
    _IENavigate($oIE, 'Окно с активированным чатом')
    MouseClick('left', 390, 451 )
	$Random = Random(0, 2, 1)
    Send ( $text[$Random] )
    Send("{ENTER}")
    Sleep (5000)
Next
 
Верх