TCP-IP für IPv6

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Homie111092.

    TCP-IP für IPv6

    Hallo alle zusammen.
    Ich habe gerrade gelesen dass die IPv4 adressen ausgehen , spätestens bis ende 2011.
    Und jetzt habe ich ein problem. Ich programmiere proramme mit TCP-IP. allerdings
    habe ich das problem , dass es nur mit IPv4 adressen funktioniert.
    Ich will sie aber auch mit IPv6 adressen betreiben können.
    Kann mir bitte jemand Helfen ? ;(

    *Topic verschoben*

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

    meyer0815 schrieb:

    funzt net

    fehlermeldung "zeitspanne überschritten "kann mir jemand weiterhelfen ;(

    Du hast meine Frage nicht mal beantwortet! Wie soll man dir helfen wenn du so unpräzise bist? Bei was genau erhälst du die Fehlermeldung? Was willst du erreichen? Wie sieht dein bisheriger Stand aus?
    So kann dir niemand weiterhelfen.

    Dodo schrieb:

    Hast du denn schon eine IPv6 Adresse zu der du connecten möchtest?
    Ich habe im cmd Ipconfig eingegeben und habe es mit allen adressen ausprobiert und die adressen habe ich in einer klammer geschrieben.

    VB.NET-Quellcode

    1. IP = "[ meine IP ]"

    beate schrieb:

    Du hast meine Frage nicht mal beantwortet! Wie soll man dir helfen wenn du so unpräzise bist? Bei was genau erhälst du die Fehlermeldung? Was willst du erreichen? Wie sieht dein bisheriger Stand aus?
    So kann dir niemand weiterhelfen.
    1. Das programm wird abgebrochen . Dannach kommt folgender Fehler auf:
    Spoiler anzeigen
    Ein Verbindungsversuch ist fehlgeschlagen, da die Gegenstelle nach einer bestimmten Zeitspanne nicht richtig reagiert hat, oder die hergestellte Verbindung war fehlerhaft, da der verbundene Host nicht reagiert hat [fe80::ffb:3aac:3f57:fff8]:55555

    Ich habe folgenden code geschrieben :

    VB.NET-Quellcode

    1. client = New TcpClient(TextBox1.Text, 55555)
    2. Dim writer As New StreamWriter(client.GetStream())
    3. writer.Write(nachricht)
    4. writer.Flush()



    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net.Dns
    3. Imports System.Threading
    4. Imports System.IO
    6. Public Class Form4
    7. Dim listener As New TcpListener(55555)
    8. Dim client As TcpClient
    9. Dim message As String = ""
    10. Dim listState As String = True
    11. Dim old_message, outold
    13. Private Sub listening()
    14. listener.Start()
    15. End Sub
    17. Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. Dim listthrehad As New Thread(New ThreadStart(AddressOf listening))
    19. listthrehad.Start()
    20. Timer1.Start()
    21. Timer2.Start()
    22. End Sub
    24. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    25. Dim iTunes As Object = CreateObject("iTunes.Application")
    26. Dim nachricht As String, authPW As String, myIP
    27. Dim Titel
    28. Titel = (iTunes.CurrentTrack.name) & " - " & (iTunes.CurrentTrack.Artist)
    29. If Titel <> " - " Then
    30. Dim VALTY As Integer
    31. VALTY = 2
    32. myIP = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(VALTY).ToString
    34. authPW = "123456789012345678"
    35. nachricht = myIP & ";01" & Titel
    37. client = New TcpClient(TextBox1.Text, 55555)
    38. Dim writer As New StreamWriter(client.GetStream())
    39. writer.Write(nachricht)
    40. writer.Flush()
    41. Dim lvItem As ListViewItem
    42. ' ListView.Items.Clear()
    43. If Titel <> outold Then
    44. lvItem = ListView1.Items.Add("out-msg TCP/UPC")
    45. lvItem.ImageKey = "out"
    46. lvItem.SubItems.AddRange(New String() {myIP, message})
    47. lvItem.Group = ListView1.Groups(1)
    48. End If
    50. outold = Titel
    52. End If
    53. end sub
    55. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    56. Dim myIP
    57. Dim hosttyp As String, hostfile As String, authPW As String, senderPW As String, pos1 As Integer
    58. Dim senderIP
    59. If listener.Pending = True Then
    60. '--------vorbereitung---------
    61. message = ""
    62. client = listener.AcceptTcpClient()
    64. Dim Reader As New StreamReader(client.GetStream)
    66. While Reader.Peek > -1
    67. message = message + Convert.ToChar(Reader.Read()).ToString
    68. End While
    72. '-------Empfangsvorgang----------
    73. If message.Length >= 20 Then
    74. pos1 = InStr(1, message, ";")
    75. senderIP = Mid(message, 1, pos1 - 1)
    77. authPW = "123456789012345678"
    80. hosttyp = Mid(message, pos1 + 1, 2)
    81. hostfile = Mid(message, pos1 + 3)
    83. End If
    86. Dim VALTY As Integer
    87. VALTY = 2
    88. myIP = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(VALTY).ToString
    90. '---nachfolgende verarbeitung---
    92. Dim message1
    93. Dim message2
    95. message1 = Mid(message, 1, 2)
    96. message2 = Mid(message, 3)
    98. If hosttyp = 1 Then
    99. Form3.Label15.Text = hostfile
    100. End If
    102. If hostfile <> old_message Then
    103. Form5.Show()
    104. Form5.Label2.Text = hostfile
    106. Dim lvItem As ListViewItem
    107. ' ListView.Items.Clear()
    109. lvItem = ListView1.Items.Add("in-msg TCP/UPC")
    110. lvItem.ImageKey = "in"
    111. lvItem.SubItems.AddRange(New String() {senderIP, hostfile})
    112. lvItem.Group = ListView1.Groups(0)
    113. End If
    114. old_message = hostfile
    115. Label5.Text = hostfile
    116. Label6.Text = old_message
    117. Label9.Text = hostfile
    118. Label1.Text = hostfile & " ( " & senderIP & " )"
    119. Form7.ListBox1.Items.Add(message)
    120. ' Form3.Label15.Text = hostfile
    121. Else : End If
    124. End Sub


    kann mir jmand wieterhelfen ?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ () aus folgendem Grund: Farbe ROT entfernt

    Du wirst dieses Problem in nächster Zeit noch nicht bekommen. Viele privat angewendete Router haben im Moment noch Probleme mit IP-V6. Es wird wohl einige Jahre im Netz der Provider weiter IP-V4 geroutet werden. Nur die Austritspunkte werden dann in IP-V6 umsetzen.

Facebook
Telefonspende