Export (0) Print
Expand All
0 out of 1 rated this helpful - Rate this topic

ProtocolType Enumeration

Specifies the protocols that the Socket class supports.

Namespace:  System.Net.Sockets
Assembly:  System (in System.dll)
Public Enumeration ProtocolType
Member nameDescription
GgpGateway To Gateway Protocol.
IcmpInternet Control Message Protocol.
IcmpV6Internet Control Message Protocol for IPv6.
IdpInternet Datagram Protocol.
IgmpInternet Group Management Protocol.
IPInternet Protocol.
IPSecAuthenticationHeaderIPv6 Authentication header. For details, see RFC 2292 section 2.2.1, available at http://www.ietf.org.
IPSecEncapsulatingSecurityPayloadIPv6 Encapsulating Security Payload header.
IPv4Internet Protocol version 4.
IPv6Internet Protocol version 6 (IPv6).
IPv6DestinationOptionsIPv6 Destination Options header.
IPv6FragmentHeaderIPv6 Fragment header.
IPv6HopByHopOptionsIPv6 Hop by Hop Options header.
IPv6NoNextHeaderIPv6 No next header.
IPv6RoutingHeaderIPv6 Routing header.
IpxInternet Packet Exchange Protocol.
NDNet Disk Protocol (unofficial).
PupPARC Universal Packet Protocol.
RawRaw IP packet protocol.
SpxSequenced Packet Exchange protocol.
SpxIISequenced Packet Exchange version 2 protocol.
TcpTransmission Control Protocol.
UdpUser Datagram Protocol.
UnknownUnknown protocol.
UnspecifiedUnspecified protocol.

The Socket class uses the ProtocolType enumeration to inform the Windows Sockets API of the requested protocol. Low-level driver software for the requested protocol must be present on the computer for the Socket to be created successfully.

The following example demonstrates how to use ProtocolType to instantiate a Socket.

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


Public Class Sample

   Public Shared Function DoSocketGet(server As String) As String 
      'Set up variables and String to write to the server. 
    Dim ASCII As Encoding = Encoding.ASCII
    Dim [Get] As String = "GET / HTTP/1.1" + ControlChars.Lf + ControlChars.NewLine + "Host: " + server + ControlChars.Lf + ControlChars.NewLine + "Connection: Close" + ControlChars.Lf + ControlChars.NewLine + ControlChars.Lf + ControlChars.NewLine
    Dim ByteGet As [Byte]() = ASCII.GetBytes([Get])
    Dim RecvBytes(256) As [Byte]
    Dim strRetPage As [String] = Nothing 

      ' IPAddress and IPEndPoint represent the endpoint that will 
      '   receive the request. 
      ' Get first IPAddress in list return by DNS. 

         ' Define those variables to be evaluated in the next for loop and  
         ' then used to connect to the server. These variables are defined 
         ' outside the for loop to make them accessible there after. 
         Dim s As Socket = Nothing 
         Dim hostEndPoint As IPEndPoint
         Dim hostAddress As IPAddress = Nothing 
         Dim conPort As Integer = 80

         ' Get DNS host information. 
         Dim hostInfo As IPHostEntry = Dns.Resolve(server)
         ' Get the DNS IP addresses associated with the host. 
         Dim IPaddresses As IPAddress() = hostInfo.AddressList

         ' Evaluate the socket and receiving host IPAddress and IPEndPoint.  
      Dim index As Integer = 0
      For index = 0 To IPaddresses.Length - 1
        hostAddress = IPaddresses(index)
        hostEndPoint = New IPEndPoint(hostAddress, conPort)

        ' Creates the Socket to send data over a TCP connection.
        s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

        ' Connect to the host using its IPEndPoint.

        If Not s.Connected Then 
          ' Connection failed, try next IPaddress.
          strRetPage = "Unable to connect to host"
          s = Nothing 
          GoTo ContinueFor1
        End If 

        ' Sent the GET request to the host.
        s.Send(ByteGet, ByteGet.Length, 0)

      Next index  ' End of the for loop.

      ' Receive the host home page content and loop until all the data is received. 

      'Dim bytes As Int32 = s.Receive(RecvBytes, RecvBytes.Length, 0) 
      Dim bytes As Int32 = s.Receive(RecvBytes, RecvBytes.Length, 0)

      strRetPage = "Default HTML page on " + server + ":\r\n"
      strRetPage = "Default HTML page on " + server + ":" + ControlChars.Lf + ControlChars.NewLine

      Dim i As Integer 

      While bytes > 0

        bytes = s.Receive(RecvBytes, RecvBytes.Length, 0)

        strRetPage = strRetPage + ASCII.GetString(RecvBytes, 0, bytes)

      End While 

      ' End of the try block. 
    Catch e As SocketException
         Console.WriteLine("SocketException caught!!!")
         Console.WriteLine(("Source : " + e.Source))
         Console.WriteLine(("Message : " + e.Message))
      Catch e As ArgumentNullException
         Console.WriteLine("ArgumentNullException caught!!!")
         Console.WriteLine(("Source : " + e.Source))
         Console.WriteLine(("Message : " + e.Message))
      Catch e As NullReferenceException
         Console.WriteLine("NullReferenceException caught!!!")
         Console.WriteLine(("Source : " + e.Source))
         Console.WriteLine(("Message : " + e.Message))
      Catch e As Exception
         Console.WriteLine("Exception caught!!!")
         Console.WriteLine(("Source : " + e.Source))
         Console.WriteLine(("Message : " + e.Message))
      End Try 

      Return strRetPage
   End Function 'DoSocketGet

   Public Shared Sub Main()
   End Sub 'Main
End Class 'Sample

.NET Framework

Supported in: 4.5.1, 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0

.NET Framework Client Profile

Supported in: 4, 3.5 SP1

.NET for Windows Phone apps

Supported in: Windows Phone 8.1, Windows Phone 8, Silverlight 8.1

Windows Phone 8.1, Windows Phone 8, Windows 8.1, Windows Server 2012 R2, Windows 8, Windows Server 2012, Windows 7, Windows Vista SP2, Windows Server 2008 (Server Core Role not supported), Windows Server 2008 R2 (Server Core Role supported with SP1 or later; Itanium not supported)

The .NET Framework does not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.

Did you find this helpful?
(1500 characters remaining)
Thank you for your feedback
© 2014 Microsoft. All rights reserved.