[Автоматизация] Помогите автоматизировать закрытие окна 1с
- Автор темы lamakob
- Дата начала
Сделал вот так:
Реагирует и на заголовок окна 1С:Предприятие - МояФирма :(
как поправить?
Используйте для AutoIt кода тег [autoit]
madmasles.
Код:
WinWaitActive("1С:Предприятие")
Send("{LEFT}")
Sleep(2000)
Send("{ENTER}")
MsgBox(0, "1c", "Перезапустили!")Реагирует и на заголовок окна 1С:Предприятие - МояФирма :(
как поправить?
Используйте для AutoIt кода тег [autoit]
madmasles.
>>>> Window <<<<
Title: 1С:Предприятие
Class: V8NewLocalFrameBaseWnd
Position: 782, 528
Size: 293, 119
Style: 0x96C81000
ExStyle: 0x00000100
Handle: 0x00120956
>>>> Control <<<<
Class: V8FormElement
Instance: 2
ClassnameNN: V8FormElement2
Name:
Advanced (Class): [CLASS:V8FormElement; INSTANCE:2]
ID: 208447496
Text:
Position: 146, 58
Size: 101, 23
ControlClick Coords: 37, 5
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x001C0C82
>>>> Mouse <<<<
Position: 968, 613
Cursor ID: 0
Color: 0xEBE6D9
>>>> StatusBar <<<<
>>>> ToolsBar <<<<
>>>> Visible Text <<<<
>>>> Hidden Text <<<<
Title: 1С:Предприятие
Class: V8NewLocalFrameBaseWnd
Position: 782, 528
Size: 293, 119
Style: 0x96C81000
ExStyle: 0x00000100
Handle: 0x00120956
>>>> Control <<<<
Class: V8FormElement
Instance: 2
ClassnameNN: V8FormElement2
Name:
Advanced (Class): [CLASS:V8FormElement; INSTANCE:2]
ID: 208447496
Text:
Position: 146, 58
Size: 101, 23
ControlClick Coords: 37, 5
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x001C0C82
>>>> Mouse <<<<
Position: 968, 613
Cursor ID: 0
Color: 0xEBE6D9
>>>> StatusBar <<<<
>>>> ToolsBar <<<<
>>>> Visible Text <<<<
>>>> Hidden Text <<<<
смотрите в параметрахlamakob сказал(а):
Код:
WinWaitActive
Код:
AutoItSetOption ( "WinTitleMatchMode", 3)
WinWaitActive("1С:Предприятие")
ControlClick ( "1С:Предприятие", "",'[CLASS:V8FormElement; INSTANCE:2]')
Sleep(2000)
Send("{ENTER}")
MsgBox(0, "1c", "Перезапустили!")
- Сообщения
- 7,790
- Репутация
- 2,322
lamakob,
Попробуйте сделать примерно так.
Попробуйте сделать примерно так.
Код:
#NoTrayIcon
Opt('WinTitleMatchMode', 3)
Global $iPID = ProcessExists('1С.exe');поменяйте на имя процесса 1С:Предприятие
HotKeySet('{Esc}', '_Exit')
AdlibRegister('_ReStart_1C', 1000)
While ProcessExists($iPID)
Sleep(1000)
WEnd
Func _ReStart_1C()
Local $h_Wnd = WinGetHandle('[Title:1С:Предприятие; Class:V8NewLocalFrameBaseWnd]')
If (Not $h_Wnd) Or (Not BitAND(WinGetState($h_Wnd), 2)) Then Return
ControlClick($h_Wnd, '', '[CLASS:V8FormElement; INSTANCE:2]')
EndFunc ;==>_ReStart_1C
Func _Exit()
Exit
EndFunc ;==>_ExitВсем спасибо за подсказки.
В итоге взял от всех по чуть чуть. Вот мой рабочий скрипт.
В итоге взял от всех по чуть чуть. Вот мой рабочий скрипт.
While 1
AutoItSetOption ( "WinTitleMatchMode", 3)
WinWait("1С:Предприятие")
WinActivate("1С:Предприятие")
ControlClick ( "1С:Предприятие", "",'[CLASS:V8FormElement; INSTANCE:2]')
Sleep(2000)
Send("{ENTER}")
wend
AutoItSetOption ( "WinTitleMatchMode", 3)
WinWait("1С:Предприятие")
WinActivate("1С:Предприятие")
ControlClick ( "1С:Предприятие", "",'[CLASS:V8FormElement; INSTANCE:2]')
Sleep(2000)
Send("{ENTER}")
wend
