منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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#

(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

(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

السلام عليكم و رحمة الله وبركاته

هذا المثال في المرفقات لتسجيل الدخول 

قمت بتصميمه في فيجويال بيسك 2019  

و استخدم Net Fram Wor 4.7.2

وقاعدة بيانات منشأة في sql Server 2014

ارجو ان تستفيد منه

واخيرا اطلب منك 

عند كتابة موضوع انت تضع في العنوان VB..Net

و تضيفه في قسم اسئلة #C

الافضل اضافته قي قسم اسئلة VB.Net