[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Drsmog · Отправлено: **13:57, 14-05-2008** | #**531**

Как разбить число допустим 1367 на 1 3 6 7 и присвоить каждую переменной

Creat0R · Конфигурация компьютера

Drsmog,

Цитата:

разбить число допустим 1367 на 1 3 6 7 и присвоить каждую переменной

Хм, каждому числу создать переменную? так можно:

Код:

$iNumber = 1367
$aNumbersArr = StringSplit($iNumber, "")

For $i = 1 To UBound($aNumbersArr)-1
    Assign("iNumber_" & $i, $aNumbersArr[$i])
Next

MsgBox(0, "", $iNumber_1 & " " & $iNumber_2 & " " & $iNumber_3 & " " & $iNumber_4)

Vadikan · Конфигурация компьютера

All
Посмотрите, плиз, тему Трей начал прыгать - это ваша специализация

Creat0R · Конфигурация компьютера

Библиотека автоматизации Winamp плеером!

Не требует установки внешних модулей к Winamp, функции построены на основе SDK с оф. сайта разработчиков Winamp'а.

amel27 · Отправлено: **06:12, 15-05-2008** | #**535**

DENoszone

Цитата:

Можете написать скрипт »

есть два вопроса:

1. Для чего нужен скрипт? (есть сомнения)
2. Как вы собираетесь ограничивать геометрический рост кол-ва обрабатываемых линков?.. К примеру, в телепорте есть два механизма: ограничение на глубину вложенных ссылок, либо только ссылками на исходный сайт... В противном случае перебор может никогда не закончиться, при этом бесконтрольная загрузка всех подряд URL-ов (в основном ненадежных сайтов) отрицательно скажется на здоровье ослика IE.

alex888500

Цитата:

Написал скрипт, никак не могу сделать перебор пользователей »

слишком мало инфы - подробней объясните суть проблемы и предполагаемый алгоритм работы скрипта, желательно также "снять" характеристики обрабатываемых окон и контролов через "AutoIT Window Info"

Drsmog,

Цитата:

Как в Excele зделать, допустим в ячеке B1 находится цифра 3 тогда в ячеике B5 троику заменить на значек (+) »

для начала установите библиотеку работы с Excel и посмотрите примеры:
Yet Another -- ExcelCOM UDF, Proceeding by Community-Established UDF Standards

DENoszone · Отправлено: **08:36, 15-05-2008** | #**536**

Цитата:

1. Для чего нужен скрипт? (есть сомнения)
2. Как вы собираетесь ограничивать геометрический рост кол-ва обрабатываемых линков?.. К примеру, в телепорте есть два механизма: ограничение на глубину вложенных ссылок, либо только ссылками на исходный сайт... В противном случае перебор может никогда не закончиться, при этом бесконтрольная загрузка всех подряд URL-ов (в основном ненадежных сайтов) отрицательно скажется на здоровье ослика IE.

1. создания базы для отсылки с одного сайта приглашений.
2. ну первое огранчение это наверное домены сайтов. ua com ru ну наверное это хоть как то снизит вероятность попадание на злобный сайт

блин..даже не знаю =( надо подумать...как вы считаете нужным?

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

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

PHP код:


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

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

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

  AutoItSetOption ( "MouseCoordMode", 2 )   ;Кнопка Start
  MouseClick ( 'left', 265, 160, 1, 2)
  Sleep(10000)   ;Ожидание 6 минут
  AutoItSetOption ( "MouseCoordMode", 2 )   ;Кнопка Stop
  MouseClick ( 'left', 358, 160, 1 , 2)
WEnd

Func Terminate()
Exit 0
EndFunc

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

PHP код:


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

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', 265, 160, 1, 2)
     
     Sleep(360000)   ;Ожидание 6 минут
       
     AutoItSetOption ( "MouseCoordMode", 2)   ;Кнопка Stop
     MouseClick ( 'left', 358, 160, 1, 2)
     Sleep(1500)
     AutoItSetOption ( "MouseCoordMode", 2)  ;Клик на поле ввода Логина 
     MouseClick ( 'left', 93, 30, 2, 2)
     
     $1 = $1 + 1  
     Return $1

  EndFunc

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

Maza Faka · Отправлено: **10:43, 15-05-2008** | #**538**

alex888500
Можно создать массив с логинами пользователей и передавать их в функцию, что -то вроде этого:

Код:

Run("*********")

Sleep(3000)

WinWaitActive("**********")   ;Активное окно программы

AutoItSetOption ( "MouseCoordMode", 2 )  ;Клик на поле ввода Логина

MouseClick ( 'left', 93, 30, 2, 2)

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

Global $aUser[4] = [3, "lexx127", "den", "vovan"]

While True  ;Бесконечная обработка скрипта
    For $i = 1 To $aUser[0]
        Mouse($aUser[$i])
    Next
    Sleep(50)
WEnd

Func Terminate()
    Exit 0
EndFunc

; <<<----------функция Смены пользователя--------->>>
Func Mouse($sUser)
    MouseClick ( 'left', 265, 160, 1, 2)
    Sleep(360000)   ;Ожидание 6 минут
    MouseClick ( 'left', 358, 160, 1, 2)
    Sleep(1500)
    MouseClick ( 'left', 93, 30, 2, 2)
EndFunc

TERMINAL · Отправлено: **10:54, 15-05-2008** | #**539**

Цитата Котяра:

Правда, есть еще проблема - финишное окно... »

ну и что там за проблема?

amel27 · Отправлено: **11:29, 15-05-2008** | #**540**

Цитата Maza Faka:

Можно создать массив с логинами пользователей и передавать их в функцию »

я так понял alex888500 еще не освоился с функциями и массивами, поэтому мой вариант проще будет:

Код:

_Login("lexx127")
_Login("den")
_Login("vovan")

Func _Login($sUser)
    Local $bak = AutoItSetOption ( "MouseCoordMode", 2)

    WinWaitActive("**********")          ; Активное окно программы
    MouseClick ('left', 93, 30, 2, 2)    ; Клик на поле ввода Логина
    Send ($sUser)                        ; Пользователь
    MouseClick ('left', 265, 160, 1, 2)  ; Кнопка Start
    Sleep(10000)                         ; Ожидание 10 сек
    MouseClick ('left', 358, 160, 1 , 2) ; Кнопка Stop

    AutoItSetOption ("MouseCoordMode", $bak)
EndFunc

alex888500
Все-таки попробуте запустить "AutoIt Window Info" и выяснить ID элементов окна - кнопок и Edit-боксов (типа "Edit1", "Button1"), тогда можно будет пробовать работать с элементами напрямую по ID и не зависеть от координат окна.