daten von COM überwachen (SNIFFER)

    • VB6

    Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Agent.

      daten von COM überwachen (SNIFFER)

      ich habe mal ein ´kleines PRG geschrieben welches daten von COM1 oder COM2, jeweils protokolliert und weitersendet. Frei nach dem Motto , was geht da eigentlich ab, zwischen diesen beiden Geräten ?
      Nicht vollkommen aber es funzt.
      Bitte um Eure Meinung ....
      Ist sowas brauchbar oder nur Bullshit ?
      Zu Details bitte fragen...

      Hier der CODE:

      Visual Basic-Quellcode

      1. Dim buffer1, buffer2, bufferrx1, bufferrx2, buffertx1, buffertx2 As String
      3. Private Sub Form_Load()
      4. Form1.Caption = "Repeater von COM nach COM"
      5. With MSComm1
      6. .CommPort = 1
      7. .Handshaking = 2 - comRTS
      8. .RThreshold = 1
      9. .RTSEnable = True
      10. .Settings = "9600,n,8,1"
      11. .SThreshold = 1
      12. .PortOpen = True
      13. ' Leave all other settings as default values.
      14. End With
      16. With MSComm2
      17. .CommPort = 2
      18. .Handshaking = 2 - comRTS
      19. .RThreshold = 1
      20. .RTSEnable = True
      21. .Settings = "9600,n,8,1"
      22. .SThreshold = 1
      23. .PortOpen = True
      24. ' Leave all other settings as default values.
      25. End With
      26. Text1.Text = ""
      28. Text3.Text = ""
      31. End Sub
      33. Private Sub Form_Unload(Cancel As Integer)
      34. MSComm1.PortOpen = False
      35. MSComm2.PortOpen = False
      36. End Sub
      38. '--------------
      39. 'INT FÜR COM1 |
      40. '--------------
      41. Private Sub MSComm1_OnComm()
      42. Dim InBuff1 As String
      44. Select Case MSComm1.CommEvent
      46. ' Errors
      47. Case comEventBreak ' A Break was received.
      48. Case comEventCDTO ' CD (RLSD) Timeout.
      49. Case comEventCTSTO ' CTS Timeout.
      50. Case comEventDSRTO ' DSR Timeout.
      51. Case comEventFrame ' Framing Error.
      52. Case comEventOverrun ' Data Lost.
      53. Case comEventRxOver ' Receive buffer overflow.
      54. Case comEventRxParity ' Parity Error.
      55. Case comEventTxFull ' Transmit buffer full.
      56. Case comEventDCB ' Unexpected error retrieving DCB]
      58. ' Events
      59. Case comEvCD ' Change in the CD line.
      60. Case comEvCTS ' Change in the CTS line.
      61. Case comEvDSR ' Change in the DSR line.
      62. Case comEvRing ' Change in the Ring Indicator.
      63. Case comEvReceive ' Received RThreshold # of chars.
      64. InBuff1 = MSComm1.Input
      65. Call HandleInput1(InBuff1)
      66. Case comEvSend ' There are SThreshold number of
      67. ' characters in the transmit buffer.
      68. Case comEvEOF ' An EOF character was found in the
      69. ' input stream.
      70. End Select
      72. End Sub
      73. '---------------------
      74. 'Auswertung FÜR COM1 |
      75. '---------------------
      76. Sub HandleInput1(InBuff1 As String)
      78. 'IN TEXT1 WIRD DER INHALT DER EMPFANGENEN DATEN IN ASC ANGEZEIGT + einem " "
      80. buffer1 = ""
      81. i1 = 1
      82. For i1 = 1 To Len(InBuff1)
      83. buffer1 = Asc(Mid(InBuff1, i1))
      84. If Len(buffer1) = 3 Then
      85. Text1.Text = Text1.Text & buffer1 & " "
      86. buffertx1 = buffertx1 & buffer1 & " "
      87. Else
      88. If Len(buffer1) = 2 Then
      89. buffer1 = "0" & buffer1
      90. Text1.Text = Text1.Text & buffer1 & " "
      91. buffertx1 = buffertx1 & buffer1 & " "
      92. Else
      93. buffer1 = "00" & buffer1
      94. Text1.Text = Text1.Text & buffer1 & " "
      95. buffertx1 = buffertx1 & buffer1 & " "
      96. End If
      97. End If
      98. buffer1 = ""
      99. Next i1
      101. '-------------------------------------------------
      102. 'EMPFANG AUF COM1-SENDEN DES EMPFANGS AUF COM2 |-----------------------------------------------------------------
      103. '-------------------------------------------------
      105. For i3 = 1 To Len(Text1.Text)
      106. If Mid(buffertx1, i3, 1) <> " " Then
      107. buffers2 = buffers2 & Mid(buffertx1, i3, 1)
      108. Else
      109. MSComm2.Output = Chr(buffers2)
      110. buffers2 = ""
      111. End If
      112. Next i3
      113. buffertx1 = ""
      114. ' Text1.Text = Text1.Text & vbCrLf
      116. End Sub

      Visual Basic-Quellcode

      1. '--------------
      2. 'INT FÜR COM2 |
      3. '--------------
      4. Private Sub MSComm2_OnComm()
      5. Dim InBuff2 As String
      7. Select Case MSComm2.CommEvent
      9. ' Errors
      10. Case comEventBreak ' A Break was received.
      11. Case comEventCDTO ' CD (RLSD) Timeout.
      12. Case comEventCTSTO ' CTS Timeout.
      13. Case comEventDSRTO ' DSR Timeout.
      14. Case comEventFrame ' Framing Error.
      15. Case comEventOverrun ' Data Lost.
      16. Case comEventRxOver ' Receive buffer overflow.
      17. Case comEventRxParity ' Parity Error.
      18. Case comEventTxFull ' Transmit buffer full.
      19. Case comEventDCB ' Unexpected error retrieving DCB]
      21. ' Events
      22. Case comEvCD ' Change in the CD line.
      23. Case comEvCTS ' Change in the CTS line.
      24. Case comEvDSR ' Change in the DSR line.
      25. Case comEvRing ' Change in the Ring Indicator.
      26. Case comEvReceive ' Received RThreshold # of chars.
      27. InBuff2 = MSComm2.Input
      28. Call HandleInput2(InBuff2)
      29. Case comEvSend
      30. Case comEvEOF
      31. End Select
      33. End Sub
      34. '----------------------
      35. 'Auswertung FÜR COM2 |
      36. '----------------------
      37. Sub HandleInput2(InBuff2 As String)
      39. 'IN TEXT3 WIRD DER INHALT DER EMPFANGENEN DATEN IN ASC ANGEZEIGT + einem " "
      41. buffer2 = ""
      42. i2 = 1
      43. For i2 = 1 To Len(InBuff2)
      44. buffer2 = Asc(Mid(InBuff2, i2))
      45. If Len(buffer2) = 3 Then
      46. Text3.Text = Text3.Text & buffer2 & " "
      47. buffertx2 = buffertx2 & buffer2 & " "
      48. Else
      49. If Len(buffer2) = 2 Then
      50. buffer2 = "0" & buffer2
      51. Text3.Text = Text3.Text & buffer2 & " "
      52. buffertx2 = buffertx2 & buffer2 & " "
      53. Else
      54. buffer2 = "00" & buffer2
      55. Text3.Text = Text3.Text & buffer2 & " "
      56. buffertx2 = buffertx2 & buffer2 & " "
      57. End If
      58. End If
      59. buffer2 = ""
      60. Next i2
      62. '-----------------------------------------------
      63. 'EMPFANG AUF COM2-SENDEN DES EMPFANGS AUF COM1 |-------------------------------------------------------------------
      64. '-----------------------------------------------
      66. For i4 = 1 To Len(Text3.Text)
      67. If Mid(buffertx2, i4, 1) <> " " Then
      68. buffers1 = buffers1 & Mid(buffertx2, i4, 1)
      69. Else
      70. MSComm1.Output = Chr(buffers1)
      71. buffers1 = ""
      72. End If
      73. Next i4
      74. buffertx2 = ""
      75. ' Text3.Text = Text3.Text & vbCrLf
      77. End Sub

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

      Ich denke mal, dies passt eher in Sourcecode-Austausch. Außerdem sieht der Code mit dem VB-Tag übersichtlicher aus. -> Verschoben

      Edit: aus irgendeinem Grund ist der Code zu groß für den VB-Tag und wird nur als [Code] angezeigt!?
      Gruß, Agent Smith 8-)

      activeFlags = (lazy OR weary)

      Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

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

      Hi,

      @Agent
      aus irgendeinem Grund ist der Code zu groß für den VB-Tag ...[/qoute]

      das hatte ich vor ein paar Tagen schon einmal und habe einfach den Code in 2 VN Tags eingepackt ^^


      bye ...

      LaMa5.
      Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
      (Autor: Earl Wilson, amerik. Schriftsteller)
      https://www.serviceteam-md.de

      Prinzipiell ist es natürlich interessant, was die verschiedenen Schnittstellen austauschen. Besonders wenn man eine Art Firewall selber Bauen möchte. Kann man mit dem Code eigentlich nur "mitlesen" oder auch abfangen und manipulieren?
      Gruß, Agent Smith 8-)

      activeFlags = (lazy OR weary)

      Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Facebook
    Telefonspende