Files
GP-Tools-AHK/includes/referral_letter.ahk
Sean Cusack f9c02613b8 EPS & Home visits - loops until search target found
Quicksearch - HRT and HTN guidelines
Textexpansions - Gabapentin dosing
Referral letter - first draft, not working
2022-08-11 17:45:53 +01:00

56 lines
1.2 KiB
AutoHotkey

; 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
}