منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 (/showthread.php?tid=47640)

السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 - Coder_iraqii - 18-12-23

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

RE: السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 - Kamil - 18-12-23

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

RE: السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 - Coder_iraqii - 18-12-23

(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


RE: السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 - Coder_iraqii - 18-12-23

(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


RE: السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 - Kamil - 18-12-23

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

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

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

و استخدم Net Fram Wor 4.7.2

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

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

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

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

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

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