[trakktour]

السلام عليكم احبابي في الله
واجهتني مشكلة في استعمال هذا الموقع

للعلم نفس الكود شغال مع مواقع اخرى
هذا هو الكود

كود :

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