アマゾンの検索結果の並べ替え条件の変更の仕方について

アマゾンの検索結果の並べ替え条件を変えたいのですが、うまく出来ずに困っています。

例)URL : http://www.amazon.co.jp/s/ref=sr_pg_1?rh=n%3A561958%2Ck%3Advd&keywords=dvd&ie=UTF8&qid=1452480712&lo=dvd

処理としては、下記のことをしています。

//サンプルコードここから
IE = CreateOLEObj(“InternetExplorer.Application”)

IE.Visible = True

IE.Navigate(“http://www.amazon.co.jp/s/ref=sr_pg_1?rh=n%3A561958%2Ck%3Advd&keywords=dvd&ie=UTF8&qid=1452480712&lo=dvd”)

BusyWait(IE)

doc = IE.Document

for k=0 to doc.forms(3).elements.length-1
    ifb (pos(“select-one”,doc.forms(3).elements(k).type)0)
        break
    endif
next

//おすすめ順を選択したい場合
doc.forms(3).elements(k).selectedIndex = 1
doc.forms(3).submit

Procedure BusyWait(ie)
Sleep(0.5); repeat; Sleep(0.2); until (! ie.busy) and (ie.readyState=4); Sleep(0.5)
Fend
//サンプルコードここまで

上記の処理で、並べ替え条件の表示は「おすすめ順」に変わるのですが、実際にはおすすめ順には並べ替えがされません。
doc.forms(3).submit は、あってもなくても結果は変わりませんでした。
何か処理が足りないのだと思うのですが、そこが分かりません。

OSはWindows7 Professional 64bit、IEのバージョンは11.0.9600.18124です。

どなたか分かる方がいらっしゃったら、ご教示いただければ幸いです。

よろしくお願いいたします。

関連情報:

  1. twitterにUWSCでログインする
  2. IE.document.forms.elementsから取得できるエレメントの情報
  3. IE.document.forms.elementsに情報を入力して送信
  4. IE.document.formsから取得できるフォームの情報
  5. CSSのボタンを押したい

このエントリーを含むはてなブックマーク Buzzurlにブックマーク Yahoo!ブックマークに登録

コメント

  1. akira_542839 より:

    すいません、
        ifb (pos(“select-one”,doc.forms(3).elements(k).type)0)
    の部分ですが、<>(半角)が抜けてしまってますね。なので
    ifb (pos(“select-one”,doc.forms(3).elements(k).type))
    に修正させていただきます。こちらのほうがコードとしてもすっきりしてますね(汗
    よろしくお願いいたします。


このページの先頭へ