Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Imports System.Net.Sockets
Imports System.IO



Public Class Form1


'Variablen:
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Client As New TcpClient
Dim IP As String = "192.168.111.17"
Dim Port As Integer = 4000
Dim loginname As String = "abc" ' Diese Variable ist nicht Pflicht! Aber nützlich für ein Chatprogram...
'_________________





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    'Button1 wird geclickt

    Client.Connect(IP, Port)  'Client verbindet sich mit IP: 192.168.111.17 und Port 4000

    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

        MsgBox("Verbidnung konnte nicht mit " & IP & " aufgebaut werden!")

    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



        'Hier kann man jetzt empfangen wie man will.
        'Auch die reinfolge ist egal.
        'Ich benutzte hier 1 mal senden, einmal empfangen und dann wieder von vorne...
        'Man kann aber auch 2 mal Empfangen und 2 mal Senden nehmen oder...... wies einem so bekommt^^

        client_send("onl " & loginname)

        If client_recieve() = "ok" Then 'Oder sonst irgend was. Ist nur ein Beispiel für einen Login

            Send_irgendwas() ' Hier kann gehts zum nächsten sub um irgend welche Daten zu versenden...

        Else
            'Hier den Code wenn das Anmelden Fehlgeschlagen hat. Goto oder einen Sub aufrufen oder....
            Exit Sub  ' Versteht sich von Selbst...
        End If



    Catch
        ' Hier kann man eine Error Message ausgeben oder eine Automatische Fehlerbehebung machen,....
    End Try

End Sub









Sub Send_irgendwas()

    client_send("Irgendwas")
    If client_recieve() = "Auch wieder irgendwas..." Then
        '.....
    Else
        '....
    End If


    ' Und soo weiter...

    ' Und wenn man die verbidnugn schliesen will, dann einfach:  
    Client.Close()
    ' Nichts einfacher als das!^^

End Sub











End Class

Visual Basic Quellcode

Imports System.Net.Sockets
Imports System.IO

Visual Basic Quellcode

   Dim Client As New TcpClient 'Client

   Dim stream As NetworkStream  
   Dim streamw As StreamWriter  'Zum senden
   Dim streamr As StreamReader  'Zum empfangen

Visual Basic Quellcode

sub Connect_to_Server(byval ip as string, byval port as integer)

Client.Connect(IP, Port)  'Client verbindet sich mit IP: 192.168.111.17 und Port 4000


If Client.Connected Then

        Deklare_Streams() ' Sub Deklare_Streams()

    Else

        MsgBox("Verbidnung konnte nicht mit " & IP & " aufgebaut werden!")

    End If

end sub

Visual Basic Quellcode

sub Deklare_Streams()

        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

end sub

Visual Basic Quellcode

Sub client_send(ByVal text As String)   ' Sub zum senden der Daten 'text'
    streamw.WriteLine(text)
    streamw.Flush()                          ' Achtung! Flush darf nie vergessen werden, da sonst die Daten nicht gesendet werden.
End Sub



Function client_recieve() As String    ' Sub zum empfangen der Daten.
    client_recieve = streamr.ReadLine
End Function

Visual Basic Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   client_send("HALLO")   ' Dieser Stream geht zum Server.
   
   msgbox (client_recieve())   'Und hier wird der empfangene Stream, der vom Server als Antwort gesendet wurde, in einer MSGBOX ausgegeben.

end sub

Visual Basic Quellcode

Client.close

Visual Basic Quellcode

Imports System.Net.Sockets
Imports System.IO
Imports System.Net



Public Class Form1



'Variablen:
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Server As TcpListener
Dim client As New TcpClient
Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000)

Dim mainthread As Threading.Thread
'______________






Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    mainthread = New Threading.Thread(AddressOf mainserver)
    mainthread.Start()

End Sub




Sub mainserver()
    Try

        Server = New TcpListener(ipendpoint)
        Server.Start()

        client = Server.AcceptTcpClient

        stream = client.GetStream
        streamr = New StreamReader(stream)
        streamw = New StreamWriter(stream)  ' Müsste eigentlich alles Klar sein.


        While True

            Select Case streamr.ReadLine

                Case "onl" ' und so weiter eigentlich müsste es heißen select case mid(streamr.readline,1,3) Aber da des ja vielen zu Kompiziert ist lass ich das mal weg^^
                    streamw.WriteLine("ok") ' Achtung! ist nicht Vollständig!
                    streamw.Flush()      ' Code muss angepasst werden.....


                Case "...."  ' ......



                Case "logoff" '........



            End Select

        End While

    Catch
        ' Hier wieder eine Fehler behandlung und ein neuen Versuch den Server zu starten...
    End Try

End Sub





Private Sub Form1__close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
    server.close
Try
        mainthread.Abort()
    Catch
    End Try
End Sub





End Class

Visual Basic Quellcode

Imports System.Net.Sockets
Imports System.IO
Imports System.Net

Visual Basic Quellcode

   'Variablen:
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Server As TcpListener
Dim client As New TcpClient
Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000)

Dim mainthread As Threading.Thread
'______________

Visual Basic Quellcode

Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader

Visual Basic Quellcode

Dim Server As TcpListener

Visual Basic Quellcode

Dim client As New TcpClient

Visual Basic Quellcode

Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000)

Visual Basic Quellcode

Dim mainthread As Threading.Thread

Visual Basic Quellcode

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    mainthread = New Threading.Thread(AddressOf mainserver)
    mainthread.Start()

End Sub

Visual Basic Quellcode

Sub mainserver()
    Try

        Server = New TcpListener(ipendpoint)
        Server.Start()

        client = Server.AcceptTcpClient

        stream = client.GetStream
        streamr = New StreamReader(stream)
        streamw = New StreamWriter(stream)  ' Müsste eigentlich alles Klar sein.


        While True

            Select Case streamr.ReadLine

                Case "irgendwas" 
                    streamw.WriteLine("zu irgendwas eine anwort")
                    streamw.Flush()     


                Case "...."  ' ......



                Case "logoff" '........



            End Select

        End While

    Catch
        ' Hier wieder eine Fehler behandlung und ein neuen Versuch den Server zu starten...
    End Try

End Sub