メニュー

IF文
FOR文
Usingステートメント

ArrayListを利用
IEnumerableを実装
Dictionaryを利用
StringDictionaryを利用
Stack(スタック)
Queue(キュー)
Generic List

小文字⇔大文字の変換
文字列をある文字列で分割

日付関係
現在日付と時刻の取得
明日、来月の日付の取得
月末の日付の取得
日付チェック

ファイル関係
ファイル選択ダイアログ
ファイル読み込み
CSVファイル読み込み
XmlSerializerを利用
GZip圧縮
ファイル情報の取得
フォルダ配下のファイル情報取得

MySQLに接続
ADO.NetでSQLServerに接続

スレッドを作成
ManagementObjectSearcherを利用

ドライブ情報を取得

フォーム関係
チェックボックス
メニューバーの作成
DataGridViewのDataSourceに配置
Timerコントロール
タスクバーにアイコンを表示
プログレスバーを表示
閉じるボタンの処理
透過度の変更
ListBoxにドラック&ドロップ
WebBrowserコントロール
コントロールをマウスで移動
MDIアプリケーション
フォームに線を引く

WebAPI
Webリクエスト送信
Google Geocoding APIを呼び出す
Google Static Maps APIを呼び出す


正規表現
「^」について
「$」について
「+」について
「*」について
「.」について
「|」について
「{n}」について
「{n,m}」について
「[]」について

トップ
E-Mail
xml

ASP.Netのお勉強
ASP.Netで掲示板を作成しよう
Excel マクロ・VBAのお勉強
PHPのお勉強
AJAXのお勉強
Webデザインのお勉強
Javaのお勉強
連想書籍検索
世界の観光地検索
路線図
総合サイトCocoaLiz
ネイルサロン検索
エステサロン検索
アロマサロン検索
アイビューティーサロン検索

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.