vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 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 Teil4/8 
Autor: dj.tommy
Datum: 15.06.17 13:10

#Region "Client\Connect"
 
    ''' <summary>
    '''  Stellt eine Verbindung zum Remote Computer her.
    ''' </summary>
    Public Sub Connect()
        If _Protokoll = WinsockProtocol.TCP Then
            If Status = WinsockStates.Connected Or Status = _
              WinsockStates.Listening Then
                MsgBox("Verbindung muss erst geschlossen werden um eine" & _
                "Verbindung herzustellen!", CType(48, MsgBoxStyle), _
                Application.ProductName)
                Exit Sub
            End If
            Try
                ChangeState(WinsockStates.HostResolved)
                _ClientServerTCP = New Socket(AddressFamily.InterNetwork, _
                  SocketType.Stream, ProtocolType.Tcp)
                Dim rEP As New IPEndPoint(IPAddress.Parse(LokalHostIP), _
                LokalPort)
                '_ClientServerTCP.Connect(rEP)
                ChangeState(WinsockStates.Connecting)
                _ClientServerTCP.BeginConnect(rEP, New AsyncCallback(AddressOf _
                  OnConnected), Nothing)
            Catch ex As Exception
                ChangeState(WinsockStates.Error)
                CrossThread.RunGui(AddressOf DoHandleError, ex.HResult, _
                  ex.Message)
            End Try
        ElseIf _Protokoll = WinsockProtocol.UDP Then
            If Status = WinsockStates.Connected Or Status = _
              WinsockStates.Listening Then
                MsgBox("Verbindung muss erst geschlossen werden um eine" & _
                "Verbindung herzustellen!", CType(48, MsgBoxStyle), _
                Application.ProductName)
                Exit Sub
            End If
 
            Try
                If Socket.OSSupportsIPv4 Then
                    ChangeState(WinsockStates.HostResolved)
                    _ClientServerUDP = New Socket(AddressFamily.InterNetwork, _
                      SocketType.Dgram, ProtocolType.Udp)
                    Dim rEP As New IPEndPoint(IPAddress.Parse(LokalHostIP), _
                    LokalPort)
                    '_ClientServerTCP.Connect(rEP)
                    ChangeState(WinsockStates.Connecting)
                    _ClientServerUDP.BeginConnect(rEP, New AsyncCallback( _
                      AddressOf OnConnected), Nothing)
                ElseIf Socket.OSSupportsIPv6 Then
                    ChangeState(WinsockStates.HostResolved)
                    _ClientServerUDP = New Socket(AddressFamily.InterNetworkV6, _
                      SocketType.Dgram, ProtocolType.Udp)
                    Dim rEP As New IPEndPoint(IPAddress.Parse(LokalHostIP), _
                    LokalPort)
                    '_ClientServerTCP.Connect(rEP)
                    ChangeState(WinsockStates.Connecting)
                    _ClientServerUDP.BeginConnect(rEP, New AsyncCallback( _
                      AddressOf OnConnected), Nothing)
                End If
            Catch ex As Exception
                ChangeState(WinsockStates.Error)
                CrossThread.RunGui(AddressOf DoHandleError, ex.HResult, _
                  ex.Message)
            End Try
        End If
 
    End Sub
 
    ''' <summary>
    '''  Stellt eine Verbindung zum Remote Computer her.
    ''' </summary>
    ''' <param name="IP">Gibt den Anschluß zurück, der auf dem lokalen 
    ' Computer verwendet wird, oder legt den Anschluß fest.</param>
    ''' <param name="Port">Gibt den Anschluß auf dem Remote Computer zurück, 
    ' über den eine Verbindung hergestellt werden soll, oder legt den Anschluß 
    ' fest.</param>
    ''' 
    Public Sub Connect(ByVal IP As String, ByVal Port As Integer)
        If _Protokoll = WinsockProtocol.TCP Then
            _LocalIP = IP
            _LocalPort = Port
            Connect()
        ElseIf _Protokoll = WinsockProtocol.UDP Then
            Beep()
        End If
 
    End Sub
 
    Private Sub OnClientConnect(ByVal asyn As IAsyncResult)
        If _Protokoll = WinsockProtocol.TCP Then
            Try
                Dim tmpSock As Socket
                If Status = WinsockStates.Listening Then
                    tmpSock = _SocketListTCP.EndAccept(asyn)
                    CrossThread.RunGui(AddressOf DoConnectionRequest, tmpSock)
                    _SocketListTCP.BeginAccept(New AsyncCallback(AddressOf _
                      OnClientConnect), Nothing)
                End If
            Catch ex As Exception
                Me.Close()
                ChangeState(WinsockStates.Error)
                CrossThread.RunGui(AddressOf DoHandleError, ex.HResult, _
                  ex.Message)
            End Try
        ElseIf _Protokoll = WinsockProtocol.UDP Then
            Beep()
        End If
 
    End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Mit System.Net.Sockets über Internet verbinden?2.274dj.tommy14.06.17 18:59
Re: Mit System.Net.Sockets über Internet verbinden?1.432sv0001014.06.17 20:03
Re: Mit System.Net.Sockets über Internet verbinden?1.379dj.tommy14.06.17 20:05
Re: Mit System.Net.Sockets über Internet verbinden?1.382sv0001014.06.17 20:36
Re: Quellcode Teil1/81.385dj.tommy15.06.17 13:07
Re: Quellcode Teil2/81.442dj.tommy15.06.17 13:08
Re: Quellcode Teil3/81.318dj.tommy15.06.17 13:09
Re: Quellcode Teil4/81.212dj.tommy15.06.17 13:10
Re: Quellcode Teil5/81.311dj.tommy15.06.17 13:11
Re: Quellcode Teil6/81.218dj.tommy15.06.17 13:12
Re: Quellcode Teil7/81.353dj.tommy15.06.17 13:15
Re: Quellcode Teil8/81.268dj.tommy15.06.17 13:16
Re: Quellcode Teil8/81.362sv0001015.06.17 14:44
Re: Quellcode Teil8/81.236dj.tommy16.06.17 16:18
Re: Quellcode Teil8/81.308sv0001016.06.17 21:30
Re: Quellcode Teil8/81.380dj.tommy18.06.17 18:03
Re: Sockets Empfänger1.469dj.tommy02.07.17 12:14
Re: Sockets Empfänger1.503sv0001002.07.17 17:52
Re: Sockets Empfänger1.276dj.tommy02.07.17 19:02
Re: Sockets Empfänger1.296sv0001003.07.17 05:42
Re: Sockets Empfänger1.308dj.tommy03.07.17 10:32
Re: Sockets Empfänger1.243sv0001003.07.17 17:35
Re: Sockets Empfänger1.339dj.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