url =
http://127.0.0.1:8088/API/?
XMLSource = % URLDownloadToVar(url)
FoundPos := InStr(XMLSource, "2902e77d-ba92-420a-b491-150d1b68491d")
StartChar := FoundPos + 80
StringMid, Minuto, XMLSource, StartChar, 5
StartChar := FoundPos + 126
StringMid, Tempo, XMLSource, StartChar, 2
FoundPos := InStr(XMLSource, "4637078f-764b-4004-aad7-b632638614c4")
StartChar := FoundPos + 299
StringMid, Teste, XMLSource, StartChar, 1
if (Teste = ">")
StartChar := StartChar + 1
EndChar := InStr(XMLSource, "</text>",, StartChar)
Leght := EndChar - StartChar
StringMid, Player, XMLSource, StartChar, Leght
Output := % Player " " Tempo " " Minuto "`n"
FileAppend, %Output%, Gols Casa.txt
return
URLDownloadToVar(url){
hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
hObject.Open("GET",url)
hObject.Send()
return hObject.ResponseText
}