HOME > リファレンス > VBScript

スポンサード リンク

1. '####################################################################################
2. '#
3. '# 関数名：GetHtmlSource
4. '#-----------------------------------------------------------------------------------
5. '# 機能  ：指定のURLからHTMLソースを取得する
6. '# 引数  ：strURL       I URL
7. '#         strRetVal    O 取得した文字列
8. '#         isSJIS       I ソースが Shift-JIS の場合 True
9. '#         strID        I ドメイン認証が必要な場合のユーザーID
10. '#         strPass      I ドメイン認証が必要な場合のパスワード
11. '# 戻り値：True 正常、False 失敗
12. '#
13. '####################################################################################
14. Private Function GetHtmlSource(ByVal strURL As String, _
15.                               ByRef strRetVal As String, _
16.                       Optional ByVal isSJIS As Boolean, _
17.                       Optional ByVal strID As String, _
18.                       Optional ByVal strPass As String) As Boolean
20.     Dim oHttp As Object
22.     'オブジェクト変数に参照をセットします
23. On Error Resume Next
24.     Set oHttp = CreateObject("MSXML2.XMLHTTP")
25.     If (Err.Number <> 0) Then
26.         Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
27.     End If
28. On Error GoTo 0
29.     If oHttp Is Nothing Then
30.         MsgBox "XMLHTTP オブジェクトを作成できませんでした。", vbCritical
31.         Exit Function
32.     End If
34.     'ドメイン認証が必要な場合
35.     If strID <> "" Then
36.         oHttp.Open "GET", strURL, False, strID, strPass
37.     Else
38.         oHttp.Open "GET", strURL, False
39.     End If
40.     oHttp.Send
42.     '失敗した場合は関数を終了します。
43.     If (oHttp.Status < 200 Or oHttp.Status >= 300) Then Exit Function
45.     'ソースを格納します
46.     If isSJIS Then
47.         'ソースが Shift-JIS の場合
48.         strRetVal = StrConv(oHttp.responseBody, vbUnicode)
49.     Else
50.         'ソースが Unicode の場合
51.         strRetVal = oHttp.responseText
52.     End If
54.     'オブジェクト変数の参照を解放します
55.     Set oHttp = Nothing
57.     '戻り値をセットします
58.     GetHtmlSource = True
60. End Function

1. Dim strURL As String
2. Dim strID As String
3. Dim strPass As String
4. Dim strRetVal As String
6. strURL = "http://yahoo.co.jp/"
7. strID = ""
8. strPass = ""
10. If Not GetHtmlSource(strURL, strRetVal, False, strID, strPass) Then
11.     MsgBox "情報を取得できませんでした。", vbCritical
12. End If

Visual Basic (VB) のサブセット(簡易版)で、 マイクロソフト社製のスクリプト言語である。 Microsoft Windows上やInternet Information Server(IIS)上で動作する。
VBScript (Microsoft Visual Basic Scripting Edition) は VisualBasicの構文を真似てつくられた、 Microsoft Windowsのネイティブ スクリプト言語である。ランタイムとして、ASP や WSH があり、 主な用途として、

• Active Server Pages (ASP) などを使用したサーバサイドスクリプティング処理
• Windows Script Host (WSH) を利用したWindows上でのネイティブ・スクリプト
• Internet Explorerを使用したクライアントサイドスクリプティング処理
• HTML Applications(HTA)アプリケーション

が挙げられる。 ただし、WWWクライアントスクリプトとしては、対応するブラウザが Windows版のInternet Explorerだけであり、2005年現在ではほとんど使われていない。
HTAやASP、HTML中に組み込まれることが多いが 単体のスクリプトファイルとしておかれる場合、 拡張子は通常.vbsを使用する。