Imports System.Net
Imports System.Net.Sockets
Imports System.ComponentModel
 
#Region " History "
 
''
'' 10-20-2005 - Changed buffer mechanism to allow storing of multiple objects
''                 Required if you use multiple sends on bitmaps otherwise
''                 they stack as one bitmap and don't retrieve properly.
''                 Utilizes the EOT (end of transmission) (ascii 4) to do
''                 the separating, although it still checks for a count
''                 less than the byte length for backwards compatability.
''            - Sending data now appends an EOT at the end of the data
'' 10-19-2005 - Added support for direct byte() sending and retrieving
''            - Added support for bitmap sending and retrieving
'' 08-24-2005 - Released
''
 
#End Region
 
<System.ComponentModel.DefaultEvent("HandleError")> _
Public Class Winsock
    Inherits System.ComponentModel.Component
 
#Region " Events "
    Public Event Connected(ByVal sender As Winsock)
    Public Event Disconnected(ByVal sender As Winsock)
    Public Event DataArrival(ByVal sender As Winsock, ByVal BytesTotal As _
      Integer)
    Public Event ConnectionRequest(ByVal sender As Winsock, ByVal requestID As _
    Socket)
    Public Event SendComplete(ByVal sender As Winsock)
    Public Event HandleError(ByVal sender As Winsock, ByVal Description As _
      String, ByVal Method As String, ByVal myEx As String)
    Public Event StateChanged(ByVal sender As Winsock, ByVal state As _
    WinsockStates)
#End Region
 
#Region " Variables "
    Private _RemoteIP As String = "127.0.0.1"
    Private _LocalPort As Integer = 80
    Private _RemotePort As Integer = 80
    Private _State As WinsockStates = WinsockStates.Closed
    Private _sBuffer As String
    Private _buffer() As Byte
    Private _bufferCol As Collection
    Private _byteBuffer(1024) As Byte
    Private _sockList As Socket
    Private _Client As Socket
#End Region
 
#Region " Constructors "
    Public Sub New()
        Me.New(80)
    End Sub
    Public Sub New(ByVal Port As Long)
        Me.New("127.0.0.1", Port)
    End Sub
    Public Sub New(ByVal IP As String)
        Me.New(IP, 80)
    End Sub
    Public Sub New(ByVal IP As String, ByVal Port As Long)
        RemoteIP = IP
        RemotePort = Port
        LocalPort = Port
        _bufferCol = New Collection
    End Sub
#End Region
 
#Region " Properties "
    Public Property LocalPort() As Integer
        Get
            Return _LocalPort
        End Get
        Set(ByVal Value As Integer)
            If GetState = WinsockStates.Closed Then
                _LocalPort = Value
            Else
                Throw New Exception("Must be idle to change the local port")
            End If
        End Set
    End Property
    Public Property RemotePort() As Integer
        Get
            Return _RemotePort
        End Get
        Set(ByVal Value As Integer)
            If GetState <> WinsockStates.Connected Then
                _RemotePort = Value
            Else
                Throw New Exception("Can't be connected to a server and change" & _
                  "the remote port.")
            End If
        End Set
    End Property
    Public Property RemoteIP() As String
        Get
            Return _RemoteIP
        End Get
        Set(ByVal Value As String)
            If GetState = WinsockStates.Closed Then
                _RemoteIP = Value
            Else
                Throw New Exception("Must be closed to set the remote ip.")
            End If
        End Set
    End Property
    <Browsable(False)> Public ReadOnly Property GetState() As WinsockStates
        Get
            Return _State
        End Get
    End Property
#End Region