JRA の検索結果:
… 問い合わせの多い JRA オッズ取得 IE操作の参照設定などを解説してみました。 ※JRA単勝オッズぐらいは取得・・と思ったが、 約二時間かかって、こんなもんかぐらいしかできなかった ぉぃぉぃ参照設定とデバッグ風景 VBA IE操作 JRA Ken3 ライブ プログラミング ・・・ - YouTube www.youtube.com ↑が配信したYouTubeライブのアーカイブです。動画で作成した、途中まで作成したテスト用のソース Sub ie_test() 'IEの表示を…
….Title = "JRAホームページ" Then '指定したURLか? ''----------------------------------------------- '************************************************* 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In…
…タンを押す方法 と JRA 本家のページから オッズを取得したい上記二つが特に多いですあとは、 あまりやったことがないOutlookの質問が比較的 多いかなIE操作で ポップアップ OK は APIの PostMessageA FindWindow で探す方法など、 私は詳しくなくて、 適切なアドバイスができなくてすみません。JRA正規のページから 競馬のオッズをEXCELシートへ 上記は 人気が出そうな良いネタ And 私のサイトは土日が弱いので ネタとしてはよさそうなので…
…Click_VALUE(objIE, "決定") '決定を押し、開催地を切り替える '表示を待つ※競馬場・開催地の切り替えを待つ Call IE_WAIT1R-12Rのレース 終了後、 メインメニューへ戻るのを忘れずに。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 8.2 開催地・競馬場単位でループさせる - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…、頭から終わりのレースまでループさせる For r = 0 To nR - 1 '上↑で保存したレース数分まわる でまわし、 レースの選択、決定を繰り返しながら1R-12Rまでのオッズを出力します。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 8.1 1Rから最後まで 次のレースを選択 繰り返す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS 繰り返し
…出力してみます。ポイントは、 .Rows.Length で 行数、 .Rows(y).Cells.Length で 列数 が取得できるので、単純にループで回してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.3 単勝のオッズをカンマ区切りで出力してみた - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .Rows .Cells .Length
…).Rows(2).Cells(2).InnerTEXT Wscript.ECHO objTABLE(n).Rows(2).Cells(3).InnerTEXT を表示して、テストしてみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.2 テーブルの左上のデータを確認する - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .Rows .Cells
…Document.getElementsByTagName("TABLE") .Lengthで個数のチェック、 中身(.OuterHTML)をWscript.ECHOで出力してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.1 テーブルのソースを探る - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .getElementsByTagName
…複・枠連オッズを代入 Set objSELECT = Nothing 'オブジェクト変数解放↑こんな感じで書くこともできるので、使ってみてください。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 5.SELECTタグ レースの選択と種類 - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS IE操作 .SelectedIndex .Value SELECTタグ
… objIE.Document.getElementsByTagName("INPUT") ループを作り、 If objINPUT(n).Value = "オッズ" Then ※.valueで値を見て判断、.Clickしただけです。。。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 4.オッズのボタンを押す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…).selected = True '単純にselectedプロパティをTrueでセレクト状態にする ※0 1 2 3なので、(2)のセレクト状態 .selected を True にしただけです。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 3.開催地を選択する SELECTタグの処理 - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS SELECTタグ
…さい。IPAT情報メインメニュー を同じように探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 2.起動した情報メニューを操作する - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…e("A") で、 リンクのAタグを集めて、 .OuterHTMLで中身のソースを確認、 中に、情報メニューがあるか?(InStr関数で探し) InStr(objA(n).OuterHTML, "情報メニュー") で判断してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 1.2 情報メニューを押す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
….Windows で回して、 TypeNameでHTMLDocumentか判断、 If TypeName(objWindow.document) = "HTMLDocument" Then さらに、 URLで判断(見つけてみました。)動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 1.1 情報メニューを探す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…/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 = Nothin…
…/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 = Nothin…
…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のタグを集…
…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のタグを集…
…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のタグを集…
…先は長いかなぁ。。。JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ は JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ http://ken3hitori.g.hatena.ne.jp/bbs/30 ↑の流れを見て、笑ってください・・・ JRA IPATを操作する他のサンプル・類似処理は、 ・JRA IPAT ログイン処理 ・JRA IPAT 入金処理 - 三流君ken3のひとりグループ です。また、VBA IE操作の解説は 三流君VB…
…0で1秒 Wend JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ は JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ http://ken3hitori.g.hatena.ne.jp/bbs/30 ↑の流れを見て、笑ってください・・・ JRA IPATを操作する他のサンプル・類似処理は、 ・JRA IPAT ログイン処理 ・JRA IPAT 入金処理 - 三流君ken3のひとりグループ です。また、VBA IE操作の解説は 三流君VB…
…info.ipat.jra.go.jp/p/s> <INPUT name=g value=Mnu01 type=hidden> <INPUT name=s value=0000000 type=hidden> <INPUT name=j value=6123500000 type=hidden> <INPUT name=w value=3e2c27747c352f23 type=hidden> <TD> <SELECT size=4 name=m> <OPTION selec…
…info.ipat.jra.go.jp/p/s を探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。操作動画: http://www.youtube.com/watch?v=dwNQaLV3xD0 www.youtube.comコード 'またまた、新しく起動した IPAT情報メインメニュー を 探す 'シェルのオブジェクトを作成する Set obj…
…ブジェクト変数解放 JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ は JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ http://ken3hitori.g.hatena.ne.jp/bbs/30 ↑の流れを見て、笑ってください・・・ JRA IPATを操作する他のサンプル・類似処理は、 ・JRA IPAT ログイン処理 ・JRA IPAT 入金処理 - 三流君ken3のひとりグループ です。また、VBA IE操作の解説は 三流君VB…
…/www.ipat.jra.go.jp/pw_020_i.cgi" Then操作動画: http://www.youtube.com/watch?v=7prqu0Ty6gA www.youtube.comソースコードソースコード '複数立ち上がったIEから IPAT 投票メニューを見つける 'オブジェクトを格納する変数 Dim objShell, objWindow Dim objIE 'シェルのオブジェクトを作成する Set objShell = CreateObject(…
…簡単な説明手作業で JRA IPT 情報メニュー オッズを押してみた そんな、プログラム作成前の確認動画です。JRA IPAT で オッズの情報を取得する事前準備、手作業で処理の順番 流れを確認する1.複数のIEから 情報メニューを選択(画像をクリック)する2.起動した情報メニュー(新しいIE)を操作する3.開催地を選択する(場所を選択し、決定を押す)4.オッズのボタンを押す5.レースの選択と種類(単勝や馬連、、3連..)を選択する6.決定ボタンを押す7.表示されたオッズの表…
…/www.ipat.jra.go.jp/ に ログインする ログイン処理 ログイン処理 解説とソースコード ↑を見てください。 2.入金処理投票する前に 軍資金を入金しないといけないので、 入金処理 解説とソースコード を作成してみました。 3.情報収集分析用の情報を集める 単勝オッズの取り込み処理を入り口に、 JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ ↑のほか、イロイロなオッズを取得して分析資料にしないとなぁ・・・ 4.分析・買う目を決める…
…して処理を行いました。小細工で同名の関数を.createElement SCRIPTで作成して、 .appendChildで追加 そんな感じです。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 confirm確認メッセージを無効にする小細工 - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 confirm 確認メッセージ 無効 .createElement SCRIPT .appendChild
…前を指定して .Click で ボタンを押しました。HTMLの入力項目やボタンにName=と名前が付いていると楽だなぁ・・と思いつつ。。。。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 .Valueで値をセット .Clickでボタンを押す JRA入出金メニュー - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 ボタン type=BUTTON .Click 金額 type=text .Value
…の付いたボタンをクリックしてみたいと思います。同じように、入出金メニュー(新しく開いたIE)を探してから、 name=MENU1 と 名前が付いているので .Clickしてみた、そんな感じてす。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 name=MENU1 の ボタンを押す JRA入出金メニュー 入金指示 - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 ボタン BUTTON .Click