A .NET sample showing HTTP web pages import

				
//**************************************
// Name: A .NET sample showing HTTP web pages import
// Description:Importa web pages in your VC#.NET managed application. Support for proxy server and secure SSL sites.
// By: Roby Kott
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2363&lngWId=10//for details.//**************************************

' ********************************************************************
' HTTP Import sample
'HTTP Sample: simple sample to show how to retrieve data from a web 
'server. Proxy and security are not demonstrated to keep sample small.
'
' IMPORTANT: 
'Online manual: http://www.vahland.com/asocket/manual.htm
' ********************************************************************
Sub Main()
 Dim objHttp As ASOCKETLib.HttpClass
 Dim objConstants As Constants
 Dim strHost As String
 Dim strData As String
 objHttp = New ASOCKETLib.Http()
 objConstants = New Constants()
 strHost = "www.activexperts.com/products"
 strData = ""
 objHttp.Connect(strHost)
 Console.WriteLine("Connect, result: " & objHttp.LastError & " (" & objHttp.GetErrorDescription(objHttp.LastError) & ")")
 If (objHttp.LastError = objConstants.asERR_SUCCESS) Then
strData = objHttp.ReadData()
Console.WriteLine("ReadData, result: " & objHttp.LastError & " (" & objHttp.GetErrorDescription(objHttp.LastError) & ")")
If (objHttp.LastError = objConstants.asERR_SUCCESS) Then
 Console.WriteLine(strData)
End If
objHttp.Disconnect()
Console.WriteLine("Disconnect.")
 End If
 Console.WriteLine("Ready.")
 System.Threading.Thread.Sleep(5000)
End Sub