Set http = New WinHttpRequest
http.SetProxy 2, proxy_adr
http.Open "POST", url, False
http.SetTimeouts 15000, 15000, 15000, 15000
http.Send my_data
http.WaitForResponse

for i=1 to 10
  http.SetProxy 2, proxy_adr
  http.Open "POST", url, Trut
...
   proxy=следущий_новый_адрес
next

sub http_OnResponseFinished()
end sub

http1_OnResponseFinished()
http2_OnResponseFinished()
http3_OnResponseFinished()

Dim WithEvents http As WinHttpRequest