如何解决发送推送通知时身体出现问题
发送PushBullet通知时出现奇怪的问题。 如果richtextBox包含以下文本,我可以发送通知:
这是文字
此
是文字
或:
此
是
文字
我尝试使用正则表达式替换来删除所有空白,但是它不起作用。我用于发送通知的代码:
Private Sub PushBullet()
'PUSHBULLET
Dim token As String = "pushbullet token"
Dim title As String = "Notication Title"
Dim body As String
body = Regex.Replace(RichTextBox1.Text,"^\s+$[\r\n]*","",RegexOptions.Multiline)
Try
' Create a request using a URL that can receive a post.'
Dim Request As HttpWebRequest = CType(WebRequest.Create("https://api.pushbullet.com/v2/pushes"),HttpWebRequest)
' Set the Method property of the request to POST.'
Request.Method = "POST"
' Create POST data and convert it to a byte array.'
Dim postData As String = "{""type"": ""note"",""title"": """ & title & """,""body"": """ & body & """}"
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
' Set the ContentLength property of the WebRequest.'
Request.ContentLength = byteArray.Length
' Set the ContentType property of the WebRequest.'
Request.ContentType = "application/json"
' Add the token to header.'
Request.Headers.Add("Access-Token",token)
' Get the request stream.'
Dim dataStream As Stream = Request.GetRequestStream()
' Write the data to the request stream.'
dataStream.Write(byteArray,byteArray.Length)
' Close the Stream object.'
dataStream.Close()
' Get the response.'
Dim response As WebResponse = Request.GetResponse()
' Get the stream containing content returned by the server.'
dataStream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.'
Dim reader As New StreamReader(dataStream)
' Read the content.'
Dim responseFromServer As String = reader.ReadToEnd()
' Show result in RichTextBox.'
' RichTextBox1.Text = responseFromServer
' Clean up the streams.'
reader.Close()
dataStream.Close()
response.Close()
Catch ex As Exception
End Try
End Sub
有什么主意吗? 谢谢
解决方法
我使用以下方法解决了
TextBox1.Text = TextBox1.Text.Replace(vbLf," ").Replace(vbCr,"")
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。