三流君ken3のひとりグループの掲示板

テスト結果

ken3memo — 2012-04-27T08:14:55+09:00

下記のような感じで、取得することができます。

ここから、うまく展開できるといいんだけど・・・

xxxx.csv

Microsoft (R) Windows Script Host Version 5.7

2012年 3回中山 7日（当日売）,1R,枠番,馬番,馬名,単勝,複勝,

2012年 3回中山 7日（当日売）,1R,1,1,アファーブル,3.7,1.3,-,1.8,

2012年 3回中山 7日（当日売）,1R,2,2,クリップザクロップ,43.8,7.0,-,12.3,

2012年 3回中山 7日（当日売）,1R,3,3,ジーガースズラン,179.5,34.0,-,61.7,

2012年 3回中山 7日（当日売）,1R,3,4,アドリアーネ,40.3,4.6,-,8.0,

2012年 3回中山 7日（当日売）,1R,4,5,エルトウショウ,116.6,15.6,-,28.2,

2012年 3回中山 7日（当日売）,1R,4,6,コトブキハレスガタ,15.6,3.4,-,5.7,

2012年 3回中山 7日（当日売）,1R,5,7,ピュアサクセス,62.0,9.7,-,17.4,

2012年 3回中山 7日（当日売）,1R,5,8,エビータ,78.9,11.8,-,21.3,

2012年 3回中山 7日（当日売）,1R,6,9,スターライラック,3.0,1.1,-,1.4,

2012年 3回中山 7日（当日売）,1R,6,10,パッシフローラ,6.5,1.8,-,2.8,

2012年 3回中山 7日（当日売）,1R,7,11,スギノアンフィニー,31.6,6.0,-,10.5,

2012年 3回中山 7日（当日売）,1R,7,12,ファーマジェンヌ,4.5,1.5,-,2.3,

2012年 3回中山 7日（当日売）,1R,8,13,クラウンミストラル,84.6,13.5,-,24.4,

2012年 3回中山 7日（当日売）,1R,8,14,ニンファエア,13.0,3.1,-,5.2,

2012年 3回中山 7日（当日売）,2R,枠番,馬番,馬名,単勝,複勝,

2012年 3回中山 7日（当日売）,2R,1,1,ナムーン,94.3,13.1,-,34.6,

2012年 3回中山 7日（当日売）,2R,1,2,ラブソングフォナナ,84.7,9.7,-,25.6,

2012年 3回中山 7日（当日売）,2R,2,3,ヴァップ,20.2,3.6,-,8.9,

2012年 3回中山 7日（当日売）,2R,2,4,ロマンチカ,22.4,2.1,-,4.8,

2012年 3回中山 7日（当日売）,2R,3,5,アキノセイレン,46.7,6.8,-,17.5,

2012年 3回中山 7日（当日売）,2R,3,6,ハルピュイア,14.4,2.4,-,5.7,

2012年 3回中山 7日（当日売）,2R,4,7,ベルモントフェスタ,1.7,1.1,-,1.1,

2012年 3回中山 7日（当日売）,2R,4,8,カシノアゲート,92.9,10.8,-,28.6,

2012年 3回中山 7日（当日売）,2R,5,9,クリノハルダンジ,112.8,28.4,-,76.2,

2012年 3回中山 7日（当日売）,2R,5,10,ブラックモア,24.5,3.8,-,9.4,

2012年 3回中山 7日（当日売）,2R,6,11,セレブレートサマー,120.1,13.9,-,37.0,

2012年 3回中山 7日（当日売）,2R,6,12,ダイワフランク,29.9,4.8,-,12.1,

2012年 3回中山 7日（当日売）,2R,7,13,バトルブラーヴォウ,18.7,3.2,-,7.8,

2012年 3回中山 7日（当日売）,2R,7,14,タイタンフォンテン,50.1,7.3,-,19.0,

2012年 3回中山 7日（当日売）,2R,8,15,リバティーアゲイン,3.8,1.1,-,1.7,

2012年 3回中山 7日（当日売）,2R,8,16,キャラメリゼ,43.8,4.6,-,11.7,

・

2012年 3回中山 7日（当日売）,11R,枠番,馬番,馬名,単勝,複勝,

2012年 3回中山 7日（当日売）,11R,1,1,メルシーモンサン,30.6,5.1,-,13.7,

2012年 3回中山 7日（当日売）,11R,2,2,テイエムブユウデン,46.7,7.5,-,20.5,

2012年 3回中山 7日（当日売）,11R,3,3,クランエンブレム,12.8,2.7,-,6.7,

2012年 3回中山 7日（当日売）,11R,4,4,アグネスラナップ,10.1,2.5,-,6.2,

2012年 3回中山 7日（当日売）,11R,4,5,キングジョイ,24.1,4.2,-,11.0,

2012年 3回中山 7日（当日売）,11R,5,6,コスモソユーズ,26.0,2.9,-,7.3,

2012年 3回中山 7日（当日売）,11R,5,7,バアゼルリバー,5.9,1.5,-,2.9,

2012年 3回中山 7日（当日売）,11R,6,8,トーセンオーパス,19.2,3.5,-,9.1,

2012年 3回中山 7日（当日売）,11R,6,9,マジェスティバイオ,1.7,1.1,-,1.1,

2012年 3回中山 7日（当日売）,11R,7,10,セイエイ,45.5,5.9,-,16.0,

2012年 3回中山 7日（当日売）,11R,7,11,ディアマイホース,37.2,6.3,-,17.1,

2012年 3回中山 7日（当日売）,11R,8,12,バシケーン,16.4,2.6,-,6.6,

2012年 3回中山 7日（当日売）,11R,8,13,モルフェサイレンス,80.2,10.8,-,29.9,

2012年 3回中山 7日（当日売）,12R,枠番,馬番,馬名,単勝,複勝,

2012年 3回中山 7日（当日売）,12R,1,1,ナイトオブザオペラ,6.4,2.9,-,4.5,

2012年 3回中山 7日（当日売）,12R,2,2,コスモパイレット,25.0,4.1,-,6.6,

2012年 3回中山 7日（当日売）,12R,3,3,ラヴリードリーム,19.0,3.3,-,5.2,

2012年 3回中山 7日（当日売）,12R,4,4,ジーガーウイング,60.5,27.0,-,44.5,

2012年 3回中山 7日（当日売）,12R,4,5,タンジブルアセット,3.2,1.2,-,1.4,

2012年 3回中山 7日（当日売）,12R,5,6,ウエストハーバー,9.8,4.0,-,6.4,

2012年 3回中山 7日（当日売）,12R,5,7,ナムラドリーミー,9.7,2.3,-,3.6,

2012年 3回中山 7日（当日売）,12R,6,8,アグネスティンクル,16.0,3.8,-,6.1,

2012年 3回中山 7日（当日売）,12R,6,9,ケイアイヘルメス,5.6,1.6,-,2.3,

2012年 3回中山 7日（当日売）,12R,7,10,ガリレオシチー,34.2,4.5,-,7.4,

2012年 3回中山 7日（当日売）,12R,7,11,フィールドチャペル,75.8,7.0,-,11.5,

2012年 3回中山 7日（当日売）,12R,8,12,ディアマンボウ,18.5,4.1,-,6.6,

2012年 3回中山 7日（当日売）,12R,8,13,ダイワモービル,7.1,2.1,-,3.2,

2012年 2回阪神 7日（当日売）,1R,枠番,馬番,馬名,単勝,複勝,

2012年 2回阪神 7日（当日売）,1R,1,1,メモリーシャルマン,28.9,7.7,-,21.3,

2012年 2回阪神 7日（当日売）,1R,1,2,ピエナガイア,94.7,26.5,-,75.4,

2012年 2回阪神 7日（当日売）,1R,2,3,トーブプリンセス,44.0,5.6,-,15.1,

2012年 2回阪神 7日（当日売）,1R,2,4,アリスマイン,18.5,3.4,-,8.8,

2012年 2回阪神 7日（当日売）,1R,3,5,タマモカフェゼリー,33.0,5.7,-,15.5,

2012年 2回阪神 7日（当日売）,1R,3,6,フミノアマゾン,132.8,24.6,-,70.1,

2012年 2回阪神 7日（当日売）,1R,4,7,サンビスタ,7.5,1.7,-,3.8,

2012年 2回阪神 7日（当日売）,1R,4,8,ウインアルエット,7.8,1.5,-,3.2,

2012年 2回阪神 7日（当日売）,1R,5,9,スリーアメニティー,169.3,28.0,-,79.9,

2012年 2回阪神 7日（当日売）,1R,5,10,パトリオット,14.0,3.0,-,7.8,

2012年 2回阪神 7日（当日売）,1R,6,11,パッションロード,48.8,6.6,-,18.2,

2012年 2回阪神 7日（当日売）,1R,6,12,シゲルリンゴ,21.0,3.0,-,7.6,

2012年 2回阪神 7日（当日売）,1R,7,13,マイアイステラ,71.9,9.6,-,26.7,

2012年 2回阪神 7日（当日売）,1R,7,14,ブライトポジー,23.6,3.5,-,9.2,

2012年 2回阪神 7日（当日売）,1R,8,15,フーラブライド,1.6,1.1,-,1.1,

2012年 2回阪神 7日（当日売）,1R,8,16,レディハードモア,245.2,48.9,-,140.2,

・

JRA IPAT操作関係？

ken3memo — 2012-04-15T11:39:21+09:00

最近質問が多い、JRA IPATの操作関係をまとめてみる予定・・・

1.IPAT　ログイン

http://www.ipat.jra.go.jp/ にログインする

ログイン処理

ログイン処理解説とソースコード

↑を見てください。

2.入金処理

投票する前に軍資金を入金しないといけないので、

入金処理解説とソースコード

を作成してみました。

3.情報収集

分析用の情報を集める

単勝オッズの取得解説とソースコード

↑まずは基本の単勝オッズ？の取得

4.分析・買う目を決める

上の3で集めた情報を使用して、買うレース、馬を決める

5.投票を行う

勝ち馬投票券の購入

6.結果の確認(3や4に含んでもいいけど)

結果によって、やめるか？、続けてドツボにハマるか判断する

7.自動実行、繰り返す

１～６を自動で繰り返す。そんなプログラムをみんな夢見てチャレンジする・・・

JRA IPAT 単勝オッズの取り込み

ken3memo — 2012-04-14T15:02:22+09:00

JRA IPAT でオッズの情報を取得する

事前準備、手作業で処理の順番流れを確認する

1.複数のIEから情報メニューを選択(画像をクリック)する

1.1 情報メニューを探す

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334371629

1.2 情報メニューを押す

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334371757

2.起動した情報メニュー(新しいIE)を操作する

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334371875

3.開催地を選択する(場所を選択し、決定を押す)

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334371968

4.オッズのボタンを押す

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334372054

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

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334372146

6.決定ボタンを押す

7.表示されたオッズの表を取得する

7.1 テーブルのソースを探る

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334372354

7.2 テーブルの左上のデータで確認する左上が枠番のテーブルを探す

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334372423

7.3 単勝のオッズをカンマ区切りで出力してみた

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334372520

8.繰り返す

8.1 1Rから最後まで次のレースを選択繰り返す

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334372609

8.2 開催地・競馬場単位でループさせる

http://ken3hitori.g.hatena.ne.jp/bbs/30/?from=1#1334372706

作成したソースファイル

'複数立ち上がったIEから IPAT　投票メニューを見つける

    Set objIE = getIE_URL("//www.ipat.jra.go.jp/pw_020_i.cgi")

    '見つけたかチェック
    If objIE Is Nothing Then
        wscript.Echo "エラー 投票メニューが見つかりません ログインを確認してください"
        wscript.quit
    End If   

'↑上で見つけたIPAT　投票メニューから 情報メニュー を 押す

    Call IE_A_Click(objIE, "情報メニュー")   'Aタグの 情報メニューを押す
    Set objIE = Nothing  'メニューはもう使わないので  
    WScript.Sleep  5000  '5秒待つ 1000で1秒

'次は、新しく起動した IPAT情報メインメニュー を 探す

    Set objIE = getIE_URL("//info.ipat.jra.go.jp/p/s")

    '見つけたかチェック
    If objIE Is Nothing Then
        wscript.Echo "エラー IPAT情報メインメニュー 見つかりません"
        wscript.quit
    End If   


'SELECT name=m の 開催地オプションを選択する

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

    'ループで頭から表示してみる
    Set objM = Nothing
    For n = 0 To objSELECT.Length - 1
        '※.Nameで判断する
        If objSELECT(n).Name = "m" Then
            Set objM = objSELECT(n)  '見つけたname=mを新しくオブジェクト変数に代入
            exit For  'ループを抜ける
	End If
    Next

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

    '見つけたかチェック
    If objM Is Nothing Then
        msgbox "エラー 開催地 Name=m が 見つかりません"
        wscript.quit
    End If   

'次に下のオプションを探る 競馬場・開催地を保存する

    Dim nJYO             '開催数
    Dim strJYO_NAME(10)  '開催地名前 10もいらないけど

    Dim nR               'レース数
    Dim strR_NAME(13)    'レース 通常連番だからいらないんだけど・・・ 

    nJYO = objM.OPTIONs.Length  '数を代入
 
    '中身をループで表示
    For n = 0 To objM.OPTIONs.Length - 1
        strJYO_NAME(n) = objM.OPTIONs(n).innerTEXT  '名前を代入
    Next 

    Set objM = Nothing

'競馬場・開催地でループする。 jのループ
For j = 0 To nJYO - 1  '↑上で保存したnJYOの分だけ回る

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

    'name=m の オプションのj番目を選択する 
    objSELECT.Item("m").OPTIONs(j).selected = True  '単純にj番目をselected Trueでセレクト状態にする

    '選択後、決定を押し、
    Call IE_INPUT_Click_VALUE(objIE, "決定")    '決定を押し、開催地を切り替える

    '表示を待つ※競馬場・開催地の切り替えを待つ
    Call IE_WAIT

'オッズのボタンを押す ※一番最初に見つかったボタンを押す(ここではレース無視)
    Call IE_INPUT_Click_VALUE(objIE, "オッズ")    'オッズを押し、表示を切り替える

'表示を待つ※オッズの切り替えを待つ
    Call IE_WAIT

'5.レース番号 と オッズの種類を覚える

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

    nR = objSELECT.Item("s").OPTIONs.Length  'レース数を代入
 
    '中身をループで表示 レース
    For n = 0 To objSELECT.Item("s").OPTIONs.Length - 1
        strR_NAME(n) = objSELECT.Item("s").OPTIONs(n).innerTEXT  '名前を代入
    Next 

    Set objSELECT = Nothing   '一度クリアじゃないけど、キレイにする

'ループ、頭から終わりのレースまでループさせる
  For r = 0 To nR - 1  '上↑で保存したレース数分まわる

    '改めて、レースの選択 SELECTを取得する
    'SELECTのタグを集める .getElementsByTagName("SELECT")を使用
    Set objSELECT = objIE.Document.getElementsByTagName("SELECT")   

    'レース番号を選択
    objSELECT.Item("s").SelectedIndex = r  '上から r 番目のレースを選択
    WScript.Sleep  500  '0.5秒待ってから

    '単勝オッズを選択
    objSELECT.Item("g").Value = "Ota01"  'Ota01 固定をセット(単・複・枠連オッズ)を代入
    WScript.Sleep  500  '0.5秒待ってから

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

'6.決定を押し、レースとオッズを切り替える
    Call IE_INPUT_Click_VALUE(objIE, "決定")    '決定を押し、レースとオッズを切り替える

'表示を待つ※オッズの切り替えを待つ
    Call IE_WAIT

'7.オッズの表を取得(出力する)
    'テーブルを抜き出す

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

    'ループで頭から 中身を表示してみる
    For n = 0 To objTABLE.Length - 1
        If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then
            Exit For  'ループを抜ける
        End If
    Next

    '↑みつけたテーブルからデータを抜きます
    '↓.Lengthで行と列を取り出し、２重ループさせる
    For y = 0 To objTABLE(n).Rows.Length - 1  '行のループ
        strLINE = ""  '空の文字列で初期化
        For x = 0 To objTABLE(n).Rows(y).Cells.Length - 1  '列のループ
            '.InnerTextで中身の文字列を取り出し &でつなげ ,カンマを付ける
            strLINE = strLINE & objTABLE(n).Rows(y).Cells(x).InnerText & ","
        Next  'テーブルの列 x の ループ
        '作成した文字列(1行分↑)を出力する
        strLINE = strR_NAME(r) & "," & strLINE  '頭にレース番号を追加する
        strLINE = strJYO_NAME(j) & "," & strLINE  '頭にレース番号を追加する 
        Wscript.ECHO strLINE    '一番後ろのゴミカンマは気にしない(ぉぃぉぃ)
    Next  'テーブルの行 y の ループ

  Next  'レース r のループ

  'メインメニューへ戻る(開催地を再選択したいので、メニューへ戻す)
  Call IE_INPUT_Click_VALUE(objIE, "メインメニュー")  'メニューを押し、表示を切り替える

  '表示を待つ※メニューの切り替えを待つ
  Call IE_WAIT

Next  '開催地・競馬場 j のループ 

'サブルーチンなど

'URLを受け取り、IEを探し、リターン値として返す
Function getIE_URL(sURL)

    'オブジェクトを格納する変数
    Dim objShell, objWindow
    Dim objRET  'リターン

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objRET = Nothing   'リターン値を初期化する    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If InStr(objWindow.document.URL, sURL) > 0 Then   'URLが含まれているか？
               Set objRET = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    Set getIE_URL = objRET     'リターン値をセット(値を返す)

End Function

'Aタグ
'oIE と クリックする文字列を受け取り、見つけたら.Click する
'(※InStrの手抜き処理なので、京都と東京都に注意 完全一致は InnerTEXTで=にする)
Sub IE_A_Click(oIE, sHTML)
    'Aのタグを集める .getElementsByTagName("A")を使用
    Set objA = oIE.Document.getElementsByTagName("A")

    'ループで頭から表示してみる
    For n = 0 To objA.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        'リンクを探す、ソースの文字を探す
        If InStr(objA(n).OuterHTML, sHTML) > 0 Then  '文字を見つけたら
            objA(n).Click  'クリックする
            Exit For  'ループを抜ける
        End If
    Next

    Set objA = Nothing  'オブジェクト変数解放
End Sub

'INPUTのタグ、.Valueで比べる
'oIE と クリックする値を受け取り、見つけたら.Click する
Sub IE_INPUT_Click_VALUE(oIE, sVALUE)
    'INPUTのタグを集める .getElementsByTagName("INPUT")を使用
    Set objINPUT = oIE.Document.getElementsByTagName("INPUT")

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

    Set objINPUT = Nothing

End Sub

'IEの表示完了を待つ
Sub IE_WAIT()

    WScript.Sleep  500  '0.5秒待ってから
    
    'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        WScript.Sleep  100  '0.1秒待つ 1000で1秒
    Wend

    WScript.Sleep  1500  '関数を抜ける前におまけで1.5秒待つ(ぉぃぉぃ)

End Sub

xxxx.vbs などに保存して、

Cscript xxxx.vbs > オッズ.csv

Cscriptで起動して、リダイレクトして使ってみてください。

※手抜きでオッズの表を .Echoで出力しているので、ファイルにするためにリダイレクトしてください。

テスト結果と操作動画: http://www.youtube.com/watch?v=atKqUg03sRs

テスト結果・作業動画 : http://www.youtube.com/watch?v=D7IKAJedKE0

8.2 開催地・競馬場単位でループさせる

ken3memo — 2012-04-14T12:05:06+09:00

次は、開催地、競馬場単位でループさせてみます。

場名を覚えた後にループさせてみます。

'競馬場・開催地でループする。 jのループ

For j = 0 To nJYO - 1 '↑上で保存したnJYOの分だけ回る

でループを作り、

'name=m のオプションのj番目を選択する

objSELECT.Item("m").OPTIONs(j).selected = True '単純にj番目をselected Trueでセレクト状態にする

で選択後、決定を押し、

Call IE_INPUT_Click_VALUE(objIE, "決定") '決定を押し、開催地を切り替える

'表示を待つ※競馬場・開催地の切り替えを待つ

Call IE_WAIT

1R-12Rのレース終了後、

メインメニューへ戻るのを忘れずに。

テスト結果・作業動画 : http://www.youtube.com/watch?v=D7IKAJedKE0

作成したソースファイル

'複数立ち上がったIEから IPAT　投票メニューを見つける

    Set objIE = getIE_URL("//www.ipat.jra.go.jp/pw_020_i.cgi")

    '見つけたかチェック
    If objIE Is Nothing Then
        wscript.Echo "エラー 投票メニューが見つかりません ログインを確認してください"
        wscript.quit
    End If   

'↑上で見つけたIPAT　投票メニューから 情報メニュー を 押す

    Call IE_A_Click(objIE, "情報メニュー")   'Aタグの 情報メニューを押す
    Set objIE = Nothing  'メニューはもう使わないので  
    WScript.Sleep  5000  '5秒待つ 1000で1秒

'次は、新しく起動した IPAT情報メインメニュー を 探す

    Set objIE = getIE_URL("//info.ipat.jra.go.jp/p/s")

    '見つけたかチェック
    If objIE Is Nothing Then
        wscript.Echo "エラー IPAT情報メインメニュー 見つかりません"
        wscript.quit
    End If   


'SELECT name=m の 開催地オプションを選択する

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

    'ループで頭から表示してみる
    Set objM = Nothing
    For n = 0 To objSELECT.Length - 1
        '※.Nameで判断する
        If objSELECT(n).Name = "m" Then
            Set objM = objSELECT(n)  '見つけたname=mを新しくオブジェクト変数に代入
            exit For  'ループを抜ける
	End If
    Next

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

    '見つけたかチェック
    If objM Is Nothing Then
        msgbox "エラー 開催地 Name=m が 見つかりません"
        wscript.quit
    End If   

'次に下のオプションを探る 競馬場・開催地を保存する

    Dim nJYO             '開催数
    Dim strJYO_NAME(10)  '開催地名前 10もいらないけど

    Dim nR               'レース数
    Dim strR_NAME(13)    'レース 通常連番だからいらないんだけど・・・ 

    nJYO = objM.OPTIONs.Length  '数を代入
 
    '中身をループで表示
    For n = 0 To objM.OPTIONs.Length - 1
        strJYO_NAME(n) = objM.OPTIONs(n).innerTEXT  '名前を代入
    Next 

    Set objM = Nothing

'競馬場・開催地でループする。 jのループ
For j = 0 To nJYO - 1  '↑上で保存したnJYOの分だけ回る

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

    'name=m の オプションのj番目を選択する 
    objSELECT.Item("m").OPTIONs(j).selected = True  '単純にj番目をselected Trueでセレクト状態にする

    '選択後、決定を押し、
    Call IE_INPUT_Click_VALUE(objIE, "決定")    '決定を押し、開催地を切り替える

    '表示を待つ※競馬場・開催地の切り替えを待つ
    Call IE_WAIT

'オッズのボタンを押す ※一番最初に見つかったボタンを押す(ここではレース無視)
    Call IE_INPUT_Click_VALUE(objIE, "オッズ")    'オッズを押し、表示を切り替える

'表示を待つ※オッズの切り替えを待つ
    Call IE_WAIT

'5.レース番号 と オッズの種類を覚える

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

    nR = objSELECT.Item("s").OPTIONs.Length  'レース数を代入
 
    '中身をループで表示 レース
    For n = 0 To objSELECT.Item("s").OPTIONs.Length - 1
        strR_NAME(n) = objSELECT.Item("s").OPTIONs(n).innerTEXT  '名前を代入
    Next 

    Set objSELECT = Nothing   '一度クリアじゃないけど、キレイにする

'ループ、頭から終わりのレースまでループさせる
  For r = 0 To nR - 1  '上↑で保存したレース数分まわる

    '改めて、レースの選択 SELECTを取得する
    'SELECTのタグを集める .getElementsByTagName("SELECT")を使用
    Set objSELECT = objIE.Document.getElementsByTagName("SELECT")   

    'レース番号を選択
    objSELECT.Item("s").SelectedIndex = r  '上から r 番目のレースを選択
    WScript.Sleep  500  '0.5秒待ってから

    '単勝オッズを選択
    objSELECT.Item("g").Value = "Ota01"  'Ota01 固定をセット(単・複・枠連オッズ)を代入
    WScript.Sleep  500  '0.5秒待ってから

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

'6.決定を押し、レースとオッズを切り替える
    Call IE_INPUT_Click_VALUE(objIE, "決定")    '決定を押し、レースとオッズを切り替える

'表示を待つ※オッズの切り替えを待つ
    Call IE_WAIT

'7.オッズの表を取得(出力する)
    'テーブルを抜き出す

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

    'ループで頭から 中身を表示してみる
    For n = 0 To objTABLE.Length - 1
        If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then
            Exit For  'ループを抜ける
        End If
    Next

    '↑みつけたテーブルからデータを抜きます
    '↓.Lengthで行と列を取り出し、２重ループさせる
    For y = 0 To objTABLE(n).Rows.Length - 1  '行のループ
        strLINE = ""  '空の文字列で初期化
        For x = 0 To objTABLE(n).Rows(y).Cells.Length - 1  '列のループ
            '.InnerTextで中身の文字列を取り出し &でつなげ ,カンマを付ける
            strLINE = strLINE & objTABLE(n).Rows(y).Cells(x).InnerText & ","
        Next  'テーブルの列 x の ループ
        '作成した文字列(1行分↑)を出力する
        strLINE = strR_NAME(r) & "," & strLINE  '頭にレース番号を追加する
        strLINE = strJYO_NAME(j) & "," & strLINE  '頭にレース番号を追加する 
        Wscript.ECHO strLINE    '一番後ろのゴミカンマは気にしない(ぉぃぉぃ)
    Next  'テーブルの行 y の ループ

  Next  'レース r のループ

  'メインメニューへ戻る(開催地を再選択したいので、メニューへ戻す)
  Call IE_INPUT_Click_VALUE(objIE, "メインメニュー")  'メニューを押し、表示を切り替える

  '表示を待つ※メニューの切り替えを待つ
  Call IE_WAIT

Next  '開催地・競馬場 j のループ 

'サブルーチンなど

'URLを受け取り、IEを探し、リターン値として返す
Function getIE_URL(sURL)

    'オブジェクトを格納する変数
    Dim objShell, objWindow
    Dim objRET  'リターン

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objRET = Nothing   'リターン値を初期化する    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If InStr(objWindow.document.URL, sURL) > 0 Then   'URLが含まれているか？
               Set objRET = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    Set getIE_URL = objRET     'リターン値をセット(値を返す)

End Function

'Aタグ
'oIE と クリックする文字列を受け取り、見つけたら.Click する
'(※InStrの手抜き処理なので、京都と東京都に注意 完全一致は InnerTEXTで=にする)
Sub IE_A_Click(oIE, sHTML)
    'Aのタグを集める .getElementsByTagName("A")を使用
    Set objA = oIE.Document.getElementsByTagName("A")

    'ループで頭から表示してみる
    For n = 0 To objA.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        'リンクを探す、ソースの文字を探す
        If InStr(objA(n).OuterHTML, sHTML) > 0 Then  '文字を見つけたら
            objA(n).Click  'クリックする
            Exit For  'ループを抜ける
        End If
    Next

    Set objA = Nothing  'オブジェクト変数解放
End Sub

'INPUTのタグ、.Valueで比べる
'oIE と クリックする値を受け取り、見つけたら.Click する
Sub IE_INPUT_Click_VALUE(oIE, sVALUE)
    'INPUTのタグを集める .getElementsByTagName("INPUT")を使用
    Set objINPUT = oIE.Document.getElementsByTagName("INPUT")

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

    Set objINPUT = Nothing

End Sub

'IEの表示完了を待つ
Sub IE_WAIT()

    WScript.Sleep  500  '0.5秒待ってから
    
    'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        WScript.Sleep  100  '0.1秒待つ 1000で1秒
    Wend

    WScript.Sleep  1500  '関数を抜ける前におまけで1.5秒待つ(ぉぃぉぃ)

End Sub

xxxx.vbs などに保存して、

Cscript xxxx.vbs > オッズ.csv

Cscriptで起動して、リダイレクトして使ってみてください。

※手抜きでオッズの表を .Echoで出力しているので、ファイルにするためにリダイレクトしてください。

8.1 1Rから最後まで次のレースを選択繰り返す

ken3memo — 2012-04-14T12:03:29+09:00

変数を２つ作成して、

レース番号とオッズの種類を覚えます。

Dim nR 'レース数

Dim strR_NAME(13) 'レース通常連番だからいらないんだけど・・・

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

nR = objSELECT.Item("s").OPTIONs.Length  'レース数を代入
For n = 0 To objSELECT.Item("s").OPTIONs.Length - 1
    strR_NAME(n) = objSELECT.Item("s").OPTIONs(n).innerTEXT  '名前を代入
Next

レースの数を取得したら、あとは、ループ処理で、

'ループ、頭から終わりのレースまでループさせる

For r = 0 To nR - 1 '上↑で保存したレース数分まわる

でまわし、

レースの選択、決定を繰り返しながら1R-12Rまでのオッズを出力します。

テスト結果と操作動画: http://www.youtube.com/watch?v=atKqUg03sRs

'複数立ち上がったIEから IPAT　投票メニューを見つける

    Set objIE = getIE_URL("//www.ipat.jra.go.jp/pw_020_i.cgi")

    '見つけたかチェック
    If objIE Is Nothing Then
        wscript.Echo "エラー 投票メニューが見つかりません ログインを確認してください"
        wscript.quit
    End If   

'↑上で見つけたIPAT　投票メニューから 情報メニュー を 押す

    Call IE_A_Click(objIE, "情報メニュー")   'Aタグの 情報メニューを押す
    Set objIE = Nothing  'メニューはもう使わないので  
    WScript.Sleep  5000  '5秒待つ 1000で1秒

'次は、新しく起動した IPAT情報メインメニュー を 探す

    Set objIE = getIE_URL("//info.ipat.jra.go.jp/p/s")

    '見つけたかチェック
    If objIE Is Nothing Then
        wscript.Echo "エラー IPAT情報メインメニュー 見つかりません"
        wscript.quit
    End If   


'SELECT name=m の 開催地オプションを選択する

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

    'ループで頭から表示してみる
    Set objM = Nothing
    For n = 0 To objSELECT.Length - 1
        '※.Nameで判断する
        If objSELECT(n).Name = "m" Then
            Set objM = objSELECT(n)  '見つけたname=mを新しくオブジェクト変数に代入
            exit For  'ループを抜ける
	End If
    Next

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

    '見つけたかチェック
    If objM Is Nothing Then
        msgbox "エラー 開催地 Name=m が 見つかりません"
        wscript.quit
    End If   

'次に下のオプションを探る 競馬場・開催地を保存する

    Dim nJYO             '開催数
    Dim strJYO_NAME(10)  '開催地名前 10もいらないけど

    nJYO = objM.OPTIONs.Length  '数を代入
 
    '中身をループで表示
    For n = 0 To objM.OPTIONs.Length - 1
        strJYO_NAME(n) = objM.OPTIONs(n).innerTEXT  '名前を代入
    Next 

    'テストで 0 頭を選択する ※0 1 2 3 
    objM.OPTIONs(0).selected = True   '単純にselectedプロパティをTrueでセレクト状態にする
    Call IE_INPUT_Click_VALUE(objIE, "決定")    '決定を押し、開催地を切り替える

'表示を待つ※競馬場・開催地の切り替えを待つ
    Call IE_WAIT

'オッズのボタンを押す ※一番最初に見つかったボタンを押す(ここではレース無視)
    Call IE_INPUT_Click_VALUE(objIE, "オッズ")    'オッズを押し、表示を切り替える

'表示を待つ※オッズの切り替えを待つ
    Call IE_WAIT

'5.レース番号 と オッズの種類を覚える

    Dim nR             'レース数
    Dim strR_NAME(13)  'レース 通常連番だからいらないんだけど・・・ 

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

    nR = objSELECT.Item("s").OPTIONs.Length  'レース数を代入
 
    '中身をループで表示 レース
    For n = 0 To objSELECT.Item("s").OPTIONs.Length - 1
        strR_NAME(n) = objSELECT.Item("s").OPTIONs(n).innerTEXT  '名前を代入
    Next 

    Set objSELECT = Nothing   '一度クリアじゃないけど、キレイにする

'ループ、頭から終わりのレースまでループさせる
  For r = 0 To nR - 1  '上↑で保存したレース数分まわる

    '改めて、レースの選択 SELECTを取得する
    'SELECTのタグを集める .getElementsByTagName("SELECT")を使用
    Set objSELECT = objIE.Document.getElementsByTagName("SELECT")   

    'レース番号を選択
    objSELECT.Item("s").SelectedIndex = r  '上から r 番目のレースを選択
    WScript.Sleep  500  '0.5秒待ってから

    '単勝オッズを選択
    objSELECT.Item("g").Value = "Ota01"  'Ota01 固定をセット(単・複・枠連オッズ)を代入
    WScript.Sleep  500  '0.5秒待ってから

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

'6.決定を押し、レースとオッズを切り替える
    Call IE_INPUT_Click_VALUE(objIE, "決定")    '決定を押し、レースとオッズを切り替える

'表示を待つ※オッズの切り替えを待つ
    Call IE_WAIT

'7.オッズの表を取得(出力する)
    'テーブルを抜き出す

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

    'ループで頭から 中身を表示してみる
    For n = 0 To objTABLE.Length - 1
        If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then
            Exit For  'ループを抜ける
        End If
    Next

    '↑みつけたテーブルからデータを抜きます
    '↓.Lengthで行と列を取り出し、２重ループさせる
    For y = 0 To objTABLE(n).Rows.Length - 1  '行のループ
        strLINE = ""  '空の文字列で初期化
        For x = 0 To objTABLE(n).Rows(y).Cells.Length - 1  '列のループ
            '.InnerTextで中身の文字列を取り出し &でつなげ ,カンマを付ける
            strLINE = strLINE & objTABLE(n).Rows(y).Cells(x).InnerText & ","
        Next  'テーブルの列 x の ループ
        '作成した文字列(1行分↑)を出力する
        strLINE = strR_NAME(r) & "," & strLINE  '頭にレース番号を追加する 
        Wscript.ECHO strLINE    '一番後ろのゴミカンマは気にしない(ぉぃぉぃ)
    Next  'テーブルの行 y の ループ

  Next  'レース r のループ


'サブルーチンなど

'URLを受け取り、IEを探し、リターン値として返す
Function getIE_URL(sURL)

    'オブジェクトを格納する変数
    Dim objShell, objWindow
    Dim objRET  'リターン

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objRET = Nothing   'リターン値を初期化する    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If InStr(objWindow.document.URL, sURL) > 0 Then   'URLが含まれているか？
               Set objRET = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    Set getIE_URL = objRET     'リターン値をセット(値を返す)

End Function

'Aタグ
'oIE と クリックする文字列を受け取り、見つけたら.Click する
'(※InStrの手抜き処理なので、京都と東京都に注意 完全一致は InnerTEXTで=にする)
Sub IE_A_Click(oIE, sHTML)
    'Aのタグを集める .getElementsByTagName("A")を使用
    Set objA = oIE.Document.getElementsByTagName("A")

    'ループで頭から表示してみる
    For n = 0 To objA.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        'リンクを探す、ソースの文字を探す
        If InStr(objA(n).OuterHTML, sHTML) > 0 Then  '文字を見つけたら
            objA(n).Click  'クリックする
            Exit For  'ループを抜ける
        End If
    Next

    Set objA = Nothing  'オブジェクト変数解放
End Sub

'INPUTのタグ、.Valueで比べる
'oIE と クリックする値を受け取り、見つけたら.Click する
Sub IE_INPUT_Click_VALUE(oIE, sVALUE)
    'INPUTのタグを集める .getElementsByTagName("INPUT")を使用
    Set objINPUT = oIE.Document.getElementsByTagName("INPUT")

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

    Set objINPUT = Nothing

End Sub

'IEの表示完了を待つ
Sub IE_WAIT()

    WScript.Sleep  500  '0.5秒待ってから
    
    'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        WScript.Sleep  100  '0.1秒待つ 1000で1秒
    Wend

    WScript.Sleep  1500  '関数を抜ける前におまけで1.5秒待つ(ぉぃぉぃ)

End Sub

7.3 単勝のオッズをカンマ区切りで出力してみた

ken3memo — 2012-04-14T12:02:00+09:00

目的のテーブルを

If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then

で探すことができたので、

中のデータ(テキスト)を取り出し、カンマ区切りで出力してみます。

ポイントは、

.Rows.Length で行数、

.Rows(y).Cells.Length で列数

が取得できるので、単純にループで回してみました。

ソースを見た方がはやいですねキット。

実行結果とソースを見て、アレンジしてください。

実行結果操作動画: http://www.youtube.com/watch?v=CfMnQEF09hk

ソース

'起動済みの IPAT情報メインメニュー を 探す

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           'URLをチェックする(アドレスを探す)
           If InStr(objWindow.document.URL, "info.ipat.jra.go.jp/p/s") > 0 Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー IPAT情報 オッズ画面が 見つかりません"
        wscript.quit
    End If   

'テーブルを抜き出す

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

    'Wscript.ECHO "TABLEのタグは " & objTABLE.Length & "個です。"  

    'ループで頭から 中身を表示してみる
    For n = 0 To objTABLE.Length - 1
        'Wscript.ECHO n & "番目 .id=" & objTABLE(n).id  '名前の確認
        'Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT
        If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then
            Exit For  'ループを抜ける
        End If
    Next

    '↑みつけたテーブルからデータを抜きます
    '↓.Lengthで行と列を取り出し、２重ループさせる
    For y = 0 To objTABLE(n).Rows.Length - 1  '行のループ
        strLINE = ""  '空の文字列で初期化
        For x = 0 To objTABLE(n).Rows(y).Cells.Length - 1  '列のループ
            '.InnerTextで中身の文字列を取り出し &でつなげ ,カンマを付ける
            strLINE = strLINE & objTABLE(n).Rows(y).Cells(x).InnerText & ","
        Next
        '作成した文字列(1行分↑)を出力する
        Wscript.ECHO strLINE    '一番後ろのゴミカンマは気にしない(ぉぃぉぃ)
    Next

実行

Cscript TEST.VBS > 結果.txt

などで、実行させてテストしてみてください。

7.2 テーブルの左上のデータで確認する左上が枠番のテーブルを探す

ken3memo — 2012-04-14T12:00:23+09:00

テーブルの左上が枠番となっているテーブルを探したかったので、

Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT

みたいな感じて、

.Rows(0)で１行目、

.Cells(0)で１列目

の

.InnerTEXTで中の文字を取得できるので、

If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then

で判断してみました。

おまけで、

Wscript.ECHO objTABLE(n).Rows(2).Cells(1).InnerTEXT

Wscript.ECHO objTABLE(n).Rows(2).Cells(2).InnerTEXT

Wscript.ECHO objTABLE(n).Rows(2).Cells(3).InnerTEXT

を表示して、テストしてみました。

テスト結果操作動画: http://www.youtube.com/watch?v=Ii42c0UBgdE

'起動済みの IPAT情報メインメニュー を 探す

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           'URLをチェックする(アドレスを探す)
           If InStr(objWindow.document.URL, "info.ipat.jra.go.jp/p/s") > 0 Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー IPAT情報 オッズ画面が 見つかりません"
        wscript.quit
    End If   

'テーブルを抜き出す

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

    Wscript.ECHO "TABLEのタグは " & objTABLE.Length & "個です。"  

    'ループで頭から 中身を表示してみる
    For n = 0 To objTABLE.Length - 1
        Wscript.ECHO n & "番目 .id=" & objTABLE(n).id  '名前の確認
        Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT
        If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then
            Exit For  'ループを抜ける
        End If
    Next

    '↑みつけたテーブルからデータを抜きます
    Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT
    Wscript.ECHO objTABLE(n).Rows(1).Cells(2).InnerTEXT
    Wscript.ECHO objTABLE(n).Rows(2).Cells(1).InnerTEXT
    Wscript.ECHO objTABLE(n).Rows(2).Cells(2).InnerTEXT
    Wscript.ECHO objTABLE(n).Rows(2).Cells(3).InnerTEXT
    Wscript.ECHO objTABLE(n).Rows(2).Cells(4).InnerTEXT

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

7.1 テーブルのソースを探る

ken3memo — 2012-04-14T11:59:14+09:00

テーブルのソースを確認したかったので、

表示済みのIEを探し、

.getElementsByTagName("TABLE")を使用して、テーブルを集めて、

Set objTABLE = objIE.Document.getElementsByTagName("TABLE")

.Lengthで個数のチェック、

中身(.OuterHTML)をWscript.ECHOで出力してみました。

操作・確認手順の動画 : http://www.youtube.com/watch?v=gp64Z5XLte4

'起動済みの IPAT情報メインメニュー を 探す

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           'URLをチェックする(アドレスを探す)
           If InStr(objWindow.document.URL, "info.ipat.jra.go.jp/p/s") > 0 Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー IPAT情報 オッズ画面が 見つかりません"
        wscript.quit
    End If   

'テーブルを抜き出す

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

    Wscript.ECHO "TABLEのタグは " & objTABLE.Length & "個です。"  

    'ループで頭から 中身を表示してみる
    For n = 0 To objTABLE.Length - 1
        Wscript.ECHO n & "番目 .id=" & objTABLE(n).id  '名前の確認
        Wscript.ECHO objTABLE(n).OuterHTML
    Next

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

4番目 .id=








枠番
馬番
馬名
単勝
複勝





5.レースの選択と種類(単勝や馬連、、)を選択する
ken3memo — 2012-04-14T11:55:46+09:00

		
			画面がオッズの画面に切り替わったら、
			テストで、
			レース番号を選択(テストで11Rを選択)
			オッズの種類(一番上の 単・複 を選択)
			してまみす。





			↑上からn番目 で SELECTタグを選択するなら、
			.SelectedIndex = 99
			でOKです。
			もうひとつ、値 valueがわかっているなら、
			直接 SELECTタグの値 .Valueに代入するのもアリかなぁ。
			無駄に長い解説 : http://www.youtube.com/watch?v=ElG3fOsmCuM
			
			↑よりも、ソース↓をみたほうが速いか・・
'レース番号 と オッズの種類を選択する
'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

			


			これで、やっと、表の表示まで来たので、
			あとは、
			7.表示されたオッズの表を取得する
			かぁ・・・まだまだ、先は長いかなぁ。。。
		


4.オッズのボタンを押す
ken3memo — 2012-04-14T11:54:14+09:00

		
			本当は、レース番号のオッズボタンを押すのが正しいと思いますが、
			ここでは、一番初めに見つけた オッズ の ボタンを押してみます。
			※1Rに決め打ちして、オッズの画面に切り替える
			処理としては、同じように
			.getElementsByTagName("INPUT")で集めて、
			Set objINPUT = objIE.Document.getElementsByTagName("INPUT")
			ループを作り、
			If objINPUT(n).Value = "オッズ" Then
			※.valueで値を見て判断、.Clickしただけです。。。
			操作・テスト動画 : http://www.youtube.com/watch?v=TlR-6dTYiuY
			
'オッズのボタンを押す ※一番最初に見つかったボタンを押す(ここではレース無視)

    '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

'表示を待つ※オッズの切り替えを待つ
    'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        WScript.Sleep  100  '0.1秒待つ 1000で1秒
    Wend


		


3.開催地を選択する SELECTタグの競馬場を選択し決定を押す
ken3memo — 2012-04-14T11:52:48+09:00

		
			競馬場 開催地 選択のソースを見ると









		






 

※↑改行位置変更
となっているので、
name=m の SELECTタグのOPTIONを選択 selected 状態にして決定を押し、開催地を変更します。
3.1 SELECTタグを集める
name=m が 複数あるので、
まず、SELECT タグを集めてから、name=mを探してみます。
Set objSELECT = objIE.Document.getElementsByTagName("SELECT")
で、集めると、
objSELECT.Length で 個数がわかるので、
ループで回し、.Nameが ="m" の SELECTタグを見つけます。
For n = 0 To objSELECT.Length - 1
'※.Nameで判断する
If objSELECT(n).Name = "m" Then
Set objM = objSELECT(n)  '見つけたname=mを新しくオブジェクト変数に代入
3.2 OPTIONを選択 開催地の選択
'次に下のオプションを探る
オプションの数は objM.OPTIONs.Length
と、
これも似たような感じで、.OPTIONs.Lengthで知ることができます。
'今回は使わなかったけど、中身をループで表示
For n = 0 To objM.OPTIONs.Length - 1
    Wscript.ECHO n & "番目 .InnerTEXTは " & objM.OPTIONs(n).innerTEXT
Next 
で、確認するといいかも。
テストで 3番目(2)を選択してみました  
objM.OPTIONs(2).selected = True   '単純にselectedプロパティをTrueでセレクト状態にする
※0 1 2 3なので、(2)のセレクト状態 .selected を True にしただけです。
3.3 決定 を 押し、開催地を変更する
これも、同じように(もう、いいかげんなれましたか？)
INPUTのタグを集める .getElementsByTagName("INPUT")を使用
Set objINPUT = objIE.Document.getElementsByTagName("INPUT")
で、集めて、
objINPUT.Length の 数だけ回して、.Value 値を確認して、.Clickしてみました。  
決定ボタンを.Valueで探してから、.Clickしてみました。
    'ループで頭から表示してみる
    For n = 0 To objINPUT.Length - 1
        '※.valueで値を見る
        If objINPUT(n).Value = "決定" Then
            objINPUT(n).Click  '決定のボタンを押す
            exit For  'ループを抜ける
	end If
    Next
操作結果と解説動画
いつもの 操作動画と解説動画です。
テスト動画 : http://www.youtube.com/watch?v=gzkfBEEsRn0
テストのソースコード
競馬場・開催地の選択、テストのソースコードです。
'またまた、新しく起動した IPAT情報メインメニュー を 探す

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If objWindow.document.URL = "https://info.ipat.jra.go.jp/p/s" Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー IPAT情報メインメニュー 見つかりません"
        wscript.quit
    End If   

'SELECT name=m の 開催地オプションを選択する

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

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

    'ループで頭から表示してみる
    Set objM = Nothing
    For n = 0 To objSELECT.Length - 1
        '※.Nameで判断する
        If objSELECT(n).Name = "m" Then
            Set objM = objSELECT(n)  '見つけたname=mを新しくオブジェクト変数に代入
            exit For  'ループを抜ける
	End If
        'Wscript.ECHO n & "番目 .Name=" & objSELECT(n).Name  '名前の確認
        'Wscript.ECHO objSELECT(n).OuterHTML
    Next

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

    '見つけたかチェック
    If objM Is Nothing Then
        msgbox "エラー 開催地 Name=m が 見つかりません"
        wscript.quit
    End If   

'次に下のオプションを探る

    Wscript.ECHO "オプションの数は" & objM.OPTIONs.Length
    '中身をループで表示
    For n = 0 To objM.OPTIONs.Length - 1
        Wscript.ECHO n & "番目 .InnerTEXTは " & objM.OPTIONs(n).innerTEXT
    Next 

    'テストで 3番目(2)を選択する ※0 1 2 3 
    objM.OPTIONs(2).selected = True   '単純にselectedプロパティをTrueでセレクト状態にする

'決定を押し、開催地を切り替える

    '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

2.起動した情報メニュー(新しいIE)を操作する
ken3memo — 2012-04-14T11:51:15+09:00

		
			IPAT情報メインメニュー
			https://info.ipat.jra.go.jp/p/s
			を探します。
			また、馬鹿の一つ覚えで
			CreateObject("Shell.Application")
			から探ってみました。
			おまけで、みつけたIEのFORMタグを表示してみました。
			操作動画: http://www.youtube.com/watch?v=dwNQaLV3xD0
			
			
コード

'またまた、新しく起動した IPAT情報メインメニュー を 探す

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If objWindow.document.URL = "https://info.ipat.jra.go.jp/p/s" Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー IPAT情報メインメニュー 見つかりません"
        wscript.quit
    End If   

'テストでフォームを表示 FORMを探す

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

    'ループで頭から表示してみる
    For n = 0 To objFORM.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        Wscript.ECHO objFORM(n).OuterHTML
    Next

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


		


1.2 情報メニューを押す
ken3memo — 2012-04-14T11:49:17+09:00

		
			上で見つけた、IEから、情報メニューを押したかったので、
			.getElementsByTagName("A")
			で、
			リンクのAタグを集めて、
			.OuterHTMLで中身のソースを確認、
			中に、情報メニューがあるか？(InStr関数で探し)
			If InStr(objA(n).OuterHTML, "情報メニュー") > 0 Then
			で判断してみました。
			操作動画 : http://www.youtube.com/watch?v=w5KsIonPHZ0
			
			
コード

'↑上で見つけたIPAT　投票メニューから 情報メニュー を 押す

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

    'ループで頭から表示してみる
    For n = 0 To objA.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        '情報メニューのリンクを探す、ソースの文字を探す
        If InStr(objA(n).OuterHTML, "情報メニュー") > 0 Then
            objA(n).Click  'クリックする
            Exit For  'ループを抜ける
        End If
    Next

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


		


1.1 情報メニューを探す
ken3memo — 2012-04-14T11:47:09+09:00

		
			ここから、情報メニューが表示されているIEを探して、処理を行うには？
			似ている処理、入金処理からコードをコピーして使ってみます(ぉぃぉぃ)
			'シェルのオブジェクトを作成する
			Set objShell = CreateObject("Shell.Application")
			ここから、
			For Each objWindow In objShell.Windows
			で回して、
			TypeNameでHTMLDocumentか判断、
			If TypeName(objWindow.document) = "HTMLDocument" Then
			さらに、
			URLで判断(見つけてみました。)
			If objWindow.document.URL = "https://www.ipat.jra.go.jp/pw_020_i.cgi" Then
			操作動画: http://www.youtube.com/watch?v=7prqu0Ty6gA
			
			
ソースコード

			ソースコード
'複数立ち上がったIEから IPAT　投票メニューを見つける

    'オブジェクトを格納する変数
    Dim objShell, objWindow
    Dim objIE 

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If objWindow.document.URL = "https://www.ipat.jra.go.jp/pw_020_i.cgi" Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー 投票メニューが見つかりません"
        wscript.quit
    End If   


		


本 2012/04/12
ken3memo — 2012-04-12T00:40:16+09:00

		
			
			４月、新たなスタート、、、
			いい出会いがあるといいんだろど...
			
			本の売れ筋・・といっても、いつものランキングを抜いただけ・・・
			
プログラミング 関係の書籍を探す(紹介します)

			



情報を取得したい「年次・回次・競馬場・日次」を選択して
ください。





			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			


			
			
			
			
			
			
			
			
			
			
			


			
			
			
			
			
			


		






			
			 
			

			[4274068560]-
			アジャイルサムライ－達人開発者への道－
			[4798017973]-
			Excel VBAのプログラミングのツボとコツがゼッタイにわかる本―最初からそう教えてくれればいいのに!Excel2007/2003対応
			[4899772998]-
			Xcode 4ではじめるObjective-Cプログラミング
			[4048862588]-
			HTML5とJavaScriptでスマートフォンゲーム作成！ ゼロからはじめるenchant.js入門【公式ガイド】
			[4881666606]-
			デジ絵を簡単マスター ペイントツールSAI スーパーテクニック (CDROM付)
			[4274067904]-
			新版 プロジェクトマネジメント標準 PMBOK入門
			

			

			
データベース 関係の書籍を探す(紹介します)

			

			
			 
			

			[4774150207]-
			Webエンジニアのための データベース技術[実践]入門 (Software Design plus)
			[4881667602]-
			FileMaker Pro 11 スーパーリファレンス for Windows&Macintosh
			[4798118818]-
			SQL ゼロからはじめるデータベース操作 (CD-ROM付) (プログラミング学習シリーズ)
			[4797361840]-
			【オラクル認定資格試験対策書】ORACLE MASTER Bronze［Bronze DBA11g］（試験番号：1Z0-018）完全詳解＋精選問題集 (オラクルマスタースタディガイド)
			[4798021237]-
			Accessのデータベースのツボとコツがゼッタイにわかる本―最初からそう教えてくれればいいのに!Access2007/2003対応
			[4798124702]-
			達人に学ぶDB設計 徹底指南書 初級者で終わりたくないあなたへ
			

			

			
ソフト開発 関係の書籍を探す(紹介します)

			

			
			 
			

			[4534031092]-
			図解でわかる ソフトウェア開発のすべて―構造化手法からオブジェクト指向まで
			[4798115827]-
			ソフトウェア開発者採用ガイド
			[4774126535]-
			ソフトウェア開発 で伸びる人、伸びない人 (技評SE新書002)
			[427413279X]-
			ソフトウェア開発 (IT Text)
			[4817192240]-
			組込みソフトウェア開発はなぜうまくいかないのか―開発現場の泥沼から抜け出すために
			[4774110752]-
			実践的ソフトウェア開発工程管理
			

			

			
SQL総合 関係の書籍を探す(紹介します)

			

			
			 
			

			[4781910246]-
			リレーショナルデータベース入門―データモデル・SQL・管理システム (Information&Computing)
			[4563015571]-
			やさしい情報検索とリレーショナル・データベース―情報検索の技術、SQL、Accessの活用
			[4774126179]-
			これだけはおさえたい データベース基礎の基礎 -設計と運用の基本からSQLの書き方まで-
			[4797344385]-
			基礎からのMySQL [基礎からのシリーズ] (プログラマの種シリーズ)
			[4798115541]-
			やさしく学ぶオラクルマスター Bronze 11g SQL基礎I
			[4797344989]-
			明快入門SQL [林晴比古実用マスターシリーズ]
			

			

			
人気 関係の書籍を探す(紹介します)

			

			
			 
			

			[4163749209]-
			超常現象の科学　なぜ人は幽霊が見えるのか
			[4087860086]-
			成功者のボディコントロール　驚異の『吉川メソッド』ダイエット
			[4562047801]-
			中国スパイ秘録: 米中情報戦の真実
			[4121020707]-
			ルポ 生活保護―貧困をなくす新たな取り組み (中公新書)
			[4387090332]-
			読めますか?小学校で習った漢字
			[4093965021]-
			「気づき」の幸せ
			

			

			
		



2012年04月
ken3memo — 2012-04-12T00:39:16+09:00

		
			４月、新たなスタート、、、
			いい出会いがあるといいんだろど...
		



JRA IPAT 入金処理
ken3memo — 2012-03-31T09:17:44+09:00

		
			JRA IAPT の 入金処理にチャレンジした記録です。
			蛇足や回り道、脱線・・などありますが、よろしくお願いします。
			プログラム、処理を作成する前に実際の流れ、まず現物の動きを確認します。
			実際の操作動画 http://www.youtube.com/watch?v=q7e0v5HawiA
			
			
1.IPAT 投票メニューから

			
			入出金メニューのボタンを押す
			コード・操作の解説:1.1 VBS から 表示されているIEを探してみる 
			コード・操作の解説:1.2 リンク先を調べる Aタグをチェックする 
			


			
2.新しいウインドウが起動して

			
			入金指示 を [選択]
			コード・操作の解説:2. 入出金メニュー 入金指示 name=MENU1 の ボタンを押す
			

			


			
3.新しい画面に切り替わったら

			
			


			入金指示で 金額を入れ、[確認]ボタンを押す
			コード・操作の解説:3.入金指示 金額を入れて、確認ボタンを押す
			


			
4.切り替わった次の画面 確認画面で

			
			暗証番号を入力して[実行を押す]
			コード・操作の解説:4. 暗証番号入力 5.confirm確認メッセージを無効にする
			
5.ダイアログでOKを押す

			すると、
			※入金します よろしいですか？
			とメッセージボックス
			
			OK キャンセル
			(OKを押す)
			コード・操作の解説:4. 暗証番号入力 5.confirm確認メッセージを無効にする
			※上の４と同じリンク先です
			
6.入金指示結果が表示される。

			
			


			確認して、メインメニューへ戻る
			


			
7.終了する

			
			終了ボタンを押す
			


			
8.閉じる

			
			


			閉じるボタンを押す
			
現在作成しかけのソース

			前回のログイン後に処理を走らせて、テストしてみてください。
			※xxxx.vbs と 拡張子VBSで保存。

strPassword = ""
'パスワード保存したくない人向け、頭で入力させる
If strPassword = "" Then
    strPassword = InputBox("暗証番号を入れてください")
End If


'複数立ち上がったIEから IPAT　投票メニューを見つける

    'オブジェクトを格納する変数
    Dim objShell, objWindow
    Dim objIE 

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If objWindow.document.URL = "https://www.ipat.jra.go.jp/pw_020_i.cgi" Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー 投票メニューが見つかりません"
        wscript.quit
    End If   

'↑上で見つけたIPAT　投票メニューから 入出金メニュー を 押す

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

    'ループで頭から表示してみる
    For n = 0 To objA.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        '入出金メニューのリンクを探す、ソースの文字を探す
        If InStr(objA(n).OuterHTML, "入出金メニュー") > 0 Then
            objA(n).Click  'クリックする
            Exit For  'ループを抜ける
        End If
    Next

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

'表示を待つ
    Wscript.sleep 5000  '5秒待つ


'今度は、入出金メニュー(新しく開いたIE)を探す

    Dim objIE_I  '入出金メニュー用

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE_I = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If InStr(objWindow.document.Title, "入出金メニュー") > 0 Then
               Set objIE_I = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE_I Is Nothing Then
        msgbox "エラー 入出金メニューが見つかりません"
        wscript.quit
    End If   

'入金指示 選択 の ボタン を 押す

    objIE_I.document.all("MENU1").Click

'画面の切り替わり 表示を待つ
    Wscript.sleep 5000  '5秒待つ


'金額を入れて 確認ボタンを押す
    'input type="text" name="NYUKIN" maxlength="9" size="25" value=""> 円
    objIE_I.document.all("NYUKIN").Value = 500  '値をセットする

    'input style="width:80px;" type="BUTTON" name="INPUT" value="確　認" onClick
    objIE_I.document.all("INPUT").Click    'クリックする

'画面の切り替わり 表示を待つ
Wscript.sleep 5000  '5秒待つ

'暗証番号を入れ、実行する

    '確認メッセージで はい を 答えたい ≠≒ 確認を必ず はい(true)にする
    Dim ele 'エレメント(script)を1つ作りたいので。
    Set ele = objIE_I.document.createElement("SCRIPT")
    
    ele.Type = "text/javascript"
    ele.Text = "function confirm() { return true; }"  'コードをセットする
    
    Call objIE_I.document.body.appendChild(ele)  '上↑で作った要素・エレメントをドキュメントに挿入する
    '※行儀が悪い方法だが、
    'javascriptの同名関数は標準関数よりも後から追加したユーザー関数がエラーにならないで走ることを利用

    'input type="PASSWORD" size="9" maxlength="4" name="PASS_WORD" value="" 
    objIE_I.document.all("PASS_WORD").Value = strPassword   '暗証番号をセット

    '実行 input style="width:80px;" type="BUTTON" name="EXEC" value="実　行"
    objIE_I.document.all("EXEC").Click    '実行ボタンをクリック

'ここから、閉じる処理など、入金処理を閉じないとなぁ・・・



		



4. 暗証番号入力 5.confirm確認メッセージを無効にする
ken3memo — 2012-03-31T09:09:13+09:00

		
			暗証番号入力後、実行ボタンを押すと
			入金します。よろしいですか？
			と
			confirm で 確認メッセージが表示されます。
    if (errFlg == 0) {
      if (cmd == "EXEC") {
        if (confirm("入金します。よろしいですか？")) {
          frm.EXEC.disabled = true;
        } else {
          return false;
        }
      }
      frm.submit();


			※これが、意外とやっかいで・・・
			試行錯誤・テスト結果→ http://www.youtube.com/watch?v=SHyTGwhkNyI
			
			
小細工 同名関数を挿入して、常に はい を返す

			javascriptの同名関数は標準関数よりも
			後から追加したユーザー関数がエラーにならないで走ることを利用して、
			ニセのconfirm関数(何もしないで常にtrueを返す)を挿入する
    '確認メッセージで はい を 答えたい ≠≒ 確認を必ず はい(true)にする
    Dim ele 'エレメント(script)を1つ作りたいので。
    Set ele = objIE_I.document.createElement("SCRIPT")
    
    ele.Type = "text/javascript"
    ele.Text = "function confirm() { return true; }"  'コードをセットする
    
    Call objIE_I.document.body.appendChild(ele)  '上↑で作った要素・エレメントをドキュメントに挿入する
    '※行儀が悪い方法だが、
    'javascriptの同名関数は標準関数よりも後から追加したユーザー関数がエラーにならないで走ることを利用


			昔の実験元
			
			VBA IE操作 ニセのpromptとalert() を 挿入する そんな実験
			http://d.hatena.ne.jp/ken3memo/20100428/1272467509
			http://www.youtube.com/watch?v=k6XIeMITqDg
			
			
			も合せてみてください。
			
暗証番号を入力して、実行ボタンを押す

			データの入力エリア input type="PASSWORD"
			と
			実行ボタンは type="BUTTON" name="EXEC"
			だったので、
			document.all("名前").Value で値、.Clickでボタンクリックしてみました。
    'input type="PASSWORD" size="9" maxlength="4" name="PASS_WORD" value="" 
    objIE_I.document.all("PASS_WORD").Value = strPassword   '暗証番号をセット

    '実行 input style="width:80px;" type="BUTTON" name="EXEC" value="実　行"
    objIE_I.document.all("EXEC").Click    '実行ボタンをクリック

			


			
完成した 入金処理のソース

			金額や暗証番号の受け取りがまだだけど
			(固定の金額、固定の番号)
			下記のような感じで、コードを書きました。

strPassword = ""
'パスワード保存したくない人向け、頭で入力させる
If strPassword = "" Then
    strPassword = InputBox("暗証番号を入れてください")
End If


'複数立ち上がったIEから IPAT　投票メニューを見つける

    'オブジェクトを格納する変数
    Dim objShell, objWindow
    Dim objIE 

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If objWindow.document.URL = "https://www.ipat.jra.go.jp/pw_020_i.cgi" Then
               Set objIE = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE Is Nothing Then
        msgbox "エラー 投票メニューが見つかりません"
        wscript.quit
    End If   

'↑上で見つけたIPAT　投票メニューから 入出金メニュー を 押す

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

    'ループで頭から表示してみる
    For n = 0 To objA.Length - 1
        '※.InnerHTMLじゃなくて、.OuterHTMLでAの全体を見る
        '入出金メニューのリンクを探す、ソースの文字を探す
        If InStr(objA(n).OuterHTML, "入出金メニュー") > 0 Then
            objA(n).Click  'クリックする
            Exit For  'ループを抜ける
        End If
    Next

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

'表示を待つ
    Wscript.sleep 5000  '5秒待つ


'今度は、入出金メニュー(新しく開いたIE)を探す

    Dim objIE_I  '入出金メニュー用

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE_I = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If InStr(objWindow.document.Title, "入出金メニュー") > 0 Then
               Set objIE_I = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE_I Is Nothing Then
        msgbox "エラー 入出金メニューが見つかりません"
        wscript.quit
    End If   

'入金指示 選択 の ボタン を 押す

    objIE_I.document.all("MENU1").Click

'画面の切り替わり 表示を待つ
    Wscript.sleep 5000  '5秒待つ


'金額を入れて 確認ボタンを押す
    'input type="text" name="NYUKIN" maxlength="9" size="25" value=""> 円
    objIE_I.document.all("NYUKIN").Value = 500  '値をセットする

    'input style="width:80px;" type="BUTTON" name="INPUT" value="確　認" onClick
    objIE_I.document.all("INPUT").Click    'クリックする

'画面の切り替わり 表示を待つ
Wscript.sleep 5000  '5秒待つ

'暗証番号を入れ、実行する

    '確認メッセージで はい を 答えたい ≠≒ 確認を必ず はい(true)にする
    Dim ele 'エレメント(script)を1つ作りたいので。
    Set ele = objIE_I.document.createElement("SCRIPT")
    
    ele.Type = "text/javascript"
    ele.Text = "function confirm() { return true; }"  'コードをセットする
    
    Call objIE_I.document.body.appendChild(ele)  '上↑で作った要素・エレメントをドキュメントに挿入する
    '※行儀が悪い方法だが、
    'javascriptの同名関数は標準関数よりも後から追加したユーザー関数がエラーにならないで走ることを利用

    'input type="PASSWORD" size="9" maxlength="4" name="PASS_WORD" value="" 
    objIE_I.document.all("PASS_WORD").Value = strPassword   '暗証番号をセット

    '実行 input style="width:80px;" type="BUTTON" name="EXEC" value="実　行"
    objIE_I.document.all("EXEC").Click    '実行ボタンをクリック

			


			
終わりの挨拶

			自動でログイン後に、自動入金。
			次は、オッズや情報を取得ですね。
			そして、自動投票？？？と続くのかぁ、、、
			まだまだ、依頼されたコードの完成までは先が長いですね。
		



3.入金指示 金額を入れて、確認ボタンを押す
ken3memo — 2012-03-31T09:06:17+09:00

		
			input type="text" は、 名前を指定して .Value に 値をセット
			type="BUTTON"のボタンは、名前を指定して .Click で ボタンを押しました。
			HTMLの入力項目やボタンにName=と名前が付いていると楽だなぁ・・と思いつつ。
			作成過程・テスト結果→ http://www.youtube.com/watch?v=Fqzd_nTly6k
			
			
作成したソース


'金額を入れて 確認ボタンを押す
    'input type="text" name="NYUKIN" maxlength="9" size="25" value=""> 円
    objIE_I.document.all("NYUKIN").Value = 500  '値をセットする

    'input style="width:80px;" type="BUTTON" name="INPUT" value="確　認" onClick
    objIE_I.document.all("INPUT").Click    'クリックする



			↑document.all("名前").プロパティ／メソッド って感じで、１アクション１命令でした。
			
終わりの挨拶

			金額のセットは意外と楽でした。
			次は問題の・・・確認メッセージ付きの 暗証番号の入力です。
			今回みたいにすんなり行くといいけど・・・
		



2. 入出金メニュー 入金指示 name=MENU1 の ボタンを押す
ken3memo — 2012-03-31T09:03:36+09:00

		
			新しく 開いた 入出金メニューを見ると、
			入金指示 が 選択 の ボタンになっています。
			ソースを確認すると、
			 input style="width:100px; height:30px;" type="BUTTON" name="MENU1" value="選　択" 
			         onClick="submitForm(this.form, '
			となっています。
			name="MENU1" と 名前が付いているので、名前をクリックしてみたいと思います。
			作成過程・テスト結果→ http://www.youtube.com/watch?v=_sRquYEBHcM
			
			
作成したソース

'今度は、入出金メニュー(新しく開いたIE)を探す

    Dim objIE_I  '入出金メニュー用

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")

    Set objIE_I = Nothing    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        'TypeNameでオブジェクト変数のタイプを表示する
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
           If InStr(objWindow.document.Title, "入出金メニュー") > 0 Then
               Set objIE_I = objWindow '見つけたウインドウを(IE)を代入
               Exit For   
           End IF
        End If
    Next
    Set objShell = Nothing

    '見つけたかチェック
    If objIE_I Is Nothing Then
        msgbox "エラー 入出金メニューが見つかりません"
        wscript.quit
    End If   

'入金指示 選択 の ボタン を 押す

    objIE_I.document.all("MENU1").Click


			
終わりの挨拶

			無事に、新しく立ち上がったIEを捕まえて、ボタンが押せたので、
			次は、金額を入れて、確認ボタンを押す ・・・ ですね。

三流君ken3のひとりグループの掲示板

テスト結果

JRA IPAT操作関係？

1.IPAT ログイン

2.入金処理

3.情報収集

4.分析・買う目を決める

5.投票を行う

6.結果の確認(3や4に含んでもいいけど)

7.自動実行、繰り返す

JRA IPAT 単勝オッズの取り込み

作成したソースファイル

8.2 開催地・競馬場単位でループさせる

作成したソースファイル

8.1 1Rから最後まで 次のレースを選択 繰り返す

7.3 単勝のオッズをカンマ区切りで出力してみた

ソース

7.2 テーブルの左上のデータで確認する 左上が枠番のテーブルを探す

7.1 テーブルのソースを探る

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

6.決定ボタンを押す

4.オッズのボタンを押す

3.開催地を選択する SELECTタグの競馬場を選択し決定を押す

3.1 SELECTタグを集める

3.2 OPTIONを選択 開催地の選択

3.3 決定 を 押し、開催地を変更する

操作結果と解説動画

テストのソースコード

2.起動した情報メニュー(新しいIE)を操作する

コード

1.2 情報メニューを押す

コード

1.1 情報メニューを探す

ソースコード

本 2012/04/12

プログラミング 関係の書籍を探す(紹介します)

データベース 関係の書籍を探す(紹介します)

ソフト開発 関係の書籍を探す(紹介します)

SQL総合 関係の書籍を探す(紹介します)

人気 関係の書籍を探す(紹介します)

2012年04月

JRA IPAT 入金処理

1.IPAT 投票メニューから

2.新しいウインドウが起動して

3.新しい画面に切り替わったら

4.切り替わった次の画面 確認画面で

5.ダイアログでOKを押す

6.入金指示結果が表示される。

7.終了する

8.閉じる

現在作成しかけのソース

4. 暗証番号入力 5.confirm確認メッセージを無効にする

小細工 同名関数を挿入して、常に はい を返す

暗証番号を入力して、実行ボタンを押す

完成した 入金処理のソース

終わりの挨拶

3.入金指示 金額を入れて、確認ボタンを押す

作成したソース

終わりの挨拶

2. 入出金メニュー 入金指示 name=MENU1 の ボタンを押す

作成したソース

終わりの挨拶

1.IPAT　ログイン

8.1 1Rから最後まで次のレースを選択繰り返す

7.2 テーブルの左上のデータで確認する左上が枠番のテーブルを探す

3.2 OPTIONを選択開催地の選択

3.3 決定を押し、開催地を変更する

プログラミング関係の書籍を探す(紹介します)

データベース関係の書籍を探す(紹介します)

ソフト開発関係の書籍を探す(紹介します)

SQL総合関係の書籍を探す(紹介します)

人気関係の書籍を探す(紹介します)

4.切り替わった次の画面確認画面で

小細工同名関数を挿入して、常にはいを返す

完成した入金処理のソース

3.入金指示金額を入れて、確認ボタンを押す

2. 入出金メニュー入金指示 name=MENU1 のボタンを押す