rubbersoul
Новичок
- Сообщения
- 2
- Репутация
- 0
Версия AutoIt: 3.3.6
Описание:
Привет всем!
Помогите пожалуйста, неделю мучаюсь, я сам тупой) не могу понять что ему еще от меня нужно.
Задача такая: скрипт запускает 2 Excel файла и выводит их на экран по таймеру.
Задача изменить скрипт чтобы активация Excel файлов происходила по клику мыши в любое место экрана.
Что имеем:
Вот как сделал:
Проблема в том что Workbooks.Activate не отрабатывает, а Tooltip работает!
Подскажите пожалуйста?
Описание:
Привет всем!
Помогите пожалуйста, неделю мучаюсь, я сам тупой) не могу понять что ему еще от меня нужно.
Задача такая: скрипт запускает 2 Excel файла и выводит их на экран по таймеру.
Задача изменить скрипт чтобы активация Excel файлов происходила по клику мыши в любое место экрана.
Что имеем:
Код:
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include "MouseOnEvent.au3"
HotKeySet("{ESC}", "_Quit")
$oExcel = ObjCreate("Excel.Application") ; Create an Excel Object
$oExcel.Visible = 1 ; Let Excel show itself
$oExcel.WorkBooks.open("C:\1.xls")
sleep(2000)
$oExcel.WorkBooks.open("C:\2.xls")
While True
$oExcel.WorkBooks("1.xls").activate
sleep(3000)
$oExcel.WorkBooks("2.xls").activate
sleep(3000)
WEnd
Func _Quit()
Exit
EndFuncВот как сделал:
Код:
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include "MouseOnEvent.au3"
HotKeySet("{ESC}", "_Quit")
$oExcel = ObjCreate("Excel.Application") ; Create an Excel Object
$oExcel.Visible = 1 ; Let Excel show itself
$oExcel.WorkBooks.open("C:\1.xls")
sleep(2000)
$oExcel.WorkBooks.open("C:\2.xls")
While True
Dim $i
For $i = 1 to 2
_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_MousePrimaryDown_Event")
Sleep(1000)
ToolTip("")
Next
WEnd
Func _MousePrimaryDown_Event()
if $i = 1 Then
ToolTip("Опля!))")
$oExcel.WorkBooks("1.xls").activate
EndIf
if $i = 2 Then
ToolTip("Чпок!))")
$oExcel.WorkBooks("2.xls").activate
EndIf
Return 1 ;Block
EndFunc
Func _Quit()
Exit
EndFuncПроблема в том что Workbooks.Activate не отрабатывает, а Tooltip работает!
Подскажите пожалуйста?
