[Coder_iraqii]

(18-12-23, 03:54 PM)Kamil كتب :

(18-12-23, 01:22 PM)Coder_iraqii كتب : ListBox1.SelectedIndex = 0
    While ListBox1.SelectedIndex < ListBox1.Items.Count
        If ListBox1.Items.Count - 1 = ListBox1.SelectedIndex Then
            ListBox1.SelectedIndex = 0
        End If
        On Error Resume Next
        Dim str() As String = ListBox1.SelectedItem.Split(":")
        Using req As New HttpRequest
            FlatLabel16.Text = str(0)
            req.UserAgent = Http.ChromeUserAgent
            req.Cookies = New CookieDictionary(False)
            req.Proxy = Nothing
            req.IgnoreProtocolErrors = True
            req.AddParam("username", str(0))
            req.AddParam("password", str(1))
            Dim res As String = req.Post("https://domain.com?").ToString()
            If res.Contains("returnUrl") Then
                req.AddParam("adet", 100)
                req.AddParam("username", FlatTextBox1.Text)
                Dim RES1 As String = req.Post("https:/domain/.com").ToString()
                FlatLabel1.Text += 1
            End If
        End Using
        ListBox1.SelectedIndex += 1
    End While
End Sub

 وعليكم السلام 
هل تريده عبر منصة vb.net
ام c# 

vb.net