Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
если в основе поставить #include , а в нем еще #include
Напишите скрипт, который будет нажимать на картинку, а потом на другую картинку.На
$var = 1
while($var < 5)
getscreen
IF_PICTURE_IN (0,0, $_xmax, $_ymax, "Атаковать.PNG")
LCLICK($_return1+50, $_return2+13)
ELSE
HINTPOPUP ("картинка Атаковать не найдена", "Ошибка")
END_IF
getscreen
IF_PICTURE_IN (0,0, $_xmax, $_ymax, "Боевые искусства.PNG")
LCLICK($_return1+50, $_return2+13)
ELSE
HINTPOPUP ("картинка Боевые искусства не найдена", "Ошибка")
END_IF
WAITMS(500)
end_cyc
а вот вариант вполне работаетCode: (clickermann) [Select]$inclx = RND(1,3)только длинный получается в условии
SWITCH($inclx)
CASE(1)
#include "/projects/1.cms"
CASE(2)
#include "/projects/2.cms"
CASE(3)
#include "/projects/3.cms"
END_SWITCH
#name "COPYPASTER"
//======= Переменные
$HWnd = 0
$URL = 0
$COUNT1 = 0
$COUNT2 = 0
$PAGE_PREFIX = "XXXXXX"
$PAGE_REGION = "XXXXXXX"
$PAGE_MIDFIX = "XXXXXXXX"
$PAGE_SECTION = "XXXXXXX"
$PAGE_ENDFIX = "&page="
$PAGE_NUM = 0
$i = 0
$k = 0
$x1 = 0
$y1 = 0
// подпрограмма CTRL+L
SUB(CTRL_L)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#L)
WAITMS (50)
KEYUP (#L)
KEYUP (#CTRL)
END_SUB
// подпрограмма CTRL+C
SUB(CTRL_C)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
END_SUB
// подпрограмма CTRL+V
SUB(CTRL_V)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
END_SUB
// подпрограмма тройного клика
SUB(CLICK_3)
LCLICK($x1,$y1)
WaitMs(100)
LCLICK($x1,$y1)
WaitMs(100)
LCLICK($x1,$y1)
WaitMs(100)
END_SUB
// подпрограмма открытия браузера
SUB(OPEN_BROWSER)
$HWnd = WNDFIND ("Федеральная")
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(500)
LCLICK(20,ROUND($_ymax/2,0))
WaitMS(500)
END_SUB
// подпрограмма открытия экселя
SUB(OPEN_EXCEL)
$HWnd = WNDFIND ("Microsoft Excel")
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(500)
END_SUB
// подпрограмма активизаации экселя
SUB(ACTIVATE_CELL)
LCLICK(200,200)
WaitMS(500)
END_SUB
// подпрограмма вставки буфера в эксель
SUB(PASTE_TABLE_EXCEL)
CTRL_V()
END_SUB
// подпрограмма изменения URL браузера
SUB(CHANGE_URL_BROWSER)
$PAGE_NUM = $i+1
$URL = StrConcat($PAGE_PREFIX,$PAGE_REGION,$PAGE_MIDFIX,$PAGE_SECTION,$PAGE_ENDFIX,$PAGE_NUM)
TOCLIP($URL)
WAITMS(100)
INC($i)
END_SUB
// подпрограмма вставки URL браузера
SUB(SET_URL_BROWSER)
CTRL_L()
WAITMS (100)
CTRL_V()
WAITMS (100)
KEYPRESS(#ENTER)
END_SUB
// подпрограмма проверки последней страницы
SUB(CHECK_LAST_PAGE)
GETSCREEN
$COUNT2 = PXLCOUNT ($_return1,$_return2, $_return1+300, $_return2+300, 0)
IF($COUNT2 > 300)
LOGWRITE("pixels: ", $COUNT2)
ELSE
HINTPOPUP("Это была последняя страница", "Ошибка")
LOGWRITE("Это была последняя страница")
halt
END_IF
END_SUB
// подпрограмма проверки открытия страницы браузера и копирования таблицы
SUB(CHECK_BROWSER_PAGE)
KEYPRESS(#PAGEDOWN)
WAITMS (100)
GETSCREEN
IF_PICTURE_IN (50,50, 300, $_ymax, "textures\request_button.bmp")
$x1 = $_return1-50
$y1 = $_return2+100
LOGWRITE ($_return1)
LOGWRITE ($_return2)
ELSE
HINTPOPUP("Не найдена кнопка ЗАПРОС", "Ошибка")
LOGWRITE("Не найдена кнопка ЗАПРОС")
$COUNT1 = PXLCOUNT (0,0, $_xmax,$_ymax, 13274746)
IF($COUNT1 > 10)
LOGWRITE("pixels: ", $COUNT1)
CHECK_LAST_PAGE()
END_IF
END_IF
WAITMS(100)
END_SUB
// подпрограмма удаления заголовка таблицы
SUB(DELETE_HEADLINE)
KEYPRESS(#DOWN)
WAITMS (50)
KEYPRESS(#UP)
WAITMS (50)
KEYDOWN (#SHIFT)
WAITMS (50)
KEYPRESS(#RIGHT)
WAITMS (50)
KEYPRESS(#RIGHT)
WAITMS (50)
KEYUP (#SHIFT)
WAITMS (100)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (189)
WAITMS (50)
KEYUP (189)
KEYUP (#CTRL)
WAITMS (50)
KEYPRESS(#ENTER)
WAITMS (50)
KEYPRESS(#DOWN)
WAITMS (50)
END_SUB
// подпрограмма перехода к последней вставленной строке таблицы
SUB(LAST_ROW)
KEYPRESS(#DOWN)
WAITMS (50)
KEYPRESS(#DOWN)
WAITMS (50)
KEYPRESS(#DOWN)
WAITMS (50)
KEYPRESS(#DOWN)
WAITMS (50)
KEYPRESS(#DOWN)
WAITMS (50)
END_SUB
// подпрограмма открытия браузера и перехода на следующую страницу
SUB(START_BROWSER)
OPEN_BROWSER()
CHANGE_URL_BROWSER()
SET_URL_BROWSER()
END_SUB
// подпрограмма копирования таблицы
SUB(COPY_TABLE)
CHECK_BROWSER_PAGE()
CHECK_LAST_PAGE()
CLICK_3()
CTRL_C()
WaitMS(500)
END_SUB
// Диалоговое окно задания кода XXXXX и XXXX
SUB(DIALOG_SECTION)
$DIALOG_ANSWER = (DIALOGBOX("Ввести коды XXXXX и XXXXX", 3, 2))
SWITCH($DIALOG_ANSWER)
CASE(6)
$PAGE_SECTION = INT(INPUTBOX("Введите код XXXXXXX", $PAGE_SECTION, 20))
$PAGE_REGION = INT(INPUTBOX("Введите код XXXXXX", $PAGE_REGION, 20))
CASE(7)
HINTPOPUP ("Приняты значения по умолчанию" , "ВНИМАНИЕ")
DEFAULT
HINTPOPUP ("Не определен режим работы" , "ОШИБКА")
HALT
END_SWITCH
END_SUB
//======= НАЧАЛО ПРОГРАММЫ ====================================
LOGCLEAR
LOGSHOW (1, 1500,900)
DIALOG_SECTION()
execute("excel")
wait(2)
$HWnd = WNDFIND ("Microsoft Excel")
WndPos ($HWnd, 200, 200)
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(500)
$HWnd = WNDFIND ("Федеральная")
WndPos ($HWnd, 0, 0)
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(500)
WHILE($k<1)
START_BROWSER()
WAIT(8)
COPY_TABLE()
OPEN_EXCEL()
WAIT(1)
ACTIVATE_CELL()
PASTE_TABLE_EXCEL()
WAITMS(500)
DELETE_HEADLINE()
LAST_ROW()
WAITMS(500)
END_CYC
halt
[/spoiler]
Спасибо!)если нужно поверх всех окон то я пользуюсь сторонним софтомКаким например?
забыл название щас посмотрел как называется прога
deskpins закрепляет любое окно
execute("excel")
wait(2)
$HWnd = WNDFIND ("Microsoft Excel")
WndPos ($HWnd, 200, 200)
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(1500)
$HWnd = WNDFIND ("Федеральная")
WndPos ($HWnd, 0, 0)
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(1500)
$HWnd = WNDFIND ("Microsoft Excel")
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(1500)
$HWnd = WNDFIND ("Федеральная")
wndstate($HWnd, 0)
wndstate($HWnd, 1)
WaitMS(1500)
halt[/spoiler]
Т.е. после HGET как это окно поместить на передний план?Правда насколько я понимаю чтобы повторно сделать окно активным его надо сначала свернуть, потом развернуть))
если нужно поверх всех окон то я пользуюсь сторонним софтомКаким например?
если просто развернутьда, кажется помогает. Спс
внимательно читаем хелп
WNDSTATE (hwnd, state) - сворачивает (разворачивает) окно
Параметры
hwnd - HWND окна
state - состояние {0 - свернуто, 1 - развернуто}
по идееCode: (clickermann) [Select]wndstate(hwnd ,0)должно поместить окно на передний план
wndstate(hwnd ,1)