17-04-21, 07:13 PM
سلام عليكم
رمضانكم مبارك
اتمنى ان تكونو بالف خير
-لقد وجهت مشكلة في ادخال data لان اول مرة اتعامل مع ركويست فيها boundary هاذي صورة توضح لكم الفكرة اكثر
وهذا كود
اتمنى انكم فهمتو طلبي وان شاءالله تجدون حل وشكرا لكم مسبقا
رمضانكم مبارك
اتمنى ان تكونو بالف خير
-لقد وجهت مشكلة في ادخال data لان اول مرة اتعامل مع ركويست فيها boundary هاذي صورة توضح لكم الفكرة اكثر
وهذا كود
كود :
Try : Net.ServicePointManager.CheckCertificateRevocationList = False : Net.ServicePointManager.DefaultConnectionLimit = 300 : Net.ServicePointManager.UseNagleAlgorithm = False : Net.ServicePointManager.Expect100Continue = False : Net.ServicePointManager.SecurityProtocol = 3072
Dim rand As Random = New Random()
Dim boundary As String = "----boundary" & rand.[Next]().ToString()
Dim Encoding As New Text.UTF8Encoding
Dim Bytes As Byte() = Encoding.GetBytes("------WebKitFormBoundaryF7l53jVB95Zlcjq6" & vbCrLf & "Content-Disposition: form-data; name=""casDeviceId""" & vbCrLf & vbCrLf & "jw1dAmOzbWzxp7lQKeKJvg==" & vbCrLf & "------WebKitFormBoundaryF7l53jVB95Zlcjq6--")
Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://proxies-beinmena.portail.alphanetworks.be/proxy/casRemoveDevice"), Net.HttpWebRequest)
With AJ
.Method = "POST"
.Proxy = Nothing
.Accept = "application/json, text/plain, /"
.ContentType = "multipart/form-data; boundary=----WebKitFormBoundaryF7l53jVB95Zlcjq6"
.Referer = "https://connect.bein.com/"""
.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36"
.Headers.Add("x-an-webservice-customerauthtoken: eyJhbGciOiJSUzI1NiJ9.eyJqdGkiOiIzYmM3N2MxOC1iNzI2LTRjYjUtYmMzNy1mNjBjNzk5MzVlYzEiLCJzdWIiOiI2OTA2NTg4IiwiYXV0aG9yaXRpZXMiOlsiRW5kVXNlclJvbGUiXSwiYXBpcCI6IjE5Ni4yMzUuMTE3LjQ0IiwiY2xpZW50X2lkIjoidDFUaDU1VXZpU3RldjhwMnVyT3Y0Zk90cmFEYUJyMWYiLCJpYXQiOjE2MTg2NjQyNDQsImV4cCI6MTYxODY3ODY0NCwiaWRfc3NvIjoyMzMxNzIxfQ.BNQWQAqr_oKmk8S0oYvWSss7tPfPx_PWYyedYXZ_izCRawhQQH4tND7e_hwmFIVewUueVgZHE6Rxn0bYqCpu3aJNhnOxE7TuRCY7e7x-hJQ_tsXjYozUp2js1rzrP_XHJapc1uN3D4wq5D9GHb_ajpZskXXObGFTf3BOB-WwgnOy00bUFSHJoD33uQjNSeWiHrn4AO2cQeHYWTjBNG9jCXGbvWVGvYQ6rsNKUImPmim71_GfgA0K0G9jdaRaJAPvg6IWaqQTIw3yL28UbzF1OB5oqUslV2SyLp8P-YywEcJWvSlfmRCmXGU9rze6JvC1KixfSYLA9Jgv7PCRbeaOKA")
.Headers.Add("x-an-webservice-identitykey: t1Th55UviStev8p2urOv4fOtraDaBr1f")
End With
Dim Stream As IO.Stream = AJ.GetRequestStream() : Stream.Write(Bytes, 0, Bytes.Length) : Stream.Dispose() : Stream.Close()
Dim Reader As New IO.StreamReader(DirectCast(AJ.GetResponse(), Net.HttpWebResponse).GetResponseStream()) : Dim Text As String = Reader.ReadToEnd : Reader.Dispose() : Reader.Close()
TextBox1.Text = Text
Catch ex As WebException : Dim AJJ As String = New IO.StreamReader(ex.Response.GetResponseStream()).ReadToEnd() : MsgBox("Error : " & AJJ) : End Try