Author Topic: Работа с окном Excel  (Read 1454 times)

0 Members and 2 Guests are viewing this topic.

gsukhado

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Работа с окном Excel
« on: December 28, 2017, 12:04:07 AM »
День добрый.
Делаю вроде простой скрипт скопировать из Экселя - вставить в Браузерную почту.
Но почему-то с окном Экселя возник затык, работать в нем не хочет. Причем даже на первом шаге, когда я хочу пододвинуть найденное окно. Причем полностью идентичный код для Explorer - работает, а для Excel - окно находит, на передний план перемещает, но не двигает. Не подскажете, что тут может быть?

Code: (clickermann) [Select]
   $hwnd2=0
   $hwnd2 = wndfind("Excel") // получаем HWND окна
   if ($hwnd2 > 0)
      print("нашли окно Excel = ", $hwnd2)
   else
      print("почему-то найти не смогли")
   end_if
   waitms(3400+rnd(0,20))
   WNDBUMP($hwnd2)     // Окно на передний план - срабатывает
   waitms(3400+rnd(0,20))
   
   WNDPOS($hwnd2,0,0)  // подвинули окно влево - должно вроде, но к Excel никакой реакции
   waitms(300+rnd(0,200))
   WNDGETINFO ($hwnd2, $tmp_var21, $tmp_var22, $tmp_var23, $tmp_var24)
   print("Окно размером ", $tmp_var21, "  ", $tmp_var22, " на ", $tmp_var23, "  ", $tmp_var24)
   waitms(600+rnd(0,50))
   WNDSIZE($hwnd2,750,867)
   print("изменили размер окна")
   waitms(400+rnd(0,20))