' webreqres2.vb

Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Public Class WebRequestResponse2
	Shared Sub Main()

		Dim enc As Encoding = Encoding.UTF8
		Dim url As String = "http://www.google.co.jp/"

		Dim req As HttpWebRequest _
			= CType(WebRequest.Create(url), HttpWebRequest)
		req.UserAgent _
			= "Mozilla/4.0 (compatible; MSIE 6.0; Windows XP)"

		Dim res As WebResponse = req.GetResponse()

		Dim st As Stream = res.GetResponseStream()
		Dim sr As StreamReader = new StreamReader(st, enc)
		Dim html As String = sr.ReadToEnd()
		sr.Close()
		st.Close()

		Console.WriteLine(html)
	End Sub
End Class

' コンパイル方法：vbc webreqres2.vb