JRA の検索結果:
…前を指定して .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 投票メニューから 入出金…
input type="text" は、 名前を指定して .Value に 値をセット type="BUTTON"のボタンは、名前を指定して .Click で ボタンを押しました。HTMLの入力項目やボタンにName=と名前が付いていると楽だなぁ・・と思いつつ。作成過程・テスト結果→ http://www.youtube.com/watch?v=Fqzd_nTly6k www.youtube.com作成したソース '金額を入れて 確認ボタンを押す 'input type="t…
新しく 開いた 入出金メニューを見ると、入金指示 が 選択 の ボタンになっています。 ソースを確認すると、 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 ↑WIN5(ウイン ファイブ)って愛称みたいですね。 ※Win7じゃないんだ(笑)そのおかげか、IE操作の質問が多くて、いいんだか、わるいんだか・・・ (※過去データやオッズの変化かぁ、、、みんな好きですね)以上、5連単じゃなくて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…