VB.Netのお勉強



Webリクエスト送信＠VB.Net

Webリクエスト送信を行います。

URLを指定して、WebRequestを生成します。
GetResponseメソッドにより、WebResponseを取得します。

レスポンスから、GetResponseStreamにてデータを取得します。

以下では、ライブドアのお天気情報Web APIを用いているので、
取得したXMLからデータを取り出して、フォームに表示しています。


Imports System.Net
Imports System.IO
Imports System.Xml

Public Class Form1

Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click

        Dim req As HttpWebRequest
        Dim res As WebResponse

        Dim stream As Stream
        Dim streamRead As StreamReader

        Dim xmlDoc As Xml.XmlDocument
        Dim xmlStr As String
        Dim url As String

        'ライブドアのお天気情報Web API
        url = "http://weather.livedoor.com/forecast/webservice/rest/v1"
        url += "?city=63&day=today"

        'Request生成
        req = WebRequest.Create(url)

        'Response取得
        res = req.GetResponse()

        'Stream取得
        stream = res.GetResponseStream

        'StreamReader生成
        streamRead = New StreamReader(stream)

        '表示
        xmlStr = streamRead.ReadToEnd()
        Console.WriteLine(xmlStr)

        xmlDoc = New XmlDocument()
        xmlDoc.LoadXml(xmlStr)

        '天気情報
        Me.Label1.Text = xmlDoc.Item("lwws").Item("description").InnerText

        'クローズ
        streamRead.Close()
        stream.Close()
        res.Close()

End Sub
End Class




Copyright (C) 2008-2011 VB.Netのお勉強. All Rights Reserved.