- 締切済み
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
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- yambejp
- ベストアンサー率51% (3827/7415)
ページを読み終わる前にクリックしているのでは? もしくは漢字コードが違っていて「ログイン」というキーワードにマッチしていないとか? '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、ブラウザはIE7なのですが、環境の問題でしょうか・・