تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكل دخول موقع
#1
السلام عليكم احبابي في الله
واجهتني مشكلة في استعمال هذا الموقع



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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم