[VB.NET] مشكل دخول موقع - نسخة قابلة للطباعة

كود :
Public Sub login1()

       While True

           Using request As New HttpRequest

               If ListBox1.SelectedIndex = ListBox1.Items.Count Then

                   MsgBox("شغال")

                   thread1.Abort()

               End If

               Dim str() As String = ListBox1.SelectedItem.split(":")

               request.UserAgent = Http.ChromeUserAgent

               request.Proxy = Nothing

               request.IgnoreProtocolErrors = True

               request.Cookies = New CookieDictionary(False)

               request.AddParam("username", str(0))

               request.AddParam("password", str(1))

               Dim res As String = request.Post("https://instabayi.com/loginolmak?").ToString

               If Not res.Contains("error") Then

                   request.AddParam("adet", 1000)

                   request.AddParam("userID", TextBox1.Text)

                   Dim res1 As String = request.Post("https://instabayi.com/tools/send-follower?formType=send").ToString

 

               End If

           End Using

 

       End While

   End Sub