JRA の検索結果:
…複・枠連オッズを代入 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
…TMLソースを取得できます。あとは、見つけたらクリックじゃないけど、 見つけるのに、InStr関数を使ったりして、見つけ、 そして、objA(n).Click でクリックしました。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 リンク先を調べ クリックする - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 .getElementsByTagName .OuterHTML InStr .Click
…タイトルとURLを確認してみました。あとは、.URLの値を比べ Set objIE = objWindow で見つけたオブジェクトをセットしただけでした。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 既に表示されているIEからURLを条件に該当するIEを探す - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 CreateObject Shell.Application document.URL
動画で三流解説動画の簡単な説明プログラム、処理を作成する前に実際の流れ、現物の動きを確認します。動画解説やテスト結果www.youtube.com 動画元: JRA IPAT 入金処理 実際の流れを確認する - YouTube 動画区分・リンク 三流君 設計段階 操作動画 JRA IPAT 入金処理 確認 テスト 現物
…6 を見てください。JRA IPATログインを例題にして、新しいウインドウ(IE)を取得してみました。と言っても、手抜きの objShell.Windows(objShell.Windows.Count - 1) を最後のウインドウと決めつけセットしただけですが...動画解説やテスト結果www.youtube.com 動画元: 三流君 IE操作 VBSでJRA-IPATログインを例題に新しいウインドウを処理 - YouTube 動画区分・リンク 三流君 IE操作 VBS JR…
…626/1309072052 を みてください ・IEの起動 ・表示待ち ・データのセットをテストしてみた。動画解説やテスト結果www.youtube.com 動画元: VBS VBScriptを使って JRA IPAT の ページを表示する - YouTube 動画区分・リンク 20110626 三流君 IE操作 VBS VBScript JRA IPAT CreateObject InternetExplorer.Application getElementsByName
…単な説明システム名:JRA IPADのページから単勝の表を取り込む概要: WebBrowserをExcel User Form に 貼り、 ログイン処理を操作しながら、 JRA IPADのページから単勝の表を取り込む。必要な環境 : Excel2003 と Windows XP SP2 + IE7 (随時、対応環境をチェックする)作業日数・費用: 開発スケジュール:↑こんな概要・要求設計だと、見積もり誤差が、、、あとあと、要求が増えないように(笑) 全体の流れやソース・解説は…
…想を練る。システム名JRA IPADのページから単勝の表を取り込む客先、ユーザーからの要望・希望を聞く 今回は(今回も)かなり、ラフな日本語で、 「JRA IPADのページから単勝の表を取り込みたい」 と、口頭で言われました。。。まぁ、まずは現物を動かして確認しますか。 ※今回、私もIPADの会員だったので、操作しながらデバッグできたので、 その点は、良かったです。現物が操作できない処理だと精神的にもツラかったり。 特に月末の振込み処理とか、CSVデータから連続振込みなど、お…
…/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 投票メニューから 入出金…