Netzwerkkommunikation mit VB.NET

DerDepp

Hi,

hab jetzt n 3 Wochen langes Seminar mit Objektorientierter Programmierung in VB.net hinter mir.
Da mir das riesig spaß macht möcht ich noch selbst noch ein wenig weiter machen.

Ich würde gerne mal zur Kommunikation übers Netzwerk n paar infos haben,
TCP/ UDP und was ich mal gehört habe "Winsock".
Leider finde ich nur Source codes zu VB6 wo man nicht heraus erschließen
kann woher jetzt Winsock kommt.
(ob das importiert werden muss, einstellungssache etc.)

Wäre cool wenn ihr da ein paar auf lager hättet!

Ich möchte erst mal die Grundlagen lernen,
einfache Strings über Netzwerk schicken solche sachen

Gruß

S3Ri0US

Ih Winsock ..

Client Beispiel:

Code

Imports System.Net.SocketsImports System.TextClass TCPCli    Shared Sub Main()        Dim tcpClient As New System.Net.Sockets.TcpClient()        tcpClient.Connect("127.0.0.1", 8000)        Dim networkStream As NetworkStream = tcpClient.GetStream()        If networkStream.CanWrite And networkStream.CanRead Then            ' Do a simple write.            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Is anybody there")            networkStream.Write(sendBytes, 0, sendBytes.Length)            ' Read the NetworkStream into a byte buffer.            Dim bytes(tcpClient.ReceiveBufferSize) As Byte            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))            ' Output the data received from the host to the console.            Dim returndata As String = Encoding.ASCII.GetString(bytes)            Console.WriteLine(("Host returned: " + returndata))        Else            If Not networkStream.CanRead Then                Console.WriteLine("cannot not write data to this stream")                tcpClient.Close()            Else                If Not networkStream.CanWrite Then                    Console.WriteLine("cannot read data from this stream")                    tcpClient.Close()                End If            End If        End If        ' pause so user can view the console output        Console.ReadLine()    End SubEnd Class

Server Beispiel:

Code

Imports System.Net.Sockets
Imports System.Text
Class TCPSrv
    Shared Sub Main()
        ' Must listen on correct port- must be same as port client wants to connect on.
        Const portNumber As Integer = 8000
        Dim tcpListener As New TcpListener(portNumber)
        tcpListener.Start()
        Console.WriteLine("Waiting for connection...")
        Try
            'Accept the pending client connection and return             'a TcpClient initialized for communication. 
            Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
            Console.WriteLine("Connection accepted.")
            ' Get the stream
            Dim networkStream As NetworkStream = tcpClient.GetStream()
            ' Read the stream into a byte array
            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            ' Return the data received from the client to the console.
            Dim clientdata As String = Encoding.ASCII.GetString(bytes)
            Console.WriteLine(("Client sent: " + clientdata))
            Dim responseString As String = "Connected to server."
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            Console.WriteLine(("Message Sent /> : " + responseString))
            'Any communication with the remote client using the TcpClient can go here.
            'Close TcpListener and TcpClient.
            tcpClient.Close()
            tcpListener.Stop()
            Console.WriteLine("exit")
            Console.ReadLine()
        Catch e As Exception
            Console.WriteLine(e.ToString())
            Console.ReadLine()
        End Try
    End Sub
   End Class

Alles anzeigen

DerDepp

Oh ne das hatt ich auch schon

Ich wusst nicht das das Winsock ist, ich habs leider nur mit einem String geschafft. Einmal
Naja dann vertief ich mich nochmal rein xD

Weil du sagst "Ih Winsock" was gibt es denn für alternativen?

S3Ri0US

"Ih Winsock" Bezieht sich auf VB6... ich finde in VB.NET ist das wesentlich einfacher / schöner mit TCP zu Arbeiten.

DerDepp

Zitat von S3Ri0US

"Ih Winsock" Bezieht sich auf VB6... ich finde in VB.NET ist das wesentlich einfacher / schöner mit TCP zu Arbeiten.

Ok, wie gesagt bin ja kein Profi.

Komm auch langsam mit deinem Beispielcode zurecht,
also umgesetzt in ein einfaches Netzwerk "Stein Schere Papier" spiel

Buschman

Hi ich habe eine frage wie kan ich in vb 2008 express machen ein text oda comboBox zu "ip" oda "port" inputbox ich hab alles mrgliche schon ausprobiert :nein::hm: ps. sorry for bad german lang.

Buschman

Und noch immer keine hilfe ?

DerDepp

Naja wenn du bedenkst dass das thema nun fast 1 Jahr alt ist,
solltest du dich nicht über die lange Wartezeit wundern.

Leider versteh ich dein Problem nicht

Aber falls du für die IP Eingabe ein Textfeld oder eine Combobox benutzen
willst dann weiß ich vll Rat. Du darfst die IP einfach nicht als String in deinem
Sourcecode hart kodieren, sonder stattdessen jedes mal auf das Textfeld zugreifen.

Alt:

Code

tcpClient.Connect("127.0.0.1", 8000)

Neu 1 (Textbox):

Code

tcpClient.Connect(textbox1.text, 8000)

oder

Neu 2 (Combobox):

Code

tcpClient.Connect(combobox1.SelectedItem.text, 8000)

Buschman

ok ich hab das geschaft abba jetz hab di nexte proiblem

Code

Private Sub ClConnect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ClConnect.Click        If ClCheck.Enabled = True Then            Dim IpLis As IPAddress = IPAddress.Parse(ClIp.Text)            Dim PortLis As Int32            PortLis = ClPort.Text            Dim TcpListener As New System.Net.Sockets.TcpListener(IpLis, PortLis)            TcpListener.Start()            TcpListener.AcceptSocket()        End If        If ClCheck.Enabled = False Then            Dim TcpClient As New System.Net.Sockets.TcpClient            Dim Ip As IPAddress = IPAddress.Parse(ClIp.Text)            Dim Port As Int32            Port = ClPort.Text            ClIp.Text = AccessibleRole.IpAddress            TcpClient.Connect(Ip, Port)        End If

so in dise code client solte if ein check box aktiviert ist er solte listnen auf connections und if dise checkbox ist nicht aktiviert er solte connect normal to (Ip,Port) und eigentlich to krige ich problem in dise linie

Code

TcpListener.Start()

DerDepp

Keine Ahnung!
Welche Fehlermeldung kriegst du?

Du kannst auch englisch reden wenns dir leichter fällt!

Jetzt mitmachen!