Friend Sub Main()
		Dim sLinkArchiv As String = _
  "http://forum.politik.de/forum/archive/index.php/?"
		Dim objRequest As HttpWebRequest = System.Net.HttpWebRequest.Create( _
sLinkArchiv)
		Dim objResponse As HttpWebResponse
		Dim sPostdata As String = "username=un&password=pw"
		Dim asPostData() As Byte = System.Text.Encoding.GetEncoding( _
  "ISO-8859-1").GetBytes(sPostdata)
		Dim sResult As String
		With objRequest
			.CookieContainer = oCookieContainer
			.ContentType = "text/html; charset=ISO-8859-1"
			.ContentLength = asPostData.Length
			.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR" & _
  "1.1.4322)"
			.Accept = "*/*"
			.Method = "POST"
			Dim sw As System.IO.Stream = .GetRequestStream
			sw.Write(asPostData, 0, asPostData.Length)
			sw.Close()
			objResponse = .GetResponse
			.Method = "GET"
			.Timeout = 120000	' 20 sec.
			objResponse = .GetResponse
 
			Dim sr As System.IO.StreamReader = New System.IO.StreamReader( _
  objResponse.GetResponseStream(), System.Text.Encoding.GetEncoding( _
  "ISO-8859-1"))
 
			sResult = sr.ReadToEnd()
			' Close and clean up the StreamReader
			sr.Close()
		End With
 
		getForen(sLinkArchiv)
		For Each oForum As Forum In Forum.colForen
			Debug.Print(oForum.sName)
			oForum.DownLoadArchiv()
		Next
	End Sub