public Sub PostMultipartXML(Link As String)
Dim stream As OutputStream
stream.InitializeToBytesArray(0)
Dim b() As Byte
Dim eol As String = Chr(13) & Chr(10)
Dim s As String = _
$"--PMasdfglkjhqwert
Content-Type: application/xml; charset=UTF-8
<?xml version="1.0"?>
<!DOCTYPE pap PUBLIC "-//WAPFORUM//DTD PAP 2.1//EN" "http://www.openmobilealliance.org/tech/DTD/pap_2.1.dtd">
<pap>
<push-message push-id="999999999" source-reference="xxxx-79790aak2e2rm24M988518o8i04205l7o73" deliver-before-timestamp="2020-12-31T23:59:59Z"> <address address-value="2A126B39"/>
<quality-of-service delivery-method="confirmed"/>
</push-message>
</pap>
--PMasdfglkjhqwert
{"key1":"value1", "key2":"value2", "key3":"value3"}
--PMasdfglkjhqwert–-"$
b = s.Replace(CRLF, eol).GetBytes("UTF8")
Log(s)
stream.WriteBytes(b, 0, b.Length)
PostBytes(Link, stream.ToBytesArray)
req.SetContentType("multipart/related; boundary=PMasdfglkjhqwert;type=application/xml")
req.SetContentEncoding("UTF8")
req.SetHeader("Authorization", "Basic GHR456gkdg46373hd7gf4gfgJtMjRNOTg4NTE4bzhpMDQyMDVsN283MzpOQWZOVnJONg==")
End Sub