14-09-19, 05:46 PM
ما هو الخطأ بهذا الكود وكيف اصلاحه ؟؟
كود :
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Private Property logincookie As CookieContainer
Private cCookc As New CookieContainer()
Private postData As String
Private encoding As New UTF8Encoding
Private byteData As Byte()
Private postReq As HttpWebRequest
Private postreqstream As Stream
Private postresponse As HttpWebResponse
Dim CI As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For ss = 0 To ListBox1.Items.Count
ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
CheckForIllegalCrossThreadCalls = False
Dim user1 As String = ListBox1.SelectedItem
Dim d() As String = user1.ToString.Split(":")
CI = d(1)
Dim tempCookies As New CookieContainer
postReq = DirectCast(WebRequest.Create("https://www.website.com"), HttpWebRequest)
postReq.Method = "GET"
postReq.KeepAlive = True
postReq.CookieContainer = logincookie
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.Referer = "https://www.website.com"
postReq.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:52.0) Gecko/2010010 Firefox/52.0"
postReq.Proxy = New WebProxy(d(0), CI)
postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
logincookie.Add(postresponse.Cookies)
logincookie = logincookie
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
ListBox1.SelectedIndex += 1
Next
End Sub
End Class