自設顧客端與網路伺服端 自設顧客端與網路伺服端

Imports System

Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic
 
Module Module1
 Sub Main()
 Connect("203.64.42.73", "GET / HTTP/1.0" & ControlChars.CrLf & ControlChars.CrLf)
 End Sub
 Sub Connect(ByVal server As [String], ByVal message As [String])
 Try
 
 Dim port As Int32 = 80
 Dim client As New TcpClient(server, port)
 
 
 Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)
 
 Dim stream As NetworkStream = client.GetStream()
 
 
 stream.Write(data, 0, data.Length)
 
 Console.WriteLine("Sent: {0}", message)
 
 
 data = New [Byte](4096) {}
 
 Dim responseData As [String] = [String].Empty
 
 
 Dim bytes As Int32 = stream.Read(data, 0, data.Length)
 responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
 Console.WriteLine("Received: {0}", responseData)
 
 stream.Close()
 client.Close()
 Catch e As ArgumentNullException
 Console.WriteLine("ArgumentNullException: {0}", e)
 Catch e As SocketException
 Console.WriteLine("SocketException: {0}", e)
 End Try
 
 Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
 Console.Read()
 End Sub
 
 
End Module