Вот мой код:
Code: Select all
[#MaxThreadsPerHotkey 2
SetTitleMatchMode, 2
F3::
Toggle := !Toggle
If not Toggle
WinGetActiveTitle, Title
WinActivate, Журнал - Талоны - Iron ; (Активирует окно "ОМС")
MouseClick, left, 866, 174 ; (Нажали только свои)
Sleep, 200
MouseClick, left, 1130, 185 ; (Нажали поиск)
Sleep, 5000
MouseClickDrag, left, 30, 1020, 440, 1020, speed = 30 ; (Прокрутка вправо)
Sleep, 200
MouseClick, left, 1600, 440, ; (Нажали поиск подразделения)
Sleep, 200
SendInput, Поликлиника, Невского 25 ; (Вели поликлиника Невского, 25)
Sleep, 200
MouseClickDrag, left, 440, 1020, 290, 1020, speed = 30 ; (Прокрутка влево)
Sleep, 200
MouseClick, left, 190, 440, ; (Нажали цель талона)
Sleep, 200
SendInput, ДВ4 ; (Вели Диспансеризация I этап)
Sleep, 200
MouseClick, left, 1500, 440 ; (Нажали ФИО Врача)
Sleep, 200
SendInput, Чернышева Виктория Владимировна ; (Вели Чернышева Виктория Владимировна)
Sleep, 200
MouseClickDrag, left, 15, 1035, 630, 1035, speed = 30 ; (Выделение результатов)
Sleep, 200
Send, ^{vk43} ; (Скопировали текст)
WinActivate, Отчет по талонам.xlsx - Excel ; Активирует окно "Ексель"