Function GetWebPage(ByVal URL As String, ByRef source As String, ByVal charCode As String) As Boolean
Dim request As WebRequest
Dim response As HttpWebResponse
Dim dataStream As Stream
Dim reader As StreamReader
Try
' 指定されたURLへのリクエストを生成する
request = WebRequest.Create(URL)
' レスポンスを得る
response = CType(request.GetResponse(), HttpWebResponse)
' データストリームを得る
dataStream = response.GetResponseStream()
' Webページのソースを読み出すためのストリームリーダーを生成する
reader = New StreamReader(dataStream, Encoding.GetEncoding(charCode))
' Webページのソースを読み出す
source = reader.ReadToEnd
reader.Close()
dataStream.Close()
response.Close()
GetWebPageSource = True
Catch ex As Exception
GetWebPageSource = False
End Try
End Function