Mega Code Archive

 

Categories / VB.Net Tutorial / Socket Network

 

Read a web page with Socket

Imports System.Net Imports System.Net.Sockets Imports System.IO Imports System.Text Imports System.Text.Encoding Public Class Tester     Public Shared Sub Main         Dim serverIP As IPAddress = Dns.Resolve("www.rntsoft.com").AddressList(0)         Dim Port As String = "80"         Dim serverhost As New IPEndPoint(serverIP, Int32.Parse(Port))              Dim clientSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)              Try           clientSocket.Connect(serverhost)                If clientSocket.Connected = False Then             Console.WriteLine("Connect Error.")             Exit Sub           End If                Dim httpReq As String = "GET / HTTP/1.0" & ControlChars.CrLf & ControlChars.CrLf                clientSocket.Send(ASCII.GetBytes(httpReq))                Dim buffer(1024) As Byte           Dim byteCount As Int16 = clientSocket.Receive(buffer, buffer.Length, 0)                Console.WriteLine(ASCII.GetString(buffer, 0, byteCount))                Do While byteCount > 0             byteCount = clientSocket.Receive(buffer, buffer.Length, 0)             Console.WriteLine(ASCII.GetString(buffer, 0, byteCount))           Loop         Catch ex As Exception           Console.WriteLine(ex.StackTrace.ToString())         End Try          End Sub End Class