Работа с окном браузера

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Работа с окном браузера

cillme

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

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

Конфигурация

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

Собственно говоря идея состоит в автоматизации рутинной работы в онлайн игре. Программа пишется чисто ради любопытства и "жалких" попыток освоения программы AutoIt.
Итого у нас имеется:
4 кнопки передвижения, имеющих определенный цвет, который отслеживается программой и нажимается в рандомном порядке. - Назовем их кнопки B
1 кнопка того же цвета, имеющая более высокий приоритет , нежели предыдущие 4. (появляется рандомно) - назовем ее кнопка A

Пытался самостоятельно состряпать код, читая темки и вот, что вышло:

Код:

HotKeySet("{ESC}", "Terminate")

 ; Цвета, которые мы ищем 
Dim $aArray[4] 
$aArray[0]=0xFFF9CA

 While 1
 For $element In $aArray
 $coord = PixelSearch( 282, 411, 294, 424, $element ) ; Кнопка с наивысшим приоритетом
 If Not @error Then 
MouseClick("Left", $coord[0] , $coord[1])
 EndIf
 Next
 WEnd
 ;Следующие кнопки должны нажиматься рандомно.

 While 2
 For $element In $aArray
 $coord = PixelSearch( 513, 161, 526, 174, $element )
 If Not @error Then
 MouseClick("Left", $coord[0] , $coord[1])
 EndIf
 Next
 WEnd

 While 3
 For $element In $aArray
 $coord = PixelSearch( 488, 184, 502, 196, $element )
 If Not @error Then
 MouseClick("Left", $coord[0] , $coord[1])
 EndIf
 Next
 WEnd

 While 4
 For $element In $aArray
 $coord = PixelSearch( 535, 184, 550, 196, $element )
 If Not @error Then
 MouseClick("Left", $coord[0] , $coord[1])
 EndIf
 Next 
WEnd 

While 5
 For $element In $aArray
 $coord = PixelSearch( 513, 208, 525, 221, $element )
 If Not @error Then
 MouseClick("Left", $coord[0] , $coord[1])
 EndIf
 next 
WEnd

 Func Terminate()
 Exit 0
 EndFunc

В итоге:
Если кнопка A есть:
Программа нажимает на кнопку и цикл останавливается.
Если кнопки A нет:
Программа не нажимает на кнопки B

Отправлено: 20:10, 23-12-2012