本文整理匯總了VB.NET中System.Net.Sockets.Socket.Connect方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET Socket.Connect方法的具體用法？VB.NET Socket.Connect怎麽用？VB.NET Socket.Connect使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Net.Sockets.Socket的用法示例。
在下文中一共展示了Socket.Connect方法的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: tmp
' .Connect throws an exception if unsuccessful
client.Connect(anEndPoint)
' This is how you can determine whether a socket is still connected.
Dim blockingState As Boolean = client.Blocking
Try
Dim tmp(0) As Byte
client.Blocking = False
client.Send(tmp, 0, 0)
Console.WriteLine("Connected!")
Catch e As SocketException
' 10035 == WSAEWOULDBLOCK
If e.NativeErrorCode.Equals(10035) Then
Console.WriteLine("Still Connected, but the Send would block")
Else
Console.WriteLine("Disconnected: error code {0}!", e.NativeErrorCode)
End If
Finally
client.Blocking = blockingState
End Try
Console.WriteLine("Connected: {0}", client.Connected)
End Sub示例2: DateTimeClient
' 導入命名空間
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class DateTimeClient
Public Shared Sub Main()
Dim args As String() = Environment.GetCommandLineArgs()
Dim serverHost As String = "127.0.0.1"
Dim hostadd As IPAddress = Dns.Resolve(serverHost).AddressList(0)
Dim EPhost As New IPEndPoint(hostadd, 13)
Dim clientSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Try
clientSocket.Connect(EPhost)
Catch ex As Exception
Console.WriteLine(ex.ToString())
End Try
Try
Dim recvbytes(1024) As Byte
Dim i As Integer = clientSocket.Receive(recvbytes, 0, clientSocket.Available, SocketFlags.None)
Dim datetime As String = Encoding.ASCII.GetString(recvbytes, 0, i)
Console.WriteLine("Receive {0} bytes.", i)
Console.WriteLine("Current server date/Time: {0}", datetime)
clientSocket.Shutdown(SocketShutdown.Both)
clientSocket.Close()
Catch ec As Exception
Console.WriteLine(ec.StackTrace.ToString())
Exit Sub
End Try
End Sub
End Class