VBScriptによるInternetExplorerクローラー化サンプル

#概要
InternetExplorerをVBScript経由でクローラー化するサンプルを記述する。
Google検索を自動で行い、HTMLを取得する。
職場でも安心バッチ実行できるね。

#コード

IE.bat

CScript IE.vbs > LOG.txt

IE.vbs

Option Explicit
 
Private Const URL_TARGET = "http://google.co.jp/"
Private Const TIME_MINIMUMWAIT = 1500
Private Const TIME_MAXWAIT = 3000
 
Main
 
Public Sub Main()
    Dim ie
    Dim doc
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    IENavigate ie, URL_TARGET
    
    Set doc = ie.document
    With doc
        .getElementById("gbqfq").Value = "google"
        .getElementById("gbqfba").Click
    End With
    IEWaitReady ie
    
    WScript.echo doc.Body.InnerHtml
    
    ie.Quit
    
    Set doc = Nothing
    Set ie = Nothing
End Sub
 
Public Sub IENavigate(ByRef ie, ByVal url)
    ie.navigate url
    IEWaitReady ie
    IEWaitRandom
End Sub
 
Public Sub IEWaitReady(ByRef ie)
    Do While ie.Busy = True Or ie.readyState <> 4
        WScript.Sleep 100
    Loop
    IEWaitRandom
End Sub
 
Public Sub IEWaitRandom()
    Dim milliseconds
    milliseconds = -1
    Do While milliseconds < TIME_MINIMUMWAIT
        milliseconds = Int(Rnd * TIME_MAXWAIT)
    Loop
    WScript.Sleep milliseconds
End Sub