help Convert Httpwebrequest to Httpclient

[Bden]

I want to convert this code to Httpclient

   : Net.ServicePointManager.CheckCertificateRevocationList = False : Net.ServicePointManager.DefaultConnectionLimit = 300 : Net.ServicePointManager.UseNagleAlgorithm = False : Net.ServicePointManager.Expect100Continue = False : Net.ServicePointManager.SecurityProtocol = 3072 Dim Encoding As New Text.UTF8Encoding Dim Bytes As Byte() = Encoding.GetBytes("CAES+w8SRgpECh4IARIQxzwvXOKRWxt2QalqMQgjXvSXYNVNdLMwfJsO3v+qHUbSGX2vO/RLjPDlkVBHXs6HbTMQbVtAjCXX0l4Sxtc7hAK28jZXaaDHSNK9Xkx52ucagAII4UF2tiqM/2FaMcxvjU1W8agGwBPTIiqO3lanEio3EkgSOPKL5HShfFyCoOhHaH7GfFOCzayDwNCKMnUZbeGf/9UuwLUYaeGaT8nqYsetf1zQhFfamQRSAJSvX5skP0qm4h3tUsJSKQUja12+9mwmhmFPlsgr49E+VJAwvASVK9o7F58iMDuaKoziizWVHVF55dQsFbpGshweKEe/6OLanRxawTEUMi36Mgf+FXE6t69d0ChntmxP2ChfRkFdvLHAkIs7cIExSHVTrU4hr9uXdeQRbnlvje8MHvM4qovvCCww4eu+YTXxCDHWidEPeTkTcUXhkrpt/mFDd1IR3UTv") Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://proxies.be/arkena/askLicenseWV?id=67&playerName=viaccessapp&playerVersion=08.07.10&checksum=pnz64MLTmt2Lsct9UGj5dF83YqMvSJ8%3D"), Net.HttpWebRequest) With AJ .Method = "POST" .Proxy = Nothing .Host = "proxies.be" .Accept = "*/*" .ContentType = "application/octet-stream" .Headers.Add("X-AN-WebService-CustomerAuthToken: eyJhbGciOiJSUzI1NiJ9.TpQPYKEAly1ODbhLK2fWgEiAFLykao7dHINGNTDkYfQEsnN39sQ6hSDYDH2GUtuhUsCq2f9fsNOP4aureFgughRwp1SCzUQ60zt3Qk0TOrIs4K0bsIQhtdD8wG9_EMVT4yKRIv2Tf-T2AsD-FolQkeGsZggNw") .Headers.Add("X-AN-WebService-IdentityKey: tLpitRirllhustlziSpiWewrl9") .UserAgent = "VO r" .ContentLength = Bytes.Length 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()

[Peter Swinkels]

I assume you are asking for help rather than just stating you want to do something? While I can't answer your question I suggest you post your code formatted something like this:

Net.ServicePointManager.CheckCertificateRevocationList = False
Net.ServicePointManager.DefaultConnectionLimit = 300
Net.ServicePointManager.UseNagleAlgorithm = False
Net.ServicePointManager.Expect100Continue = False
Net.ServicePointManager.SecurityProtocol = 3072

Dim Encoding As New Text.UTF8Encoding
Dim Bytes As Byte() = Encoding.GetBytes("CAES+w8SRgpECh4IARIQxzwvXOKRWxt2QalqMQgjXvSXYNVNdLMwfJsO3v+qHUbSGX2vO/RLjPDlkVBHXs6HbTMQbVtAjCXX0l4Sxtc7hAK28jZXaaDHSNK9Xkx52ucagAII4UF2tiqM/2FaMcxvjU1W8agGwBPTIiqO3lanEio3EkgSOPKL5HShfFyCoOhHaH7GfFOCzayDwNCKMnUZbeGf/9UuwLUYaeGaT8nqYsetf1zQhFfamQRSAJSvX5skP0qm4h3tUsJSKQUja12+9mwmhmFPlsgr49E+VJAwvASVK9o7F58iMDuaKoziizWVHVF55dQsFbpGshweKEe/6OLanRxawTEUMi36Mgf+FXE6t69d0ChntmxP2ChfRkFdvLHAkIs7cIExSHVTrU4hr9uXdeQRbnlvje8MHvM4qovvCCww4eu+YTXxCDHWidEPeTkTcUXhkrpt/mFDd1IR3UTv")
Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://proxies.be/arkena/askLicenseWV?id=67&playerName=viaccessapp&playerVersion=08.07.10&checksum=pnz64MLTmt2Lsct9UGj5dF83YqMvSJ8%3D"), Net.HttpWebRequest)

With AJ
   .Method = "POST"
   .Proxy = Nothing
   .Host = "proxies.be"
   .Accept = "*/*"
   .ContentType = "application/octet-stream"
   .Headers.Add("X-AN-WebService-CustomerAuthToken: eyJhbGciOiJSUzI1NiJ9.TpQPYKEAly1ODbhLK2fWgEiAFLykao7dHINGNTDkYfQEsnN39sQ6hSDYDH2GUtuhUsCq2f9fsNOP4aureFgughRwp1SCzUQ60zt3Qk0TOrIs4K0bsIQhtdD8wG9_EMVT4yKRIv2Tf-T2AsD-FolQkeGsZggNw")
   .Headers.Add("X-AN-WebService-IdentityKey   tLpitRirllhustlziSpiWewrl9")
   .UserAgent = "VO r"
   .ContentLength = Bytes.Length
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()

Also what are you trying to accomplish?