VBScriptでリンクをクリックしても開かない

VBScriptでリンクをクリックし新しいウィンドウで開こうとしているのですが開いてきません。
特にエラーにもならず最後まできれいに終了します。
ちなみに現在のウィンドウで開くリンクの場合はうまく開きます。

メッセージボックスではさんでnameの内容は確認できたのでClickは実行されているはずなのですが・・・何が悪いのでしょうか。

なおクリックしている部分は以下のような記述になっています。
（このリンクは現在のウィンドウなのでうまく開きます）

'''http://www.yahoo.co.jp/
For Each objLINK In objIE.Document.Links
　　If objLINK.InnerText = "ログイン" Then
　　　　objLINK.Click
　　　　Exit For
　End If
Next

No.1 回答者： yambejp 回答日時： 2010/11/19 16:53

ページを読み終わる前にクリックしているのでは？

もしくは漢字コードが違っていて「ログイン」というキーワードにマッチしていないとか？

'yahoo_login.vbs

function IEBUSY(oIE)
Do Until oIE.Busy = False
WScript.sleep(250)
Loop
end function

URL="http://www.yahoo.co.jp/"
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
set oIE=Wscript.CreateObject("InternetExplorer.application")
oIE.navigate2(URL)
oIE.visible=true

IEBUSY(oIE)

For Each objLINK In oIE.Document.Links
If objLINK.InnerText = "ログイン" Then
objLINK.Click
Exit For
End If
Next

この回答へのお礼

回答ありがとうございます。
などご指摘のようにページを読み終わる前にクリックしていたり、マッチしていなければClickの行は実行されてないことになりますが、Clickの直前にメッセージボックスを入れると表示されるので、実行はされているように思えます。
というか、
新しいウィンドウでのリンクが開かれない状態で、現行のページに読み込むリンクのURLとキーワードにだけ変えて同じプログラムを実行してみると、ちゃんとページが開かれてくるので？？？になっています。
OSはXP、ブラウザはIE７なのですが、環境の問題でしょうか・・

お礼日時：2010/11/19 17:58