acid/GP-Tools-AHK
1
0
Fork 0
Code Issues Pull Requests Releases Activity

EPS & Home visits - loops until search target found

Browse Source 
Quicksearch - HRT and HTN guidelines
Textexpansions - Gabapentin dosing
Referral letter - first draft, not working
This commit is contained in:
Sean Cusack
2022-08-11 17:45:53 +01:00
parent e62940c2af
commit f9c02613b8
5 changed files with 127 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
includes/EPS.ahk
View File

@@ -16,38 +16,54 @@ SetBatchLines -1
LoadEPS:
CoordMode, Pixel, Screen
ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_icon.png
CenterImgSrchCoords("assets\eps\prescription_icon.png", FoundX, FoundY)
If ErrorLevel
Return
Loop, 20
{
CoordMode, Pixel, Screen
ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_icon.png
CenterImgSrchCoords("assets\eps\prescription_icon.png", FoundX, FoundY)
Sleep, 100
}
Until ErrorLevel = 0
FoundX := FoundX+45
CoordMode, Mouse, Screen
Click, %FoundX%, %FoundY% Left, 2
Sleep, 10
Sleep, 200
CoordMode, Pixel, Screen
ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_select_all.png
CenterImgSrchCoords("assets\eps\prescription_select_all.png", FoundX, FoundY)
;Sleep, 1500
Loop, 20
{
CoordMode, Pixel, Screen
ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_select_all.png
CenterImgSrchCoords("assets\eps\prescription_select_all.png", FoundX, FoundY)
Sleep, 100
}
Until ErrorLevel = 0
If ErrorLevel
{
MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue.
IfMsgBox, Cancel
Return
MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue.
IfMsgBox, Cancel
Return
}
CoordMode, Mouse, Screen
Click, %FoundX%, %FoundY% Left, 1
Sleep, 10
Sleep, 200
CoordMode, Pixel, Screen
ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_selected.png
CenterImgSrchCoords("assets\eps\prescription_selected.png", FoundX, FoundY)
;Sleep, 200
Loop, 20
{
CoordMode, Pixel, Screen
ImageSearch, FoundX, FoundY, 0, 0, 2560, 1440, assets\eps\prescription_selected.png
CenterImgSrchCoords("assets\eps\prescription_selected.png", FoundX, FoundY)
Sleep, 100
}
Until ErrorLevel = 0
If ErrorLevel
{
MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue.
IfMsgBox, Cancel
Return
MsgBox, 49, Continue?, Image / Pixel Not Found.`nPress OK to continue.
IfMsgBox, Cancel
Return
}
CoordMode, Mouse, Screen
Click, %FoundX%, %FoundY% Right, 1
Sleep, 10