VB.Net Tutorial/Socket Network/Socket Web Client
Read a web page with Socket
<source lang="vbnet">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.vbex.ru").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</source>
Read from web
<source lang="vbnet">Imports System.Net.Sockets Imports System.Net Imports System.IO Imports System.Text Public Class Tester
Public Shared Sub Main Dim httpReq As System.Net.HttpWebRequest Dim httpResp As System.Net.HttpWebResponse Dim respStream As Stream Dim respStreamReader As StreamReader Dim strBuff As String = Nothing Dim cbuffer(256) As Char Dim byteRead As Integer = 0 Dim index As Integer = 0 Try Dim httpURL As New System.Uri("http://www.vbex.ru") httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest) httpResp = CType(httpReq.GetResponse(), HttpWebResponse) respStream = httpResp.GetResponseStream() respStreamReader = New StreamReader(respStream, Encoding.UTF8) byteRead = respStreamReader.Read(cbuffer, 0, 256) While (byteRead <> 0) Dim strResp As New [String](cbuffer, 0, byteRead) Console.WriteLine(strResp) byteRead = respStreamReader.Read(cbuffer, 0, 256) End While respStream.Close() Catch ex As Exception Console.WriteLine(ex.StackTrace.ToString()) End Try End Sub
End Class</source>
<HTML> <HEAD> Java examples (example source code) Organized by topic </title> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <meta http-equiv="content -style-type" content="text/css"/> <meta name="author" content= Demo Source and Support Ltd."/> <meta name="copyright" content="2006 Demo Source and Support Ltd."/> <meta name="description" CONTENT=" Java examples (example source code) Organized by topic " /> <meta name="keywords" CONTENT=" Java examples ( example source code) Organized by topic "/> <SCRIPT language=javascript1.2> <!-- document.write("<style type="text/css">.script12hide { display: none; }</style>"); --> </SCRIPT> <STYLE type=text/css> .BackgroundTable {BACKGROUND-COLOR: #fff4c2; BORDER-RI GHT:#ffcc33 1px solid; BORDER-LEFT:#ffcc33 1px solid;BORDER-TOP:#ffcc33 1px solid; BORDER-BOTTOM:#ff cc33 1px solid}