• 締切済み

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

みんなの回答

  • yambejp
  • ベストアンサー率51% (3827/7415)
回答No.1

ページを読み終わる前にクリックしているのでは? もしくは漢字コードが違っていて「ログイン」というキーワードにマッチしていないとか? '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

hirohiroct
質問者

お礼

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