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

نسخة كاملة : مشكل دخول موقع
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم احبابي في الله
واجهتني مشكلة في استعمال هذا الموقع



للعلم نفس الكود شغال مع مواقع اخرى
هذا هو الكود
كود :
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