« [OPアンプ] 基本増幅回路3種 | トップページ | [OPアンプ] 加算回路、減算回路(差動増幅回路) »

2013年3月13日 (水)

[WSH] HTTPで取得する

HTTPで取得する。

MSXML2.XMLHTP.3.0オブジェクトを利用。

'参考: http://d.hatena.ne.jp/necoyama3/20090424/1240592349

Const URL = "http://www.google.co.jp/"

Function getHtml( strUrl )
    Dim oXMLHTTP
    Dim resData

    'オブジェクト
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

    'データ取得
    on error resume next
    oXMLHTTP.Open "GET", strUrl, False   '接続
    oXMLHTTP.Send                        '送信

    'エラーなし?
    If oXMLHTTP.Status = 200 Then
        '受信データ
        resData = oXMLHTTP.responseText
    Else
        'エラー
        resData = "Error:" & oXMLHTTP.Status
    End If

    getHtml = resData
End Function

WScript.Echo getHtml( URL )

« [OPアンプ] 基本増幅回路3種 | トップページ | [OPアンプ] 加算回路、減算回路(差動増幅回路) »

2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

Amazonリンク

ダイビング写真(swf)

ブログ内検索

  • Google
    WWW を検索
    ブログ内を検索

リンク(いつもお世話さま)

  • ソニーストア
     iTunes Store(Japan)
    Just MyShop(ジャストシステム)
    ブックオフオンライン
無料ブログはココログ