[VBScript] WebAPIをVBScriptから呼び出す

2012年1月24日 propg VBScript, プログラミング, 0

JavaやPHPで作ったWebAPIや、ネットで公開されているWebAPIをVBScriptから呼び出すのは、とても簡単です。

実行後に戻り値を取得する場合は、それぞれのAPIの仕様に従って取得すればOKです。

この例では、XMLで取得してそのままテキストで表示しています。
戻り値がなければ、呼び出して終わりです。

実運用では使わなくても、WebAPIの動作テストをしたいときなどに便利です。

Option Explicit

Call ExecCommand

Sub ExecCommand()
     Dim oXML
     Dim oNode
     Dim url
     Dim t

     url ="http://q.hatena.ne.jp/list?mode=rss"
     'url ="http://www.yahoo.co.jp"

     Set oXML = Nothing '初期化
     On Error Resume Next
     With CreateObject("MSXML2.XMLHTTP")
          .Open "GET", url, False
          .Send
          Set oXML = .responseXML
          t = .responseText
     End With

     Err.Clear
     On Error GoTo 0
     If oXML Is Nothing Then
          WScript.Echo "XMLが取得できませんでした。処理を中止します。"
          Exit Sub
     End If
     If oXML.getElementsByTagName("Error").Length > 0 Then
          WScript.Echo "エラーが発生しました。処理を中止します。"
          Exit Sub
     End If

     WScript.Echo "実行結果=" & chr(13) & t
End Sub

[改訂版] VBScriptポケットリファレンス (POCKET REFERENCE)

新品価格
￥1,974から
(2012/1/24 09:16時点)