Нужен: Скрипт, эмулирующий нажатие мыши.

[Strateg]

Передо мной стоит задача: В появляющемся окошке MessageBox-а нажать кнопку OK. Около 1000 раз. Нужно, чтобы эта кнопка нажималась только в этом окошке, а не в каком-то другом. Нужно, чтобы нажималась именно кнопка ОК.
Просьба к знатокам PP: подкиньте скриптик?, оч нужно!

PS сейчас сижу, как дурак нажимаю на ОК.

[Crow]

А энтером слабо ? <!--emo&:)--><!--endemo-->))))
Шучу. Вот скрипт, который поднимает трубку Венты Факс

Код: выделить все

local w,local h,local mw,local mh
; получаем handle окна VentaFax
   VFhandle=win.handle("Venta Fax & Voice")
; делаем активным
   win.show(VFhandle)
; ищем центр окна
   w=win.width(VFhandle)
   h=win.height(VFhandle)
   mw=float.divide(w,2)
   mh=float.divide(h,2)
   mw=float.truncate(mw)
   mh=float.truncate(mh)
; подбираем место для клика на трубку :)
   mw=mw-260
;MessageBox ("ok", mw++"  "++mh)
; кликаем
   *Mouse save
   *Mouse &("re "++mw++" "++mh++" lc")
   *Mouse restore
   quit

Меняешь Venta Fax & Voice на заголовок нужного окна и подбираешь координаты. Заголовок смотришь при перетаскивании окна <!--emo&:)--><!--endemo--> Зацикли через for и всё.

[Strateg]

Я давно не касался темы скриптов в PP
Какие свойства нужно выставить на кнопке бара, чтобы запустить выполнение скрипта?
*Script
Script action ?
далее?

[Crow]

*Script RunFile и путь к файлу
Вот посвежее скрипт

Код: выделить все

local MB
;MB - handle окна Mesage BOX

local w,local h,local mw,local mh

for(i=0;i<1000;i=i+1)
; ждём появления окна с заголовком *Mesage BOX* в природе 6 секунд
   *wait window 6 "*Mesage BOX*"
; получаем handle окна Mesage BOX
   MB=win.handle("*Mesage BOX*")
; делаем активным если нужно
   win.show(MB)
; ищем центр окна
   w=win.width(MB)
   h=win.height(MB)
   mw=float.divide(w,2)
   mh=float.divide(h,2)
   mw=float.truncate(mw)
   mh=float.truncate(mh)
; подбираем место для клика :)
   mw=mw-260
; отладочный вывод на экран подбраных относительных координат  
;MessageBox ("ok", mw++"  "++mh)
; кликаем
   *Mouse save
   *Mouse &("re "++mw++" "++mh++" lc")
   *Mouse restore
endfor
   quit
;второй вариант клика мыши - был нужен ДО использования  "&(" в *Mouse
   x=au.MouseGetPosX
   y=au.MouseGetPosY
   au.LeftClick(mw,mh)
   au.MouseMove(x,y)

quit

[Strateg]

Спасибо.