...wurde nicht deklariert

[hero9910]

#removed
hatte kein bog mehr auf eure schei... komentare .
ich habe schluss endlich die lösung von euch bekommen aber ich habe es nicht nötig mir nur weil ich ein neuling auf dem gebiet VB bin mir so etwas anhören zu müssen .!!!
DAnke für eure hilfe aber
f ck off your komments

[Che]

definiere die konstanten als "public" dann dürfts klappen

[hero9910]

könntest du mir ein beispiel sagen ? Ich habe nähmlich wirklich keine ahnung von vb
wenn nur C++ und das ist ja anders als VB
danke.

[finaldown97]

Als erstes, es sind keine konstanten!
Und zweitens braucht man die Objekte nicht Public schalten, da auf sie direkt über die eigene Klasse zugegriffen wird (this-Verweis)

Ansonsten zur problemlösung, eigentlich ist alles richtig bis auf deine Variablennamen.
Du definierst listener aber greifst auf listner zu. Rechtschreibung muss sein!

[Kraizy​]

Imports ******.Net.*****
Imports System.******
Imports *****.IO

ich werde mache sachen des codes zensieren wegen den kids die klauen wollen .

lol..sry ich musst grad so lachen xD

[ms​]

Außerdem soll das hier wahrscheinlich so lauten...

Originally Posted by hero9910

            Dim reader As New StreamReader(client.GetStream())
            While reader.Peek > -1
                message = message + Convert.ToChar([B][COLOR="Red"]reader.[/COLOR][/B]read()).tostring

Originally Posted by xKraizy

lol..sry ich musst grad so lachen xD

Nein, das Lustige daran ist viel mehr:

Originally Posted by hero9910

hey ich ich habe grade ein vid gesehen wo man ein chat programm coden can.

Originally Posted by hero9910

ich werde mache sachen des codes zensieren wegen den kids die klauen wollen .

[finaldown97]

Sorry aber ich sag die Wahrheit.
Nur einer von den "Kids" von dennen du sprichst ist so paranoid und zensiert Codestellen wo selbst ein Blinder noch weiß was genau da hin passt. Ich denk wenn du sowiso nicht VB beherscht und dann Scriptkiddy-Like alles abtippst bist du nicht besser als die Leute die du quasi beleidigst.

Hier nochmal der Code unzenisert und in voller Länge + Fix deiner Fehler

 Spoiler

Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim listener as new TcpListener(55555)
Dim client As TcpClient
Dim message As String = ""

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
listener.stop()
End Sub


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim listthread As New Thread(New ThreadStart(AddressOf listening))
listthread.Start()
End Sub

Private Sub listening()
listener.Start()
End Sub




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
client = New TcpClient(textbox1.Text, 5555)
Dim writer As New StreamWriter(client.GetStream())

writer.Write(TextBox2.Text)
writer.Flush()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If listener.Pending = True Then
message = ""
client = listener.AcceptTcpClient()

Dim reader As New StreamReader(client.GetStream())
While reader.Peek > -1
message = message + Convert.ToChar(reader.read()).tostring
End While

textbox3.text = textbox3.text & message & vbCrLf


Else : End If


End Sub

End Class