Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Скрипт который я написал для одного пользователя, выполняется бесконечно пока не нажата F11, работает нормально:

PHP код: Выделить весь код

Run("*********")
Sleep(3000)
HotKeySet("{F11}""Terminate")   ;Остановка скрипта

While True  ;Бесконечная обработка скрипта
  WinWaitActive
("**********")   ;Активное окно программы
  AutoItSetOption 
"MouseCoordMode")  ;Клик на поле ввода Логина 
  MouseClick 
'left'933022)

  
Send ("lexx127") ;Пользователь 1

  AutoItSetOption 
"MouseCoordMode")   ;Кнопка Start
  MouseClick 
'left'26516012)
  
Sleep(10000)   ;Ожидание 6 минут
  AutoItSetOption 
"MouseCoordMode")   ;Кнопка Stop
  MouseClick 
'left'3581602)
WEnd

Func Terminate
()
Exit 
0
EndFunc 

Но проблема состоит в том что пользователей должно быть 50 человек, и просто копировать все операции скрипта с мышкой + второй логин, тупо. В справке нашел как можно сделать функцию Func, в функцию хочу поместить однотипные операции (клики мышкой), плюс алгоритм смены логина пользователя:

PHP код: Выделить весь код

Run("*********")
Sleep(3000)
  
WinWaitActive("**********")   ;Активное окно программы
  AutoItSetOption 
"MouseCoordMode")  ;Клик на поле ввода Логина 
  MouseClick 
'left'933022)

HotKeySet("{F11}""Terminate")   ;Остановка скрипта

While True  ;Бесконечная обработка скрипта

$doubled 
Mous($1)

  
Send $1("lexx127") ;Пользователь 1
  Send 
$2("den")  ;Пользователь 2
  Send 
$3("vovan")  ;Пользователь 3
  
WEnd

Func Terminate
()
Exit 
0
EndFunc

; <<<----------функция Смены пользователя--------->>>
  
Func Mouse($1)
 
     
AutoItSetOption "MouseCoordMode"2)   ;Кнопка Start
     MouseClick 
'left'26516012)
     
     
Sleep(360000)   ;Ожидание 6 минут
       
     AutoItSetOption 
"MouseCoordMode"2)   ;Кнопка Stop
     MouseClick 
'left'35816012)
     
Sleep(1500)
     
AutoItSetOption "MouseCoordMode"2)  ;Клик на поле ввода Логина 
     MouseClick 
'left'933022)
     
     $
= $1  
     
Return $1

  EndFunc 

вот тут я и запарил

Отправлено: 08:52, 15-05-2008 | #537