HSPTV!掲示板

ＨＰから画像リンクを自動的にクリックするスクリプトを作りたいのですが
下のスクリプトではお目当てのリンクを開けません。
どのように変えればよいでしょうか。

o = objIE("Document")
o = o("links",2)
url = o("ＨＲＥＦ")　　　＜−半角だと投稿規約にひっかかりました
exec url,16

ちゃんと実行して試せるスクリプトじゃないとどこが間違ってるのかわからないです。
提示されてる部分では特に問題ないように見えます。

楽天市場のＨＰから楽天ラッキーくじの画像リンクをクリックさせたいのですが、
下記のスクリプトでは他のリンクを表示してしまいます。
目的のリンクを開くにはどう変えてゆけばよいでしょうか。

screen 0,350,210
button gosub "IE起動",*startIE;オブジェクトID:1
button gosub "実行",*page;オブジェクトID:2

*startIE

;▼IE(InternetExplorer.Application)オブジェクトを作成
newcom objIE, "InternetExplorer.Application"
objIE("Silent") = 1
objIE("Visible") = 1
onexit *owari
stop

*page
sURL = "http://www.rakuten.co.jp/?scid=tb_gmx_ie8_bkmk"
objIE->"Navigate" sURL
gosub *busywait

o = objIE("Document")
o = o("links",2)
url = o("ｈｒｅｆ")
exec url,16
gosub *busywait
stop
*busywait
;▼ページの読み込みが終了するまで待つ
title "ページを読み込み中です。"
repeat
wait 10
if objIE("Busy")==0 : break
loop
title "ページが表示されました。"
return

*owari
delcom objIE
end

COM関係詳しくないのですが、
>o = o("links",2)
>url = o("ＨＲＥＦ")
リンク先を決め打ちで取得しているように見えます(3番目?)。
目的のリンクを探索する為の処理が必要なのではないでしょうか？

  ;一部やむをえず全角文字使用
  url="" :num=o("links") :num=int(num("length"))
  Repeat num
    link=o("links",cnt) :ｈｒｅｆ=GetPath(link("ｈｒｅｆ"),16)
    ;ｈｒｅｆに「%2Fkuji.rakuten.」を含むもので探索
    If(InStr(ｈｒｅｆ,,"%2fkuji.rakuten.")>0){url=link("ｈｒｅｆ") :Break}
  Loop
  If(url==""){/*見つからない*/ :Return}

一例としてこんな感じで取得できそうです。

774さん、ソースコードを書いていただきありがとうございます。
思ったとおりに動かす事ができました。本当にありがとうございます。