02-12-18, 08:57 PM
السلام عليكم احبابي في الله
واجهتني مشكلة في استعمال هذا الموقع
للعلم نفس الكود شغال مع مواقع اخرى
هذا هو الكود
واجهتني مشكلة في استعمال هذا الموقع
للعلم نفس الكود شغال مع مواقع اخرى
هذا هو الكود
كود :
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