Guten Abend Hilfe mit pushover

  • VB.NET

Es gibt 70 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Sehe ich das richtig, dass du nicht über PushoverNet gehen willst, sondern den HTTPS-Service von Hand befriedigen willst?
    Das geht über einen HTTPS POST.
    Dafür benötigst du HttpWebRequest.

    Hast du PushoverNet über nuget installiert oder nicht?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dann lass das mit dem Versuch, das Netzwerkprotokoll selbst zu implementieren, sondern gehe zurück zu Post #12
    Möglicherweise musst du den Namespace nach dem New noch angeben.
    Oder die Objekte und Methoden heissen leicht anders.
    Ich habe heute keine Entwicklungsumgebung mehr verfügbar.
    Wenn du die genaue Syntax benötigst, musst du bis morgen warten.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Schreib eine nene Sub.

    Visual Basic-Quellcode

    1. Sub SendPushoverMessage(Message As String, PushOverUserKey As String)
    2. Const PushoverAppKey = "adsmfklnjadksijpoqjew5q4w56e4fqaewfr4" 'hier dein Application Token eintragen
    3. Static PushOver As New PushoverClient.Pushover(PushOverAppKey)
    4. Dim Response = PushOver.Push("PushOverTest", Message, PushOverUserKey)
    5. For Each ErrorMsg In Response.Errors
    6. MessageBox.Show(ErrorMsg)
    7. Next
    8. End Sub

    Dann ziehst du einen Button auf deine Form.
    Wenn du ihn im Designer doppelklickst, kannst du seine Eventroutine bearbeiten.

    VB.NET-Quellcode

    1. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    2. SendPushoverMessage("test message", "adsfnjoij9340uokidfsvg903udpvfki") 'hier dein User-Token oder Group-Token eintragen.
    3. End Sub

    Ausführen .. Button klicken .. Aufs Handyklingeln warten .. fertig.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Habe mein Code nun wie folgt angepasst aber er schickt wen ich auf Button 3 Klicke immer noch keine Nachricht an mein Handy mit der Group

    Hab dir das angepasste Blau Makiert
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim hilf As String
    3. If CheckBox3.Checked = True Then
    4. hilf = "Ja"
    5. Else
    6. hilf = "Nein"
    7. End If
    8. Try
    9. db.Query("INSERT INTO `ils_einsatz`(`fsid`, `anrufer`, `rueckrufnr`, `e_objekt`, `e_strasse`, `e_ort`, `e_info`, `pat_gender`, `pat_name`, `pat_alter`, `eart_fw`, `eart_rd`, `eart_pol`, `eart_thw`, `eart_sonst`, `stichwort`, `tz_objekt`, `tz_strasse`, `tz_ort`, `tz_info`, `alarm`, `alarmdurch`, `sosi`) VALUES ('" & Main.FSID.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & ComboBox1.Text & "','" & TextBox23.Text & "','" & TextBox22.Text & "','" & TextBox8.Text & "','" & TextBox7.Text & "','" & TextBox10.Text & "','" & TextBox9.Text & "','" & TextBox11.Text & "','" & TextBox17.Text & "','" & TextBox21.Text & "','" & TextBox20.Text & "','" & TextBox19.Text & "','" & TextBox18.Text & "','" & Now() & "','" & Main.Label6.Text & "','" & hilf & "')")
    10. Dim anzahl As MySqlLib.ResultCollection = db.Query("SELECT * FROM `ils_einsatz`")
    11. If CheckedListBox1.CheckedItems.Count > 0 Then
    12. For xy As Integer = 1 To CheckedListBox1.CheckedItems.Count Step 1
    13. db.Query("UPDATE `ils_schleifen` SET `alarm`='" & anzahl.Row(anzahl.Row.Count - 1).Column("id") & "' WHERE `name` = '" & CheckedListBox1.CheckedItems.Item(xy - 1) & "' AND `fsid`='" & Main.FSID.Text & "'")
    14. If CheckBox1.Checked = True Then
    15. Dim grouptoken As MySqlLib.ResultCollection = db.Query("SELECT `pushover_api` FROM `ils_schleifen` WHERE `name` = '" & CheckedListBox1.CheckedItems.Item(xy - 1) & "' AND `fsid`='" & Main.FSID.Text & "'")
    16. WebBrowser1.Navigate("https://api.pushover.net/1/messages.json" & CheckedListBox1.CheckedItems.Item(xy - 1) & "&token=" & grouptoken.Row(0).Column("pushover_api"), False)
    17. End If
    18. If CheckBox2.Checked = True Then
    19. Dim r As New System.Random()
    20. Dim x As String = "Schleife " & r.Next(1, 50) & " Gruppe " & r.Next(1, 50) & " Melder " & r.Next(1, 500)
    22. db.Query("INSERT INTO `ils_bmz`(`fsid`, `bma_name`, `bma_art`, `bma_text`) VALUES ('" & Main.FSID.Text & "','" & TextBox3.Text & "','F','" & x & "')")
    23. End If
    24. Next
    25. End If
    26. Catch ex As Exception
    27. MessageBox.Show("Es ist folgender Fehler aufgetreten:" & vbNewLine & "(" & ex.HResult & ") " & ex.Message, "Funkspiel-ILS :: MySQL-Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    28. End Try
    29. Me.Close()
    30. Dim tcpClient As New System.Net.Sockets.TcpClient()
    31. tcpClient.Connect("xxxxxx", "10011")
    32. Dim networkStream As Sockets.NetworkStream = tcpClient.GetStream()
    33. Dim sendBytes As [Byte]()
    34. sendBytes = Encoding.ASCII.GetBytes("login serveradmin xxxxx" + vbCrLf)
    35. networkStream.Write(sendBytes, 0, sendBytes.Length)
    36. sendBytes = Encoding.ASCII.GetBytes("use sid=1" + vbCrLf)
    37. networkStream.Write(sendBytes, 0, sendBytes.Length)
    38. sendBytes = Encoding.ASCII.GetBytes("clientupdate client_nickname=Leitstelle\smit\sFunkalamierung" + vbCrLf)
    39. networkStream.Write(sendBytes, 0, sendBytes.Length)
    40. Dim result As MySqlLib.ResultCollection = db.Query("SELECT id, eart_fw, eart_rd, sosi, eart_pol, eart_thw, eart_sonst, e_objekt, e_strasse, e_ort, e_info, pat_name, alarm FROM ils_einsatz ORDER BY id DESC LIMIT 1")
    41. Dim ils_id As Integer = result.Row(0).Column("id")
    42. Dim alarm As String = result.Row(0).Column("alarm")
    43. alarm = alarm.Trim().Replace(" ", "\s")
    44. Dim eart_fw As String = result.Row(0).Column("eart_fw")
    45. eart_fw = eart_fw.Trim().Replace(" ", "\s")
    46. Dim eart_rd As String = result.Row(0).Column("eart_rd")
    47. eart_rd = eart_rd.Trim().Replace(" ", "\s")
    48. Dim e_objekt As String = result.Row(0).Column("e_objekt")
    49. e_objekt = e_objekt.Trim().Replace(" ", "\s")
    50. Dim e_strasse As String = result.Row(0).Column("e_strasse")
    51. e_strasse = e_strasse.Trim().Replace(" ", "\s")
    52. Dim e_ort As String = result.Row(0).Column("e_ort")
    53. e_ort = e_ort.Trim().Replace(" ", "\s")
    54. Dim sosi As String = result.Row(0).Column("sosi")
    55. sosi = sosi.Trim().Replace(" ", "\s")
    56. Dim e_info As String = result.Row(0).Column("e_info")
    57. e_info = e_info.Trim().Replace(" ", "\s")
    58. Dim newresult As MySqlLib.ResultCollection = db.Query("SELECT name FROM ils_schleifen WHERE alarm=" & ils_id)
    59. Dim wache As String = newresult.Row(0).Column("name")
    60. If newresult.Row.Count > 1 Then
    61. For xy As Integer = 2 To newresult.Row.Count Step 1
    62. wache = wache & ", " & newresult.Row(xy - 1).Column("name")
    63. Next
    64. End If
    65. wache = wache.Trim().Replace(" ", "\s")
    66. Dim msg As String = "\nEinsatz\s" & ils_id & "\sam\s" & alarm &
    67. "\n\sSchleife:\s" & wache &
    68. "\n\sAnfahrt\smit\sSonderrechten:\s" & sosi &
    69. "\n\sEs\sgeht\snach:\s" & e_objekt &
    70. "\sStrasse:\s" & e_strasse &
    71. "\sOrt:\s" & e_ort &
    72. "\n\sStichwort\sFeuerwehr:\s" & eart_fw &
    73. "\n\sStichwort\sRettungsdienst:\s" & eart_rd &
    74. "\n\sWeitere\sInfos:\s" & e_info
    76. msg = String.Format("\n####################EINSATZFAX####################\r\n{0}\r\n####################EINSATZFAX#ENDE###############", msg)
    77. Dim toSend As String = "sendtextmessage targetmode=3 target=1 msg=[b][color=red]" & msg
    78. sendBytes = Encoding.ASCII.GetBytes(toSend + vbCrLf)
    79. networkStream.Write(sendBytes, 0, sendBytes.Length)
    80. sendBytes = Encoding.ASCII.GetBytes("logout" + vbCrLf)
    81. networkStream.Write(sendBytes, 0, sendBytes.Length)
    82. If Not networkStream.CanRead Then
    83. Console.WriteLine("cannot not write data to this stream")
    84. tcpClient.Close()
    85. Else
    86. If Not networkStream.CanWrite Then
    87. Console.WriteLine("cannot read data from this stream")
    88. tcpClient.Close()
    89. End If
    90. End If
    91. ' pause so user can view the console output
    92. Console.ReadLine()
    94. [color=#0000ff]SendPushoverMessage("test message", "xxxxxxxx") 'hier dein User-Token oder Group-Token eintragen.[/color]
    96. End Sub
    98. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    99. Dim hilf As String
    100. If CheckBox3.Checked = True Then
    101. hilf = "Y"
    102. Else
    103. hilf = ""
    104. End If
    105. Try
    106. db.Query("INSERT INTO `ils_uebung`(`fsid`, `anrufer`, `rueckrufnr`, `e_objekt`, `pat_name`, `eart_fw`, `eart_rd`, `eart_pol`, `eart_thw`, `eart_sonst`, `tz_objekt`, `alarm`, `alarmdurch`, `stichwort`, `sosi`) VALUES ('" & Main.FSID.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox5.Text & "','" & TextBox5.Text & "','" & TextBox5.Text & "','" & TextBox5.Text & "','" & TextBox7.Text & "','" & Now() & "', '" & Main.Label6.Text & "','" & TextBox8.Text & "','" & hilf & "')")
    107. Dim anzahl As MySqlLib.ResultCollection = db.Query("SELECT * FROM `ils_uebung`")
    108. If CheckedListBox1.CheckedItems.Count > 0 Then
    109. For xy As Integer = 1 To CheckedListBox1.CheckedItems.Count Step 1
    110. db.Query("UPDATE `ils_schleifen` SET `alarm`='" & anzahl.Row(anzahl.Row.Count - 1).Column("id") & "' WHERE `name` = '" & CheckedListBox1.CheckedItems.Item(xy - 1) & "' AND `fsid`='" & Main.FSID.Text & "'")
    111. If CheckBox1.Checked = True Then
    112. Dim grouptoken As MySqlLib.ResultCollection = db.Query("SELECT `pushover_api` FROM `ils_schleifen` WHERE `name` = '" & CheckedListBox1.CheckedItems.Item(xy - 1) & "' AND `fsid`='" & Main.FSID.Text & "'")
    113. WebBrowser1.Navigate("http://www.vlst-software.de/funkspiel-ils/pushover_api.php?ric=" & CheckedListBox1.CheckedItems.Item(xy - 1) & "&token=" & grouptoken.Row(0).Column("pushover_api"), False)
    114. End If
    115. If CheckBox2.Checked = True Then
    116. Dim r As New System.Random()
    117. Dim x As String = "Schleife " & r.Next(1, 50) & " Gruppe " & r.Next(1, 50) & " Melder " & r.Next(1, 500)
    119. db.Query("INSERT INTO `ils_bmz`(`fsid`, `bma_name`, `bma_art`, `bma_text`) VALUES ('" & Main.FSID.Text & "','" & TextBox3.Text & "','F','" & x & "')")
    120. End If
    121. Next
    122. End If
    123. Catch ex As Exception
    124. MessageBox.Show("Es ist folgender Fehler aufgetreten:" & vbNewLine & "(" & ex.HResult & ") " & ex.Message, "Funkspiel-ILS :: MySQL-Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    125. End Try
    126. Me.Close()
    127. Dim tcpClient As New System.Net.Sockets.TcpClient()
    128. tcpClient.Connect("xxxxxx", "10011")
    129. Dim networkStream As Sockets.NetworkStream = tcpClient.GetStream()
    130. Dim sendBytes As [Byte]()
    131. sendBytes = Encoding.ASCII.GetBytes("login serveradmin xxxxxx" + vbCrLf)
    132. networkStream.Write(sendBytes, 0, sendBytes.Length)
    133. sendBytes = Encoding.ASCII.GetBytes("use sid=1" + vbCrLf)
    134. networkStream.Write(sendBytes, 0, sendBytes.Length)
    135. sendBytes = Encoding.ASCII.GetBytes("clientupdate client_nickname=Leitstelle\smit\sUebungs\sAlarm" + vbCrLf)
    136. networkStream.Write(sendBytes, 0, sendBytes.Length)
    137. Dim result As MySqlLib.ResultCollection = db.Query("SELECT id, eart_fw, eart_rd, eart_pol, eart_thw, eart_sonst, e_objekt, e_strasse, e_ort, e_info, pat_name, alarm FROM ils_uebung ORDER BY id DESC LIMIT 1")
    138. Dim ils_id As Integer = result.Row(0).Column("id")
    139. Dim alarm As String = result.Row(0).Column("alarm")
    140. alarm = alarm.Trim().Replace(" ", "\s")
    141. Dim eart_fw As String = result.Row(0).Column("eart_fw")
    142. eart_fw = eart_fw.Trim().Replace(" ", "\s")
    143. Dim eart_rd As String = result.Row(0).Column("eart_rd")
    144. eart_rd = eart_rd.Trim().Replace(" ", "\s")
    145. Dim e_objekt As String = result.Row(0).Column("e_objekt")
    146. e_objekt = e_objekt.Trim().Replace(" ", "\s")
    147. Dim e_strasse As String = result.Row(0).Column("e_strasse")
    148. e_strasse = e_strasse.Trim().Replace(" ", "\s")
    149. Dim e_ort As String = result.Row(0).Column("e_ort")
    150. e_ort = e_ort.Trim().Replace(" ", "\s")
    151. Dim e_info As String = result.Row(0).Column("e_info")
    152. e_info = e_info.Trim().Replace(" ", "\s")
    153. Dim pat_name As String = result.Row(0).Column("pat_name")
    154. pat_name = pat_name.Trim().Replace(" ", "\s")
    155. Dim newresult As MySqlLib.ResultCollection = db.Query("SELECT name FROM ils_schleifen WHERE alarm=" & ils_id)
    156. Dim wache As String = newresult.Row(0).Column("name")
    157. If newresult.Row.Count > 1 Then
    158. For xy As Integer = 2 To newresult.Row.Count Step 1
    159. wache = wache & ", " & newresult.Row(xy - 1).Column("name")
    160. Next
    161. End If
    162. wache = wache.Trim().Replace(" ", "\s")
    163. Dim msg As String = "Uebung\s" & ils_id & "\sam\s" & alarm &
    164. "\sStichwort\sFeuerwehr:\s" & eart_fw &
    165. "\sStichwort\sRettungsdienst:\s" & eart_rd &
    166. "\sPatienten\sName:\s" & pat_name &
    167. "\sWeitere\sInfos:\s" & e_info &
    168. "\sEs\sgeht\snach:\s" & e_objekt &
    169. "\sStrasse:\s" & e_strasse &
    170. "\sOrt:\s" & e_ort &
    171. "\sSchleife:\s" & wache
    172. Dim toSend As String = "sendtextmessage targetmode=3 target=1 msg=[b][color=red]" & msg
    173. sendBytes = Encoding.ASCII.GetBytes(toSend + vbCrLf)
    174. networkStream.Write(sendBytes, 0, sendBytes.Length)
    175. sendBytes = Encoding.ASCII.GetBytes("logout" + vbCrLf)
    176. networkStream.Write(sendBytes, 0, sendBytes.Length)
    177. If Not networkStream.CanRead Then
    178. Console.WriteLine("cannot not write data to this stream")
    179. tcpClient.Close()
    180. Else
    181. If Not networkStream.CanWrite Then
    182. Console.WriteLine("cannot read data from this stream")
    183. tcpClient.Close()
    184. End If
    185. End If
    186. ' pause so user can view the console output
    187. Console.ReadLine()
    188. End Sub
    190. Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    191. stichwort_viewer.Show()
    192. End Sub
    194. [color=#0000ff]Sub SendPushoverMessage(Message As String, PushOverUserKey As String)
    195. Const PushoverAppKey = "xxxxxxxxxx" 'hier dein Application Token eintragen
    196. Static PushOver As New PushoverClient.Pushover(PushoverAppKey)
    197. Dim Response = PushOver.Push("PushOverTest", Message, PushOverUserKey)
    198. For Each ErrorMsg In Response.Errors
    199. MessageBox.Show(ErrorMsg)
    200. Next
    201. End Sub[/color]
    203. End Class



    *Spoiler eingefügt*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Du sprichst von Button 3, der Code steht aber bei Button1... oder heißt Button 3 bei dir Button 1?

    Edit: Sorry, ziehe meine Antwort zurück. Hab in dem ellenlangen Code überlesen das es 2 Click Events sind.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „mrMo“ ()

    petaod schrieb:

    Setz einen Breakpoint in Zeile 197.
    Kommt er dort vorbei?


    Sorry Blicke nun nicht mehr durch Breakpoint ist doch ein Leerzeichen oder bzw Haltepunkt

    EDIT geht noch nicht er zeigt bei nem haltepunkt bei Debugging folgendes an

    Der Haltepunkt wird momentan nicht ereicht

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Norman18vk“ ()

    Norman18vk schrieb:

    Der Haltepunkt wird momentan nicht ereicht
    Mach mal "Projektmappe neu erstellen".
    Du scheinst ein absolutes Chaos in deinem Projekt zu haben,

    Norman18vk schrieb:

    da Pushover nicht so ganz Funken will
    gebe ich dir mit HttpWebRequest noch weniger Chancen.
    PushoverNet ist ein Zweizeiler.
    HttpWebRequest ist komplizierter.

    An deiner Stelle würde ich einfach ein leeres Testprojekt machen und den Testaufruf implementieren.
    Wenn du dann verstanden hast, wie (und dass) es funktioniert, kannst du es an geeigneter Stelle in dein Programm einbauen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dann würde ich das in nuget deinstallieren und neu installieren.

    PushoverNet hat als Dependency ServiceStack.Text eingetragen und installiert das auch mit.
    ServiceStack.Text hat als Dependency .Net-Framework 4.5
    Könnte das das Problem sein?

    Das müsste aber bei der nuget-Installation als Fehler gemeldet werden.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende