VBScriptを使って JRA IPAT の ページを表示する

あまり使っていないのですが、
VBScriptを使って JRA IPAT の ページを表示してみます。
※OS:Windows 7 だけでExcel無し、Officeは無料のオープンオフィス？の読者から質問が来たので、VBSでIE起動のテストをしてみました。

IEを表示して、INET-IDをセットする

test.vbs

    Dim objIE  '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'処理したいページを表示します。
    objIE.Navigate "http://www.ipat.jra.go.jp/"

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        WScript.Sleep  100  '0.1秒待つ 1000で1秒
    Wend
    
'INET-ID(name=inetid)にセットする。
    objIE.Document.getElementsByName("inetid")(0).Value = "S999999PC"

↑のソースを拡張子が.vbsのファイルを作成して保存実行してください。

IEの起動

    Dim objIE  '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。

表示待ち

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        WScript.Sleep  100  '0.1秒待つ 1000で1秒
    Wend

データのセット

input type="text" name="inetid" に データをセットする。

'INET-ID(name=inetid)にセットする。
    objIE.Document.getElementsByName("inetid")(0).Value = "S999999PC"

いつものテスト動画

テスト結果と作成過程の動画 http://www.youtube.com/watch?v=Ojq1Xp-fKRI です
www.youtube.com

終わりのあいさつ

いつもサンプルはExcelで作成していたのですが、
Excelが入っていない、OSだけWindowsの読者から質問が来たので、少しイタズラしてみました。
※なかなか、メモ帳でソースコードを打ち込むのは大変でした。
※※よいテキストエディターも探して、紹介しないとなぁ・・・