SetKeyDelay, 10, 10
IF !FileExist("AutoHotkey.html")
    UrlDownloadToFile, http://www.script-coding.com/AutoHotkeyTranslation.html , AutoHotkey.html
    
FileRead text, AutoHotkey.html
    Run notepad.exe
    WinWait ahk_exe notepad.exe
    hwnd_notepad := WinActive("A")

for n, element in Search_Items(text,"<LI><a href="".+"">(.+)</a>")
    {
    Random,wait,1000,5000
    sleep %wait%
    if !WinExist("ahk_id " hwnd_notepad)
        ExitApp
    ControlSendRaw Edit1,%element%`n,ahk_id %hwnd_notepad%
    }
    
Search_Items(text,RegEx){
    finds:=[],pos:=1
    While pos:= RegExMatch(text,RegEx,m,StrLen(m)+pos)
        finds.Insert(m1)
    return finds
}

Esc::ExitApp

<LI><a href="".+"">(.+)</a>