تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في اضافة centent فيه boundary
#1
سلام عليكم
رمضانكم مبارك 
اتمنى ان تكونو  بالف خير 
 -لقد وجهت مشكلة في ادخال 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
اتمنى انكم فهمتو طلبي وان شاءالله تجدون حل وشكرا لكم مسبقا  Heart
الرد
تم الشكر بواسطة:



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


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