vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Quellcode Teil1/8 
Autor: dj.tommy
Datum: 15.06.17 13:07

Ich habe dir die kompletten Dateieigenschaften Quell-Code kopiert.
Aber die Form1 habe ich dir nur eine ganz kurze Version geschrieben, denn wenn ich dir die Komplette Chat Programm Quell-Code sende würde diese seine sehr lang werden.
Und es wäre ja vermutlich uninteressant, da es ja nur um die Verbindung geht, und nicht das Chatprogramm an sich.

Dateieigenschaften
Imports System.Net
Imports System.Net.Sockets
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Text
 
<ToolboxBitmap(GetType(Winsock), "Winsock.png")>
<System.ComponentModel.DefaultEvent("HandleError")> _
Public Class Winsock
    Inherits System.ComponentModel.Component
#Region " Variables "
    Private _Paketgröße As Integer = 8192
    Private _LocalHostName As String = Dns.GetHostName ' = ""
    Private _LocalIP As String = LokalHostIP() '"127.0.0.1"
    Private _LocalPort As Integer = 8080
    Private _RemoteIP As String = "127.0.0.1"
    Private _RemoteHostName As String '= 8080
    Private _RemoteHost As String '= 8080
    Private _RemoteHostIP As String '= 8080
    Private _RemotePort As Integer '= 8080
    Private _Status As WinsockStates = WinsockStates.Closed
    Private _bufferCol As Collection
    Private _byteBuffer(_Paketgröße) As Byte
    Private _SocketListTCP As Socket
    Private _SocketListUDP As Socket
    Private _ClientServerTCP As Socket
    Private _ClientServerUDP As Socket
    Private DataBuffer() As Byte
    Private _Tag As String
    Private _BytesReceived As Long = 0
    Private _BytesTotal As Long
    Private _Protokoll As WinsockProtocol
#End Region
 
    Public Sub New()
        _LocalPort = 8080
        _Protokoll = WinsockProtocol.TCP
        _Status = WinsockStates.Closed
        _Paketgröße = 8192
    End Sub
 
#Region " Events "
    ''' <summary>
    ''' Tritt auf, wenn die Verbindungsoperation abgeschlossen ist.
    ''' </summary>
    Public Event Connected(ByVal sender As Winsock)
    ''' <summary>
    ''' Tritt auf, nachdem die Verbindung getrennt wurde.
    ''' </summary>
    Public Event Closend(ByVal sender As Winsock)
    ''' <summary>
    ''' Tritt auf, wenn Daten vom Remote Computer empfangen wurden.
    ''' </summary>
    '''  <param name="BytesTotal">gibt die Daten größe in Bytes zurück.</param>
    Public Event DataArrival(ByVal sender As Winsock, ByVal BytesTotal As Long)
    ''' <summary>
    ''' Tritt auf, wenn ein Remote Client versucht, eine Verbindung 
    ' herzustellen.
    ''' </summary>
    '''  <param name="requestID">gibt die Identität über die Akzeptierte 
    ' Verbindung ab oder legt es fest.</param>
    Public Event ConnectionRequest(ByVal sender As Winsock, ByVal requestID As _
      Socket)
    ''' <summary>
    ''' Tritt auf, wenn die gesendete Daten abgeschlossen ist.
    ''' </summary> 
    Public Event SendComplete(ByVal sender As Winsock)
    ''' <summary>
    ''' Tritt auf, wenn ein Fehler entstanden ist.
    ''' </summary>
    Public Event HandleError(ByVal sender As Winsock, ByVal ErrNumber As _
      Integer, ByVal Description As String)
 
#End Region
 
#Region " Ports "
    ''' <summary>
    '''  Gibt den Anschluß zurück, der auf dem lokalen Computer verwendet wird, 
    ' oder legt den Anschluß fest.
    ''' </summary>
    Public Property LokalPort() As Integer
        Get
            Return _LocalPort
        End Get
        Set(ByVal value As Integer)
            Select Case Status
                Case WinsockStates.Listening
                    Throw New Exception("Können die lokalen Port nicht ändern," & _
                      "während bereits auf einem Port lauscht")
                Case WinsockStates.Connected
                    Throw New Exception("Können die lokalen Port einer" & _
                      "Verbindung, die bereits aktiv ist nicht mehr ändern.")
                Case Else
                    If Status <> WinsockStates.Closed AndAlso Status <> _
                      WinsockStates.Closing Then
                        Throw New Exception("Können die lokalen Port nicht" & _
                        "ändern, während die Komponente verarbeitet, kann es" & _
                        "negative Auswirkungen auf den Verbindungsprozess.")
                    End If
            End Select
            _LocalPort = value
        End Set
    End Property
    ''' <summary>
    '''  Gibt den Anschluß auf dem Remote Computer zurück, über den eine 
    ' Verbindung hergestellt werden soll, oder legt den Anschluß fest.
    ''' </summary>
    <Browsable(False)> _
    Public ReadOnly Property RemotePort() As Integer
        Get
            Return _RemotePort
        End Get
    End Property
 
#End Region
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Mit System.Net.Sockets über Internet verbinden?2.275dj.tommy14.06.17 18:59
Re: Mit System.Net.Sockets über Internet verbinden?1.433sv0001014.06.17 20:03
Re: Mit System.Net.Sockets über Internet verbinden?1.380dj.tommy14.06.17 20:05
Re: Mit System.Net.Sockets über Internet verbinden?1.383sv0001014.06.17 20:36
Re: Quellcode Teil1/81.387dj.tommy15.06.17 13:07
Re: Quellcode Teil2/81.443dj.tommy15.06.17 13:08
Re: Quellcode Teil3/81.319dj.tommy15.06.17 13:09
Re: Quellcode Teil4/81.213dj.tommy15.06.17 13:10
Re: Quellcode Teil5/81.312dj.tommy15.06.17 13:11
Re: Quellcode Teil6/81.219dj.tommy15.06.17 13:12
Re: Quellcode Teil7/81.354dj.tommy15.06.17 13:15
Re: Quellcode Teil8/81.269dj.tommy15.06.17 13:16
Re: Quellcode Teil8/81.363sv0001015.06.17 14:44
Re: Quellcode Teil8/81.237dj.tommy16.06.17 16:18
Re: Quellcode Teil8/81.309sv0001016.06.17 21:30
Re: Quellcode Teil8/81.381dj.tommy18.06.17 18:03
Re: Sockets Empfänger1.471dj.tommy02.07.17 12:14
Re: Sockets Empfänger1.504sv0001002.07.17 17:52
Re: Sockets Empfänger1.278dj.tommy02.07.17 19:02
Re: Sockets Empfänger1.297sv0001003.07.17 05:42
Re: Sockets Empfänger1.309dj.tommy03.07.17 10:32
Re: Sockets Empfänger1.244sv0001003.07.17 17:35
Re: Sockets Empfänger1.340dj.tommy03.07.17 19:35

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel