5.レースの選択と種類(単勝や馬連、、)を選択する

画面がオッズの画面に切り替わったら、

テストで、
レース番号を選択(テストで11Rを選択)
オッズの種類(一番上の単・複を選択)
してまみす。

<SELECT name="s">
<OPTION value="3121210" selected>1R</OPTION>
<OPTION value="3121220">2R</OPTION>
・
・
<OPTION value="31212a0">10R</OPTION>
<OPTION value="31212b0">11R</OPTION>
<OPTION value="31212c0">12R</OPTION>
</SELECT>

<SELECT name="g">
<OPTION value="Ota01">単・複・枠連オッズ</OPTION>
<OPTION value="Oum01" selected>馬連オッズ</OPTION>
<OPTION value="Out01">馬単オッズ</OPTION>
<OPTION value="Owi01">ワイドオッズ</OPTION>
<OPTION value="Osa00">３連複オッズ</OPTION>
<OPTION value="Ost00">３連単オッズ</OPTION>
<OPTION value="Oum02">馬連オッズ（人気順）</OPTION>
<OPTION value="Out02">馬単オッズ（人気順）</OPTION>
<OPTION value="Osa02">３連複オッズ（人気順）</OPTION>
<OPTION value="Ost02">３連単オッズ（人気順）</OPTION>
<OPTION value="Den01">出馬表</OPTION>
</SELECT>

↑上からn番目で SELECTタグを選択するなら、
.SelectedIndex = 99
でOKです。

もうひとつ、値 valueがわかっているなら、
直接 SELECTタグの値 .Valueに代入するのもアリかなぁ。

無駄に長い解説 : http://www.youtube.com/watch?v=ElG3fOsmCuM
www.youtube.com

↑よりも、ソース↓をみたほうが速いか・・

'レース番号 と オッズの種類を選択する
'11Rと単・複 を テストで選択する

    'SELECTのタグを集める .getElementsByTagName("SELECT")を使用
    Set objSELECT = objIE.Document.getElementsByTagName("SELECT")

    Wscript.ECHO "SELECTのタグは " & objSELECT.Length & "個です。"  

    '11Rを選択 選択された場所を上から10番目(11個目にする)
    objSELECT.Item("s").SelectedIndex = 11 - 1  '上から 0 1 2 3... と場所を指定する

    '値がわかっているなら、値を入れる こともできます。
    objSELECT.Item("g").Value = "Ota01"  'Ota01 単・複・枠連オッズを代入

    Set objSELECT = Nothing  'オブジェクト変数解放

↑こんな感じで書くこともできるので、使ってみてください。

6.決定ボタンを押す

これは、前回と同じでいいのかなぁ？

'決定を押し、レースとオッズを切り替える

    'INPUTのタグを集める .getElementsByTagName("INPUT")を使用
    Set objINPUT = objIE.Document.getElementsByTagName("INPUT")

    Wscript.ECHO "INPUTのタグは " & objINPUT.Length & "個です。"  

    'ループで頭から表示してみる
    For n = 0 To objINPUT.Length - 1
        '※.valueで値を見る
        If objINPUT(n).Value = "決定" Then
            objINPUT(n).Click  '決定のボタンを押す
            exit For  'ループを抜ける
	end If
    Next