EPS & Home visits - loops until search target found

Quicksearch - HRT and HTN guidelines
Textexpansions - Gabapentin dosing
Referral letter - first draft, not working
This commit is contained in:
2022-08-11 17:45:53 +01:00
parent e62940c2af
commit f9c02613b8
5 changed files with 127 additions and 33 deletions

View File

@@ -0,0 +1,55 @@
; This script was created using Pulover's Macro Creator
; www.macrocreator.com
#NoEnv
SetWorkingDir %A_ScriptDir%
CoordMode, Mouse, Screen
SendMode Input
#SingleInstance Force
SetTitleMatchMode 2
#WinActivateForce
SetControlDelay 1
SetWinDelay 0
SetKeyDelay -1
SetMouseDelay -1
SetBatchLines -1
^F3::
Macro1:
WinActivate, SystmOne
Sleep, 333
Send, ^6
Sleep, 100
CoordMode, Pixel, Screen
ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, C:\Sean\AHK\PuloversMacroCreator-Portable (1)\MacroCreatorPortable\x64\MacroCreator\Screenshots\Screen_20220531094245.png
CenterImgSrchCoords("C:\Sean\AHK\PuloversMacroCreator-Portable (1)\MacroCreatorPortable\x64\MacroCreator\Screenshots\Screen_20220531094245.png", FoundX, FoundY)
If ErrorLevel
{
MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue.
IfMsgBox, Cancel
Return
}
Click, %FoundX%, %FoundY% Left, 1
Sleep, 10
Send, !o
Sleep, 300
Loop, 14
{
Send, {Tab}
}
Return
CenterImgSrchCoords(File, ByRef CoordX, ByRef CoordY)
{
static LoadedPic
LastEL := ErrorLevel
Gui, Pict:Add, Pic, vLoadedPic, % RegExReplace(File, "^(\*\w+\s)+")
GuiControlGet, LoadedPic, Pict:Pos
Gui, Pict:Destroy
CoordX += LoadedPicW // 2
CoordY += LoadedPicH // 2
ErrorLevel := LastEL
}