Microsoft Ultimate Word Games crossword solver

 #NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

; INSPIRED BY THIS SOLUTION ON TRUEACHIEVEMENTS: https://www.trueachievements.com/viewcomment.aspx?commentid=1173427#sc1173427
; PRESS CTRL-J TO START THE SCRIPT
; ENTER THE TWO BUTTON COORDINATES INTO THE FUNCTION BELOW FIRST

; this will work on any crossword puzzle up to 15x15, excluding daily challenges

ClickSolve()
{
    Click, 650, 330 ; use window spy to find the correct position (mouse position > client) of the checkmark button
    Sleep, 1000
    Click, 930, 310 ; use window spy to find the correct position of the 'check puzzle' button
    Sleep, 1200
}

#IfWinExist, Microsoft Ultimate Word Games
^j::
WinActivate, Microsoft Ultimate Word Games
WinWaitActive, Microsoft Ultimate Word Games
SetKeyDelay, 50, 50

; vowels
Send {e 300} ; the first few letters always lag a bit because scrolling the clues is slower
Sleep, 500   ; so we're going to send them twice, and wait a bit between them
Send {e 300}
ClickSolve()
Send {a 300}
Sleep, 500
Send {a 300}
ClickSolve()

Send {o 350}
ClickSolve()
Send {i 350}
ClickSolve()
Send {u 350}
ClickSolve()
Send {y 350}
ClickSolve()

; consonants
Send {t 350}
ClickSolve()
Send {n 350}
ClickSolve()
Send {s 350}
ClickSolve()
Send {r 350}
ClickSolve()
Send {h 350}
ClickSolve()
Send {d 350}
ClickSolve()
Send {l 350}
ClickSolve()
Send {c 350}
ClickSolve()
Send {m 350}
ClickSolve()
Send {f 350}
ClickSolve()
Send {w 350}
ClickSolve()
Send {g 350}
ClickSolve()
Send {p 350}
ClickSolve()
Send {b 350}
ClickSolve()
Send {v 350}
ClickSolve()
Send {k 350}
ClickSolve()
Send {x 350}
ClickSolve()
Send {q 350}
ClickSolve()
Send {j 350}
ClickSolve()
Send {z 350}
ClickSolve()