msgbox % api_lst_index

msgbox %A_Index% ссылка которая отправляется в функцию`n "%api_lst_index%"

loop % 1 + 1 // 1 
      api_lst .= "https://vk.com/al_wall.php?act=get_replies&al=1&count=1&from=wkview&offset=" (A_index - 1) * 1 "&post=1_2285269&rev=0" "`n"

Loop, parse, api_lst, `n
{
api_lst_index := A_LoopField
msgbox % api_lst_index
api_lst_index := UrlDownloadToVar(api_lst_index)
All_api_lst_vars .= api_lst_index
}
MsgBox % All_api_lst_vars "`n`n`n"
return

UrlDownloadToVar(URL, UserAgent = "")
{
   WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   WebRequest.Open("GET", Url)
   UserAgent ? WebRequest.Option(WinHttpRequestOption_UserAgentString := 0) := UserAgent
   WebRequest.Send()
   Text := WebRequest.ResponseText
   WebRequest := ""
   return Text
}

api_lst=
(
https://vk.com/al_wall.php?act=get_replies&al=1&count=1&from=wkview&offset=0&post=1_2285269&rev=0
https://vk.com/al_wall.php?act=get_replies&al=1&count=1&from=wkview&offset=1&post=1_2285269&rev=0
)

#SingleInstance Force

   step := 1
   lnk_1 := "https://vk.com/al_wall.php?act=get_replies&al=1&count=1&from=wkview&offset="
   lnk_2 := "&post=1_2285269&rev=0"

   loop % 1 + 1 // step 
      api_lst .= lnk_1 (A_index - 1) * step lnk_2 "`n"

msgbox % api_lst

api_lst := RegExReplace(api_lst,"\R+","`n")

Loop, parse, api_lst, `n
{
api_lst_index := A_LoopField
api_lst_index := UrlDownloadToVar(api_lst_index)
All_api_lst_vars .= api_lst_index
}
MsgBox % All_api_lst_vars "`n`n`n"
return

UrlDownloadToVar(URL, UserAgent = "")
{
   WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   WebRequest.Open("GET", Url)
   UserAgent ? WebRequest.Option(WinHttpRequestOption_UserAgentString := 0) := UserAgent
   WebRequest.Send()
   Text := WebRequest.ResponseText
   WebRequest := ""
   return Text
}

#SingleInstance Force

api_lst=
(
https://vk.com/al_wall.php?act=get_replies&al=1&count=1&from=wkview&offset=0&post=1_2285269&rev=0
https://vk.com/al_wall.php?act=get_replies&al=1&count=1&from=wkview&offset=1&post=1_2285269&rev=0
)
api_lst := RegExReplace(api_lst,"\R+","`n")

Loop, parse, api_lst, `n
{
api_lst_index := A_LoopField
api_lst_index := UrlDownloadToVar(api_lst_index)
All_api_lst_vars .= api_lst_index
}
MsgBox % All_api_lst_vars "`n`n`n"
return

UrlDownloadToVar(URL, UserAgent = "")
{
   WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   WebRequest.Open("GET", Url)
   UserAgent ? WebRequest.Option(WinHttpRequestOption_UserAgentString := 0) := UserAgent
   WebRequest.Send()
   Text := WebRequest.ResponseText
   WebRequest := ""
   return Text
}

<td class="number sorting_1">0.02530089</td>

url := "https://autohotkey.com/download/1.1/version.txt"
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", url)
HTTP.Send()
date:= HTTP.getResponseHeader("Last-Modified")
msgbox % HTTP.Status
msgbox % HTTP.ResponseText
HTTP.Open("GET", url)
HTTP.SetRequestHeader("If-Modified-Since", date)
HTTP.Send()
msgbox % HTTP.Status
msgbox % HTTP.ResponseText

 Example: Make an asynchronous HTTP request.

req := ComObjCreate("Msxml2.XMLHTTP")
; Open a request with async enabled.
req.open("GET", "https://autohotkey.com/download/1.1/version.txt", true)
; Set our callback function (v1.1.17+).
req.onreadystatechange := Func("Ready")
; Send the request.  Ready() will be called when it's complete.
req.send()
/*
; If you're going to wait, there's no need for onreadystatechange.
; Setting async=true and waiting like this allows the script to remain
; responsive while the download is taking place, whereas async=false
; will make the script unresponsive.
while req.readyState != 4
    sleep 100
*/
#Persistent

Ready() {
    global req
    if (req.readyState != 4)  ; Not done yet.
        return
    if (req.status == 200 || req.status == 304) ; OK.
        MsgBox % "Latest AutoHotkey version: " req.responseText
    else
        MsgBox 16,, % "Status " req.status
    ExitApp
}