Messages

1

Общие вопросы / Re: Окно на передний план.

« on: June 07, 2019, 12:48:34 AM »

Спасибо! У меня просто стояла 64х версия кликера, из-за чего dll не отрабатывал.

2

Общие вопросы / Re: Окно на передний план.

« on: June 06, 2019, 03:24:56 PM »

Вполне вероятно, что dll не работает из-за того, что у меня стоит 64х система ;(

3

Общие вопросы / Re: Окно на передний план.

« on: June 06, 2019, 12:03:57 PM »

После Вашего комментария задумался и попробовал на стационарном компе (мощнее конечно, чем ноут).
Да, действительно работаем ОЧЕНЬ быстро и напрямую зависит мощности компьютера.
Всё гениально и просто, спасибо!

Интересный костыль, а главное работает!
Единственный минус это задержка между переключениями двух окон (более одной секунды), хотелось бы чтоб побыстрее окна вылазилы на поверхность.

Странно, что такая большая задержка. Ради интереса попробовал на открытых у меня окнах - переключает очень быстро.

Code: (clickermann) [Select]

start:

$h = WNDFIND("Калькулятор")
$j = WNDFIND("Droid")
$k = WNDFIND("Adobe")
$l = WNDFIND("Проводник")

WNDBUMP($h)
MOVE($_xmouse,$_ymouse)
waitms(100)

WNDBUMP($j)
MOVE($_xmouse,$_ymouse)
waitms(100)

WNDBUMP($k)
MOVE($_xmouse,$_ymouse)
waitms(100)

WNDBUMP($l)
MOVE($_xmouse,$_ymouse)
waitms(100)

goto(start)

4

Общие вопросы / Re: Окно на передний план.

« on: June 06, 2019, 10:55:17 AM »

Спасибо за ответ. Но мне не совсем понятно несколько вещей:
1) Что за функция WNDFINDARR? Такой функции я не нашел в описании версии 4.13.014?
2) Если она работает по принципу arrpush тоже не понятно т.к. arrpush не переключается между множеством одинаковых окон с названием, а запихивает все тоже первое найденное окно в конец массива.
3) Если упростить для возможности проверки dll, к примеру:

$hwnd = (wndfind ("Калькулятор"))
FOR($a=0,$a < 15) 
   CALL("SetForegroundWindow.dll", $hwnd)
   waitms(500)
END_CYC
halt

то скрипт всё-рано не выводит окно ;(

Скорее всего, я упустил очевидные вещей, если можно то поправье где я ошибся.

Нет, мне не нужно чтоб окно были постоянно зафиксированы на одном месте. У меня несколько окон просто должны всплывать друг за другом, в одинаковых координатах.
Оконный режим пока только изучаю и пока не очень подходит.

Я сам припоминаю, что с WNDBUMP были какието косяки.

Гдето встречал в делфи нужную для этого функцию. SetForegroundWindow называется, просто делает окно активным, поверх всех других.

Написал ради интереса длл, ничего сложного. Проверил, вроде работает четко и без сбоев.

Код делфи длл:

Code: (clickermann) [Select]

library cmann_plugin;

uses Windows;
//------------------------------------------------------------------------------
// Основное тело функции, идет на экспорт, вызывается из кликера
function execute( _mas: pInteger; _size: Integer): Integer; export; stdcall;
type
  pIntArr = array[0..0] of Integer;
var
  hwnd : Integer;
begin
 hwnd := pIntArr(_mas^)[0];
 if SetForegroundWindow(hwnd) then result := 1 else result := 0;
end;
//------------------------------------------------------------------------------

// список экспорта
exports execute;

begin
  // тело пусто
end.
Чтобы сделать окно активным с помощью моей длл, пишем такой код для км ("SetForegroundWindow.dll" в одной папке со скриптом):

Code: (clickermann) [Select]

CALL("SetForegroundWindow.dll", $hwnd)  // hwnd естественно нужный пишем
halt
CALL в этом случае вернет в системную переменную $_return1 результат "1" если такое окно существует, если же такого hwnd нет, то результатом будет "0"


Для теста, запустил 5 калькуляторов, и решил делать их активными рандомно:

Code: (clickermann) [Select]

WNDFINDARR ($arr_hwnd, "Калькулятор")  //ищем хендлы всех калькуляторов

FOR($a=0,$a < 15)  //количество переключений между ними

//делаем рандомное окно калькулятора активным каждые 500мс
   CALL("SetForegroundWindow.dll", $arr_hwnd[rnd(0,arrsize($arr_hwnd)-1)])
   waitms(500)
END_CYC

halt
Тест прошел успешно.

"SetForegroundWindow.dll" для 32-битной версии кликерман во вложении.

5

Общие вопросы / Re: Окно на передний план.

« on: June 04, 2019, 10:33:36 AM »

Нет, мне не нужно чтоб окно были постоянно зафиксированы на одном месте. У меня несколько окон просто должны всплывать друг за другом, в одинаковых координатах.
Оконный режим пока только изучаю и пока не очень подходит.

6

Общие вопросы / Re: Скрипт перестает работать

« on: June 04, 2019, 09:51:17 AM »

Что пишет еррорлог?
У меня было, что переставала работать последняя версия и вообще иногда слеп кликер.
Попробуй удалить все клиенты и кинуть в корень диска (C:), где путь только английскими + запуск от админа конечно.
Мне помогло.

7

Общие вопросы / Re: Окно на передний план.

« on: June 04, 2019, 09:24:54 AM »

Интересный костыль, а главное работает!
Единственный минус это задержка между переключениями двух окон (более одной секунды), хотелось бы чтоб побыстрее окна вылазилы на поверхность.
В любом случае спасибо за ответ.

Опытным путем установлено, что если после использования wndbump совершить какое либо действие с мышью, например клик или перемещение, то последующее использование wndbump работает нормально. Попробуй так:

Code: (clickermann) [Select]

start:
MOVE($_xmouse,$_ymouse)
$h = WNDFIND("Калькулятор")
WNDBUMP($h)
WAIT(2)
GOTO (start)

8

Общие вопросы / Окно на передний план.

« on: June 04, 2019, 06:13:33 AM »

Доброго времени суток!

Помогите решить задачу:
Есть окно и его нужно периодически вызвать по вверх всех окон, к примеру:

start:
$h = wndfind ("калькулятор")
Wndbumb ($h)
Waitms (2000)
Goto (start)

Собственно wndbump не справляется, где-то на 2-3 раз калькулятор просто висит в нижней панели, мигает, но не вызывается на передний план.
Хотел попробовать заменить wndbump на sendmessage/postmessage, к примеру:

SENDMESSAGE ($h, 0x0018, 0, 0)

Но как я только не изголялся, что только не читал, а понять какие доп параметры нужно вписывать не понял.

Поделитесь опытом/советом кто как реализовывает вызов нужного окна по вверх всех.

Заранее огромное спасибо!