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"
Try
Dns.GetHostByName(serverHost)
Catch ex As Exception
Console.WriteLine("Can not find server, {0}", serverHost)
Exit Sub
End Try
Dim tcpClient As New TcpClient()
Dim networkStream As Stream
Try
tcpClient.Connect(serverHost, 13)
networkStream = tcpClient.GetStream()
Catch exc As Exception
Console.WriteLine("Can not connect to {0}", serverHost)
Exit Sub
End Try
Try
If networkStream.CanRead Then
Dim recvbytes(tcpClient.ReceiveBufferSize) As Byte
Dim i As Integer = networkStream.Read(recvbytes, 0, CInt(tcpClient.ReceiveBufferSize))
Dim datetime As String = Encoding.ASCII.GetString(recvbytes, 0, i)
Console.WriteLine("Receive {0} bytes.", i)
Console.WriteLine("Current server date/Time: {0}", datetime)
Else
Console.WriteLine("Network Input Stream is unreadable.")
tcpClient.Close()
Return
End If
Catch ec As Exception
Console.WriteLine(ec.StackTrace.ToString())
Exit Sub
End Try
tcpClient.Close()
End Sub
End Class
|