三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

JRA の検索結果:

テスト JRA IPAT 4.オッズのボタンを押す

… objIE.Document.getElementsByTagName("INPUT") ループを作り、 If objINPUT(n).Value = "オッズ" Then ※.valueで値を見て判断、.Clickしただけです。。。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 4.オッズのボタンを押す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS

テスト JRA IPAT 3.開催地を選択する SELECTタグの処理

…).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タグ

テスト JRA IPAT 2.起動した情報メニューを操作する

…さい。IPAT情報メインメニュー を同じように探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 2.起動した情報メニューを操作する - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS

テスト JRA IPAT 1.2 情報メニューを押す

…e("A") で、 リンクのAタグを集めて、 .OuterHTMLで中身のソースを確認、 中に、情報メニューがあるか?(InStr関数で探し) InStr(objA(n).OuterHTML, "情報メニュー") で判断してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 1.2 情報メニューを押す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS

テスト JRA IPAT 1.1 情報メニューを探す

….Windows で回して、 TypeNameでHTMLDocumentか判断、 If TypeName(objWindow.document) = "HTMLDocument" Then さらに、 URLで判断(見つけてみました。)動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 1.1 情報メニューを探す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS

JRA IPATで情報を取得 8.2 開催地・競馬場単位でループさせる

…/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…

JRA IPATで情報を取得 8.1 1Rから最後まで 次のレースを選択 繰り返す

…/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…

JRA IPATで情報を取得 7.3 単勝のオッズをカンマ区切りで出力してみた

…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で情報を取得 7.2 テーブルの左上のデータで確認する 左上が枠番のテーブルを探す

…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で情報を取得 7.1 テーブルのソースを探る

…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のタグを集…

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

…先は長いかなぁ。。。JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ は JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ http://ken3hitori.g.hatena.ne.jp/bbs/30 ↑の流れを見て、笑ってください・・・ JRA IPATを操作する他のサンプル・類似処理は、 ・JRA IPAT ログイン処理 ・JRA IPAT 入金処理 - 三流君ken3のひとりグループ です。また、VBA IE操作の解説は 三流君VB…

JRA IPATで情報を取得 4.オッズのボタンを押す

…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…

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

…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…

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

…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で情報を取得 1.2 情報メニューを押す

…ブジェクト変数解放 JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ は JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ http://ken3hitori.g.hatena.ne.jp/bbs/30 ↑の流れを見て、笑ってください・・・ JRA IPATを操作する他のサンプル・類似処理は、 ・JRA IPAT ログイン処理 ・JRA IPAT 入金処理 - 三流君ken3のひとりグループ です。また、VBA IE操作の解説は 三流君VB…

JRA IPATで情報を取得 1.1 情報メニューを探す

…/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 IPT 情報メニュー オッズを押してみた そんな、プログラム作成前の確認動画です。JRA IPAT で オッズの情報を取得する事前準備、手作業で処理の順番 流れを確認する1.複数のIEから 情報メニューを選択(画像をクリック)する2.起動した情報メニュー(新しいIE)を操作する3.開催地を選択する(場所を選択し、決定を押す)4.オッズのボタンを押す5.レースの選択と種類(単勝や馬連、、3連..)を選択する6.決定ボタンを押す7.表示されたオッズの表…

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

…/www.ipat.jra.go.jp/ に ログインする ログイン処理 ログイン処理 解説とソースコード ↑を見てください。 2.入金処理投票する前に 軍資金を入金しないといけないので、 入金処理 解説とソースコード を作成してみました。 3.情報収集分析用の情報を集める 単勝オッズの取り込み処理を入り口に、 JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ ↑のほか、イロイロなオッズを取得して分析資料にしないとなぁ・・・ 4.分析・買う目を決める…

VBS IE操作 confirm確認メッセージを無効にする小細工

…して処理を行いました。小細工で同名の関数を.createElement SCRIPTで作成して、 .appendChildで追加 そんな感じです。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 confirm確認メッセージを無効にする小細工 - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 confirm 確認メッセージ 無効 .createElement SCRIPT .appendChild

VBS IE操作 .Valueで値をセット .Clickでボタンを押す JRA入出金メニュー

…前を指定して .Click で ボタンを押しました。HTMLの入力項目やボタンにName=と名前が付いていると楽だなぁ・・と思いつつ。。。。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 .Valueで値をセット .Clickでボタンを押す JRA入出金メニュー - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 ボタン type=BUTTON .Click 金額 type=text .Value

VBS IE操作 name=MENU1 の ボタンを押す JRA入出金メニュー 入金指示

…の付いたボタンをクリックしてみたいと思います。同じように、入出金メニュー(新しく開いたIE)を探してから、 name=MENU1 と 名前が付いているので .Clickしてみた、そんな感じてす。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 name=MENU1 の ボタンを押す JRA入出金メニュー 入金指示 - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 ボタン BUTTON .Click

VBS IE操作 リンク先を調べ クリックする

…TMLソースを取得できます。あとは、見つけたらクリックじゃないけど、 見つけるのに、InStr関数を使ったりして、見つけ、 そして、objA(n).Click でクリックしました。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 リンク先を調べ クリックする - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 .getElementsByTagName .OuterHTML InStr .Click

VBS IE操作 表示されているIEをURLを条件に探す

…タイトルとURLを確認してみました。あとは、.URLの値を比べ Set objIE = objWindow で見つけたオブジェクトをセットしただけでした。動画解説やテスト結果www.youtube.com 動画元: VBS IE操作 既に表示されているIEからURLを条件に該当するIEを探す - YouTube 動画区分・リンク 三流君 IE操作 VBS JRA IPAT テスト 試行錯誤 CreateObject Shell.Application document.URL

JRA IPAT 入金処理 実際の流れを確認する

動画で三流解説動画の簡単な説明プログラム、処理を作成する前に実際の流れ、現物の動きを確認します。動画解説やテスト結果www.youtube.com 動画元: JRA IPAT 入金処理 実際の流れを確認する - YouTube 動画区分・リンク 三流君 設計段階 操作動画 JRA IPAT 入金処理 確認 テスト 現物

三流君 IE操作 VBSでJRA-IPATログインを例題に新しいウインドウを処理

…6 を見てください。JRA IPATログインを例題にして、新しいウインドウ(IE)を取得してみました。と言っても、手抜きの objShell.Windows(objShell.Windows.Count - 1) を最後のウインドウと決めつけセットしただけですが...動画解説やテスト結果www.youtube.com 動画元: 三流君 IE操作 VBSでJRA-IPATログインを例題に新しいウインドウを処理 - YouTube 動画区分・リンク 三流君 IE操作 VBS JR…

VBS VBScriptを使って JRA IPAT の ページを表示する

…626/1309072052 を みてください ・IEの起動 ・表示待ち ・データのセットをテストしてみた。動画解説やテスト結果www.youtube.com 動画元: VBS VBScriptを使って JRA IPAT の ページを表示する - YouTube 動画区分・リンク 20110626 三流君 IE操作 VBS VBScript JRA IPAT CreateObject InternetExplorer.Application getElementsByName

03/22 VBA IE操作 単勝表取込み ラフな基本設計と詳細設計

…単な説明システム名:JRA IPADのページから単勝の表を取り込む概要: WebBrowserをExcel User Form に 貼り、 ログイン処理を操作しながら、 JRA IPADのページから単勝の表を取り込む。必要な環境 : Excel2003 と Windows XP SP2 + IE7 (随時、対応環境をチェックする)作業日数・費用: 開発スケジュール:↑こんな概要・要求設計だと、見積もり誤差が、、、あとあと、要求が増えないように(笑) 全体の流れやソース・解説は…

03/21 VBA IE操作 単勝表取込み 事前準備で現物操作

…想を練る。システム名JRA IPADのページから単勝の表を取り込む客先、ユーザーからの要望・希望を聞く 今回は(今回も)かなり、ラフな日本語で、 「JRA IPADのページから単勝の表を取り込みたい」 と、口頭で言われました。。。まぁ、まずは現物を動かして確認しますか。 ※今回、私もIPADの会員だったので、操作しながらデバッグできたので、 その点は、良かったです。現物が操作できない処理だと精神的にもツラかったり。 特に月末の振込み処理とか、CSVデータから連続振込みなど、お…

暗証番号入力 confirm確認メッセージを無効にする JRA入出金メニュー

…/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 投票メニューから 入出金…

金額を入れて、確認ボタンを押す JRA入出金メニュー 入金指示

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

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



Googleを使用して検索する

読者の声:三流君の説明・解説じゃ よくわからなかったから、Googleを使って、自分で検索します。
三流君:残念です。あっ、下記にGoogleの検索窓を設置しました。
いろいろ指定して試してみてください。

Google
探す言葉:気になる単語や,オブジェクト(Document),プロパティ(.Busy)やメソッド(.Navigate)などを入れて検索してみてください。


言語を指定:見つからない時は指定無しで探す

サイト指定:人気QAサイト や 一次情報MS本家を指定する
一次情報・二次情報まとめから探る
QAサイトの質問から探る
検索実行: ←オプション確認後に検索ボタンを押してください

期間指定:情報の鮮度も大切?
検索実行: ←オプション確認後に検索ボタンを押してください


本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)