Also ich hab die RichTextbox jetzt weggemacht und ne Listbox genommen....
Also ich verbinde mich mit ner Adresse ... z.B. in meinem fall cobra.2x.to:10033
dann krieg ich die Antwort : Ts3
so wenn ich das gleiche jetzt ohne meine proggi mache mit telnet cobra.2x.to:10033 steht da :
1.ZEILE ------Ts3
2.Zeile -------Bitte gebe hilfe .... ein um blablablalb
So ... ich möchte das mein Programm nicht nur Zeile 1 holt sondern auch Zeile 2 und folgend......
hier mal meine jetztiger Code:
Code:
Imports System.Net.Sockets
Imports System.IO
Public Class Form1
'Variablen:
Dim status As Boolean = False
Dim Adresse As Boolean = False
Dim Port As Boolean = False
Dim readytosendbefehle As Boolean = False
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Client As System.Net.Sockets.TcpClient
'_________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Adresse = True Then
If Port = True Then
Try
Client = New System.Net.Sockets.TcpClient 'Neuer TcpCLient damit Reconnect funktioniert!
Client.Connect(Serverip.Text, Serverport.Text) 'Client verbindet sich mit IP und Port
If Client.Connected Then
stream = Client.GetStream ' Stream wird auf Client verwiesen
streamw = New StreamWriter(stream) ' Stream zum Senden wird deklariert
streamr = New StreamReader(stream) ' Stream zum Empfangen wird deklariert
login() ' Sub Login
Else
ListBox1.Items.Add("Verbidnung konnte nicht mit " & Serverip.Text & ":" & Serverport.Text & " aufgebaut werden!")
End If
Catch
ListBox1.Items.Add("Verbidnung konnte nicht mit " & Serverip.Text & ":" & Serverport.Text & " aufgebaut werden! Da der Zugriff verweigert wurde!")
End Try
Else
ListBox1.Items.Add("Sie müssen noch einen Port eintragen um sich verbinden zu können!")
End If
Else
ListBox1.Items.Add("Sie müssen eine Adresse und Port eingetragen um sich Verbinden zu können!")
End If
End Sub
Sub client_send(ByVal text As String)
streamw.WriteLine(text)
streamw.Flush()
End Sub
Function client_recieve() As String
client_recieve = streamr.ReadLine
End Function
' Nach der erfolgreichen verbindung mit der IP und dem Port wird dieser Sub aufgerufen:
Sub login()
Try
Dim tmp As String = streamr.ReadLine
streamw.WriteLine(tmp)
client_send("test")
ListBox1.Items.Add("Verbindung Erfolgreich!")
ListBox1.Items.Add("Server: " & tmp)
readytosendbefehle = True
Exit Sub ' Versteht sich von Selbst...
Catch
ListBox1.Items.Add("FEHLER!! KONNTE MESSAGE NICHT ÜBERMITTELN!!!!") ' Hier kann man eine Error Message ausgeben oder eine Automatische Fehlerbehebung machen,....
End Try
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If Client.Connected Then
Client.Close()
streamw.Flush()
ListBox1.Items.Add("Verbindung erfolgreich geschlossen!")
Else
ListBox1.Items.Add("ERROR: Verbindung konnte nicht geschlossen werden!")
End If
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If status = False Then
Me.Size = New System.Drawing.Size(1024, 456)
status = True
Else
Me.Size = New System.Drawing.Size(1024, 360)
status = False
End If
End Sub
Private Sub Senden_Click(sender As System.Object, e As System.EventArgs) Handles Senden.Click
If readytosendbefehle = True Then
Try
Dim tmp As String = streamr.ReadLine
client_send(Befehlsbox.Text)
streamw.WriteLine(tmp)
ListBox1.Items.Add("Ich: " & Befehlsbox.Text)
ListBox1.Items.Add("Server: " & tmp)
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
ListBox1.ClearSelected()
Catch
MsgBox("Sorry es gab ein Fehler beim Senden/Empfangen bitte überprüfen sie ihre Verbindung zum Server!")
End Try
Else
MsgBox("Du kannst keine Befehle senden ohne eine aktive Verbindung zu haben!")
End If
End Sub
Private Sub Serverip_TextChanged(sender As System.Object, e As System.EventArgs) Handles Serverip.TextChanged
Adresse = True
End Sub
Private Sub Serverport_TextChanged(sender As System.Object, e As System.EventArgs) Handles Serverport.TextChanged
Port = True
End Sub
End Class
EDIT: Hier nochn 3 vergleichs screeens
Vergleich Nr1. :
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
Vergleich Nr2. :
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
Vergleich Nr3. :
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
