JRA の検索結果:
新しく 開いた 入出金メニューを見ると、入金指示 が 選択 の ボタンになっています。 ソースを確認すると、 input style="width:100px; height:30px;" type="BUTTON" name="MENU1" value="選 択" onClick="submitForm(this.form, ' となっています。 name="MENU1" と 名前が付いているので、名前をクリックしてみたいと思います。作成過程・テスト結果→ http://w…
…/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 投票メニューから 入出金…
…/www.ipat.jra.go.jp/pw_020_i.cgi を 条件にIEを探してみます。 'オブジェクトを格納する変数 Dim objShell, objWindow Dim objIE 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'T…
プログラム、処理を作成する前に実際の流れ、まず現物の動きを確認します。実際の操作動画 http://www.youtube.com/watch?v=q7e0v5HawiA www.youtube.com1.IPAT 投票メニューから 入出金メニューのボタンを押す2.新しいウインドウが起動して 入金指示 を [選択]3.新しい画面に切り替わったら入金指示で 金額を入れ、[確認]ボタンを押す 4.切り替わった次の画面 確認画面で 暗証番号を入力して[実行を押す] 5.ダイアログで…
JRA IPATのログイン処理で、INET-ID入力後、ログインボタンを押すと、 新しいウインドウ(IE)が立ち上がるので、 あたらしいIEを取得後、データをセットしてみます。解説の動画 http://www.youtube.com/watch?v=jqbCQEh37PI を見てください。 www.youtube.com0:00〜 新しいウインドウ(IE)を変数に取得する'シェルのオブジェクトを作成後、一番後ろを取り出す Set objShell = WScript.Crea…
時間外でログイン画面が出ていない時のエラー処理.getElementsByName("id or name") で オブジェクトを取得すると、 .Length で 取得したオブジェクト(エレメント)の数がわかるので、 下記のようにして、チェックしてみました。 'INET-ID(name=inetid)にセットする。 Set objINETID = objIE.Document.getElementsByName("inetid") '変数に一度セットする If objINET…
…/www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。 WScript.Sleep 100 '0.1秒待つ 1000で1秒 Wend 'INET-ID(name=inetid)にセットする。 objIE.Document.getElementsByName("inetid")(0).Value = "S99999…
…/www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。 WScript.Sleep 100 '0.1秒待つ 1000で1秒 Wend 'INET-ID(name=inetid)にセットする。 objIE.Document.getElementsByName("inetid")(0).Value = "S99999…
…criptを使って JRA IPAT の ページを表示してみます。 ※OS:Windows 7 だけでExcel無し、Officeは無料のオープンオフィス？の読者から質問が来たので、VBSでIE起動のテストをしてみました。IEを表示して、INET-IDをセットするtest.vbs Dim objIE '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.…
…ttp://www.jra.go.jp/news/201012/120602.html ↑ＷＩＮ５（ウイン ファイブ）って愛称みたいですね。 ※Win7じゃないんだ（笑）そのおかげか、IE操作の質問が多くて、いいんだか、わるいんだか・・・ (※過去データやオッズの変化かぁ、、、みんな好きですね)以上、５連単じゃなくてJRA Win5 の勘違い感想でした。 (えっ、VBAの予想ツールは無いの？ ※そんなのわかっていたら(予想のロジック)、一人でこっそりと使ってますよ(ぉぃぉぃ)…
…？ 07:23 3.JRAオッズ取得を例題にデバッグ 08:17 文字化けの説明 10:00 CreateObject("htmlfile")でDocumentを作り 10:36 リンクからオッズのAタグを取り出す Option Explicit Sub test_001() Dim oDocument As Object Set oDocument = CreateObject("htmlfile") oDocument.write "<html><body>te<b>st…
