IEを操作する２

WSH VBScript

自動的にGoogleでこのブログを検索して表示するスクリプトを作った。
約には立たないけど、応用すれば役に立つもの作れそう。。。

このブログをGoogleで検索し表示する

使いかたは、ソースをコピーして拡張子「vbs」で保存してダブルクリック。

Option Explicit

Dim objIE
Dim aTag

'IEを起動する
Set objIE = CreateObject("InternetExplorer.Application")

'IEを表示する
objIE.Visible = True

'googleへ遷移する
objIE.Navigate "http://google.co.jp"

'画面表示完了まで待つ
Call waitComplete

'検索ボックスに検索ワードを入れて検索実行
objIE.document.f.q.value ="ソフトウェアエンジニアの日記"
objIE.document.f.submit

'検索結果ページ表示完了まで待つ
Call waitComplete

'検索ページのリンクを一つずつ調べてブログのURLがあればクリックさせる
For Each aTag in  objIE.document.getElementsByTagName("a")
	IF aTag = "http://d.hatena.ne.jp/y_mori/" THEN
		aTag.Click
		Exit For
	END IF
Next

Set objIE = Nothing

'--------------------------------------
'ページが完全に読み込まれるまでwaitする
'--------------------------------------
Sub waitComplete

Do Until objIE.Busy = False
   WScript.sleep(100)
Loop

Do Until objIE.Document.readyState = "complete"
   WScript.sleep(100)
Loop 

End Sub