@DIV
Public Class Form1


	Private Sub Button1_Click(ByVal sender As System.Object, _
			ByVal e As System.EventArgs) Handles Button1.Click

		@C:green(' HTTP の最大接続数)
		System.Net.ServicePointManager.DefaultConnectionLimit = 10

		@C:green(' サーバー側のエンコーディング)
		Dim enc As System.Text.Encoding = _
		 System.Text.Encoding.GetEncoding("euc-jp")

		@C:green(' HttpWebRequestの作成)
		Dim request As System.Net.HttpWebRequest = _
		  System.Net.HttpWebRequest.Create("http://winofsql.sakura.ne.jp/lightbox/euc.php")
		request.Method = "GET"

		request.UserAgent = "lightbox"

		Console.WriteLine(request.KeepAlive)
		Console.WriteLine(request.Timeout)		' 100,000 ミリ秒 (100 秒)

		@C:green(' HttpWebResponse の取得)
		Dim response As System.Net.HttpWebResponse
		Try
			response = request.GetResponse()
			@C:green(' ステータスコード)
			Console.WriteLine(response.StatusCode)	' 200
			Console.WriteLine(response.StatusCode.ToString())  ' OK
			Console.WriteLine(response.StatusDescription)	' OK
		Catch ex As Exception
			' エラー例 : リモート サーバーがエラーを返しました: (404) 見つかりません
			Console.WriteLine(ex.ToString())
			Return
		End Try

		@C:green(' ヘッダを KEY=VALUE で表示)
		Dim key As String
		For Each key In response.Headers
			Console.WriteLine(key + "=" + response.Headers(key))
		Next

		Console.WriteLine()
		@C:green(' ヘッダのまま表示)
		Console.WriteLine(response.Headers)

		@C:green(' Content-Type: text/html; Charset=euc-jp
		Console.WriteLine(response.ContentType)

		@C:green(' Stream を取得)
		Dim data_stream As System.IO.Stream = response.GetResponseStream()
		@C:green(' 受信)
		Dim stream_reader As New System.IO.StreamReader(data_stream, enc)

		@C:green(' 表示)
		Console.WriteLine(stream_reader.ReadToEnd())

		@C:green(' 閉じる
		' ※ オブジェクトと、その基になるストリームを閉じ、
		' ※ リーダーに関連付けられたすべてのシステムリソースを解放)
		stream_reader.Close()

	End Sub

End Class
@END