link1 := "http://forum.script-coding.com/viewforum.php?id=13&p=1"
link2 := "http://220454.lv"
loop 2
{
   req%A_Index% := ComObjCreate("Msxml2.XMLHTTP")
   req%A_Index%.Open("GET",link%A_Index%,true)
   req%A_Index%.onreadystatechange := Func("Ready").Bind(A_Index)
   req%A_Index%.send()
}
return
#Persistent

Ready(n) {
    if (req%n%.readyState != 4)  ; Not done yet.
       return
    MsgBox % req%n%.responseText
    return
}

link1 := "http://forum.script-coding.com/viewforum.php?id=13&p=1"
link2 := "http://220454.lv"
ComObjError(false)
#persistent
HttpObj1 := ComObjCreate("WinHttp.WinHttpRequest.5.1")
HttpObj2 := ComObjCreate("WinHttp.WinHttpRequest.5.1")

HttpObj1.Open("GET",link1,true) ;the third parameter means, that it will be working asynchronously
HttpObj1.Send()
SetTimer, HttpObj1AsynchHandler, -1
HttpObj2.Open("GET",link2,true)
HttpObj2.Send()
SetTimer, HttpObj2AsynchHandler, -1
Return

OnHttpResponse(HttpObj) {
    MsgBox % HttpObj.ResponseText
}

HttpObj1AsynchHandler:
    HttpObj1.WaitForResponse()
    OnHttpResponse(HttpObj1)
Return
HttpObj2AsynchHandler:
    HttpObj2.WaitForResponse()
    OnHttpResponse(HttpObj2)
Return

Loop
{
    SoundBeep, 500, 300
    SoundBeep, 800, 500
    SoundBeep, 2000, 100
}

F12:: ExitApp
F11:: MsgBox, Перерыв

loop 5
{
   HttpObj%A_Index% := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   HttpObj%A_Index%.Open("GET","http://forum.script-coding.com/viewforum.php?id=13&p=" A_Index,true)
   HttpObj%A_Index%.Send()
   SetTimerF("func",-1,Object(1, A_Index))
}
loop 5
{
   n := A_Index
   loop
   {
      if (text%n% != "")
         break 
   }
}
msgbox, done
Return

func(p){
global
HttpObj%p%.WaitForResponse()
text%p% := HttpObj%p%.ResponseText
}


SetTimerF( Function, Period=0, ParmObject=0, Priority=0 ) { 
 Static current,tmrs:=[] ;current will hold timer that is currently running
 If IsFunc( Function ) {
    if IsObject(tmr:=tmrs[Function]) ;destroy timer before creating a new one
       ret := DllCall( "KillTimer", UInt,0, PTR, tmr.tmr)
       , DllCall("GlobalFree", PTR, tmr.CBA)
       , tmrs.Remove(Function) 
    if (Period = 0 || Period = "off")
       return ret ;Return as we want to turn off timer
	 ; create object that will hold information for timer, it will be passed trough A_EventInfo when Timer is launched
    tmr:=tmrs[Function]:={func:Function,Period:Period="on" ? 250 : Period,Priority:Priority
								,OneTime:Period<0,params:IsObject(ParmObject)?ParmObject:Object()
								,Tick:A_TickCount}
    tmr.CBA := RegisterCallback(A_ThisFunc,"F",4,&tmr)
    return !!(tmr.tmr  := DllCall("SetTimer", PTR,0, PTR,0, UInt
								, (Period && Period!="On") ? Abs(Period) : (Period := 250)
								, PTR,tmr.CBA,"PTR")) ;Create Timer and return true if a timer was created
				, tmr.Tick:=A_TickCount
 }
 tmr := Object(A_EventInfo) ;A_Event holds object which contains timer information
 if IsObject(tmr) {
	 DllCall("KillTimer", PTR,0, PTR,tmr.tmr) ;deactivate timer so it does not run again while we are processing the function
	 If (current && tmr.Priority<current.priority) ;Timer with higher priority is already current so return
		 Return (tmr.tmr:=DllCall("SetTimer", PTR,0, PTR,0, UInt, 100, PTR,tmr.CBA,"PTR")) ;call timer again asap
	 current:=tmr
	 ,tmr.tick:=ErrorLevel :=Priority ;update tick to launch function on time
	 ,tmr.func(tmr.params*) ;call function
    if (tmr.OneTime) ;One time timer, deactivate and delete it
       return DllCall("GlobalFree", PTR,tmr.CBA)
				 ,tmrs.Remove(tmr.func)
	 tmr.tmr:= DllCall("SetTimer", PTR,0, PTR,0, UInt ;reset timer
				,((A_TickCount-tmr.Tick) > tmr.Period) ? 0 : (tmr.Period-(A_TickCount-tmr.Tick)), PTR,tmr.CBA,"PTR")
	 current= ;reset timer
 }
}

httpObj.Open("POST", url) ; открываем форму для запроса
httpObj.Send(request%k%) ; отправка данных (каждый раз разные) из перебираемого объекта.
clipboard := clipboard . httpObj.ResponseText ; собираем в переменную ответ сервера