Über IP adresse nachricht verschicken

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von powerprogger.

    Über IP adresse nachricht verschicken

    weiß jemand wie ich über die IP adresse nachrichten verschicken kan und auch empfangen? heisst das programm schickt eine nachricht über ip adresse und fängt eingehende sachen auch ab, vondene es weiß, dass es von ihm ist!

    sind ja nur lächerliche 64 Seiten...... :S
    Mich interessiert das auch mal, ist für mich unerkundetes Gebiet. Würde mich freuen, wenn hier einer einfach mal einen kurzen Beispielcode reinstellen könnte, dann muss ich mir nicht das alles durchlesen

    versuchs mal hiermit:
    (allerdings VB6)

    Brainfuck-Quellcode

    1. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
    2. 'Ansonsten viel Spaß und Erfolg mit diesem Source!
    4. '------------ Anfang Projektdatei MultiChat.vbp ------------
    5. ' Die Komponente ' (mswinsck.ocx)' wird benötigt.
    6. ' Die Komponente 'Microsoft Rich Textbox Control 6.0 (SP6) (richtx32.ocx)' wird benötigt.
    7. ' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6) (MSCOMCTL.OCX)' wird benötigt.
    9. '---------- Anfang Formular "Chat" alias Chat.frm ----------
    10. ' Steuerelement: Windows Socket "WinSock" (Index von 0 bis 0)
    11. ' Steuerelement: Rahmensteuerelement "frmData"
    12. ' Steuerelement: Textfeld "txtPort" auf frmData
    13. ' Steuerelement: Textfeld "txtHostIP" auf frmData
    14. ' Steuerelement: Textfeld "txtNick" auf frmData
    15. ' Steuerelement: Beschriftungsfeld "lblPort" auf frmData
    16. ' Steuerelement: Beschriftungsfeld "lblHost" auf frmData
    17. ' Steuerelement: Beschriftungsfeld "lblNick" auf frmData
    18. ' Steuerelement: Schaltfläche "cmdSend"
    19. ' Steuerelement: Statusbar "stBar"
    20. ' Steuerelement: RichTextBox "rftReceive"
    21. ' Steuerelement: RichTextBox "rtfSend"
    22. ' Steuerelement: Rahmensteuerelement "frmActAs"
    23. ' Steuerelement: Schaltfläche "cmdGo" auf frmActAs
    24. ' Steuerelement: Schaltfläche "cmdClient" auf frmActAs
    25. ' Steuerelement: Schaltfläche "cmdServer" auf frmActAs
    26. Option Explicit
    28. Dim boolServer As Boolean
    30. Private Sub cmdClient_Click()
    31. ' Als Client identifizieren und die Möglichkeiten vorgeben
    32. boolServer = False
    33. cmdServer.Enabled = False
    34. cmdClient.Enabled = False
    35. cmdGo.Enabled = True
    36. End Sub
    38. Private Sub cmdGo_Click()
    39. Dim I As Integer
    40. ' Loge ich mich gerade ein ?
    42. If cmdGo.Caption = "Go" Then
    43. ' Erst mal die Einstellungen einfrieren
    44. txtNick.Enabled = False
    45. txtHostIp.Enabled = False
    46. txtPort.Enabled = False
    47. cmdGo.Caption = "Stop"
    49. ' Bin ich Server ?
    50. If boolServer = True Then
    51. Winsock(0).LocalPort = txtPort.Text
    52. Winsock(0).Listen
    53. stBar.SimpleText = "Status: Listening"
    54. Else
    55. Winsock(0).RemotePort = txtPort.Text
    56. Winsock(0).RemoteHost = txtHostIp.Text
    57. Winsock(0).Connect
    58. stBar.SimpleText = "Status: Connecting to " & _
    59. txtHostIp.Text & ":" & txtPort.Text
    60. End If
    63. ' Ich logge mich gerade aus
    64. Else
    65. ' Bin ich Server ?
    66. If boolServer = True Then
    67. ' Erst mal alle Verbindungen schließen und unnötige
    68. ' WinSocks entladen
    69. For I = 1 To Winsock.Count - 1
    70. Winsock(I).Close
    71. Unload Winsock(I)
    72. Next I
    73. Else
    74. Winsock(0).Close
    75. End If
    77. ' Jetzt wieder alles in den Urzustand versetzen
    78. txtNick.Enabled = True
    79. txtPort.Enabled = True
    80. txtHostIp.Enabled = True
    81. cmdGo.Caption = "Go"
    82. cmdGo.Enabled = False
    83. cmdClient.Enabled = True
    84. cmdServer.Enabled = True
    85. stBar.SimpleText = "Status: Offline"
    86. End If
    87. End Sub
    89. Private Sub cmdSend_Click()
    90. Dim strMessage As String
    92. strMessage = "{" & txtNick.Text & "}:" & rtfSend.Text
    94. ' Bin ich Server
    95. If boolServer = True Then
    96. SendMessage strMessage
    97. rftReceive.Text = rftReceive.Text & vbCrLf & strMessage
    98. Else
    99. If Winsock(0).State = 7 Then Winsock(0).SendData strMessage
    100. End If
    102. rtfSend.Text = ""
    104. End Sub
    106. Private Sub cmdServer_Click()
    108. ' Erst mal die Buttons ändern
    109. cmdClient.Enabled = False
    110. cmdGo.Enabled = True
    111. cmdServer.Enabled = False
    113. ' Jetzt bin ich Server
    114. boolServer = True
    115. End Sub
    117. Private Sub WinSock_Close(Index As Integer)
    118. If Index = "0" Then
    119. stBar.SimpleText = "Status: Offline"
    120. Else
    121. stBar = "Status: Verbunden mit " & Winsock.Count - 1 & " " & _
    122. "Client(s)."
    123. End If
    124. End Sub
    126. Private Sub WinSock_Connect(Index As Integer)
    128. ' Jetzt soll man ja wissen, daß man drinnen ist
    129. stBar.SimpleText = "Status: Connected to " & txtHostIp.Text & ":" _
    130. & txtPort.Text
    131. End Sub
    133. Private Sub WinSock_ConnectionRequest(Index As Integer, ByVal _
    134. requestID As Long)
    135. ' Ein neues WinSock laden und die Verbindung übernehmen lassen
    136. Dim intZähler As Integer
    138. intZähler = Winsock.Count
    139. Load Winsock(intZähler)
    140. Winsock(intZähler).LocalPort = txtPort.Text
    141. Winsock(intZähler).Accept requestID
    142. stBar.SimpleText = "Status: Verbunden mit " & Winsock.Count - 1 & _
    143. " Client(s)."
    144. End Sub
    146. Private Sub WinSock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    148. Dim strMessage As String
    150. ' Nachricht holen
    151. Winsock(Index).GetData strMessage
    153. ' Bin ich der Server? Dann weiterleiten
    154. If boolServer = True Then SendMessage strMessage
    156. ' Ich mags auch sehen
    157. rftReceive.Text = rftReceive.Text & vbCrLf & strMessage
    158. End Sub
    160. Private Sub SendMessage(Message As String)
    161. Dim I As Integer
    163. ' Weiterleiten an die anderen clients
    164. For I = 1 To Winsock.Count - 1
    166. ' Erst mal schauen ob die Verbindung steht
    167. If Winsock(I).State = 7 Then Winsock(I).SendData Message
    168. Next I
    169. End Sub
    171. Private Sub WinSock_Error(Index As Integer, ByVal Number As Integer, _
    172. Description As String, ByVal Scode As Long, ByVal Source As String, _
    173. ByVal HelpFile As String, ByVal HelpContext As Long, _
    174. CancelDisplay As Boolean)
    175. If Index < 0 Then
    176. Winsock(Index).Close
    177. Unload Winsock(Index)
    178. rftReceive.Text = rftReceive.Text & vbCrLf & "{System}: " & _
    179. "Verbindung zu einem Host abgebrochen."
    180. Else
    181. Winsock(Index).Close
    182. rftReceive.Text = rftReceive.Text & vbCrLf & "{System}: Dich " & _
    183. "hats gerade gegrillt."
    184. cmdServer.Enabled = True
    185. cmdClient.Enabled = True
    186. cmdGo.Caption = "Go"
    187. cmdGo.Enabled = False
    188. stBar.SimpleText = "Status: Offline wegen Verbindungsproblem."
    189. End If
    190. End Sub


    funktioniert auch übers Internet... habs mit meiner Freundin getestet

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

    @powerprogger: jemand, der mit NET programmiert, kann nicht so viel mit einem langen Quellcode von Vb6 anfangen, außerdem wurde ja schon ein Tutorial reingestellt, und das schon vor über einen Monat...

Facebook
Telefonspende