>>157
> コールバックの部分だけはマジで分からんかった
> どうやって書くんだ
コールバックなんていらんだろ
素直にreadyStateが4になったら処理すればいいだけ
スマホから打ってるからデバッグしてないけどこんな感じ
Type Request
　Session As Object
　Done As Boolean
End Type
url_arr = Array("https://www.yahoo.co.jp/";, "https://urasunday.com/";)
Dim Requests()
ReDim Requests(LBound(url_arr) To UBound(url_arr))
Dim Index As Integer
For Index = LBound(url_arr) To UBound(url_arr)
　With Requests(Index)
　　Set .Session = CreateObject("MSXML2.XMLHTTP")
　　.Session.Open "GET", url_arr(Index), False
　　.Session.Send
　　.Done = False
　End With
Next
' 続く…