Коннект такой..
postReq.Method = "GET" postReq.Timeout = 5000 Sw.Start() postReq.Proxy = New WebProxy(Proxy) ' MsgBox(Proxy)
Dim Sw As New Stopwatch Sw.Stop() If Sw.Elapsed.Seconds = "0" Then ListBox5.Items.Add(Proxy) Label3.Text = ListBox5.Items.Count ElseIf Sw.Elapsed.Seconds = "1" Then ListBox5.Items.Add(Proxy) Label3.Text = ListBox5.Items.Count ElseIf Sw.Elapsed.Seconds = "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Then ListBox2.Items.Add(ListBox5.Text) ListBox2.Items.Remove(ListBox2.Text) ListBox5.Items.Add(Proxy) ListBox2.Items.Remove(ListBox2.SelectedItem) Label2.Text = ListBox2.Items.Count End If If Label2.Text = 0 Then MsgBox("Прокси кончились") End If MsgBox(Proxy)