三流君 ken3のmemo置き場

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

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

JRA の検索結果:

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

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

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

新しく 開いた 入出金メニューを見ると、入金指示 が 選択 の ボタンになっています。 ソースを確認すると、 input style="width:100px; height:30px;" type="BUTTON" name="MENU1" value="選 択" onClick="submitForm(this.form, ' となっています。 name="MENU1" と 名前が付いているので、名前をクリックしてみたいと思います。作成過程・テスト結果→ http://w…

リンク先を調べる Aタグをチェックする

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

VBS から 表示されているIEを探してみる

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

JRA IPAT 入金処理 設計前、はじめに実際の流れを追う

プログラム、処理を作成する前に実際の流れ、まず現物の動きを確認します。実際の操作動画 http://www.youtube.com/watch?v=q7e0v5HawiA www.youtube.com1.IPAT 投票メニューから 入出金メニューのボタンを押す2.新しいウインドウが起動して 入金指示 を [選択]3.新しい画面に切り替わったら入金指示で 金額を入れ、[確認]ボタンを押す 4.切り替わった次の画面 確認画面で 暗証番号を入力して[実行を押す] 5.ダイアログで…

JRA IPATログインを例題に VBS で 新しいウインドウの処理を実験

JRA IPATのログイン処理で、INET-ID入力後、ログインボタンを押すと、 新しいウインドウ(IE)が立ち上がるので、 あたらしいIEを取得後、データをセットしてみます。解説の動画 http://www.youtube.com/watch?v=jqbCQEh37PI を見てください。 www.youtube.com0:00〜 新しいウインドウ(IE)を変数に取得する'シェルのオブジェクトを作成後、一番後ろを取り出す Set objShell = WScript.Crea…

JRA IPAT 時間外の判断 を .getElementsByNameと.Lengthで行う

時間外でログイン画面が出ていない時のエラー処理.getElementsByName("id or name") で オブジェクトを取得すると、 .Length で 取得したオブジェクト(エレメント)の数がわかるので、 下記のようにして、チェックしてみました。 'INET-ID(name=inetid)にセットする。 Set objINETID = objIE.Document.getElementsByName("inetid") '変数に一度セットする If objINET…

蛇足 脱線 横道 VBScript IE操作 で javaScriptを実行 Document.Script.setTimeoutをテスト

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

VBScriptを使って ログインボタンを探して押す JRA IPAT .getElementsByTagNameを使用

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

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

…criptを使って JRA IPAT の ページを表示してみます。 ※OS:Windows 7 だけでExcel無し、Officeは無料のオープンオフィス?の読者から質問が来たので、VBSでIE起動のテストをしてみました。IEを表示して、INET-IDをセットするtest.vbs Dim objIE '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.…

5連単じゃなくて5重勝単式 WIN5 かぁ、みんな好きですねぇ

…ttp://www.jra.go.jp/news/201012/120602.html ↑WIN5(ウイン ファイブ)って愛称みたいですね。 ※Win7じゃないんだ(笑)そのおかげか、IE操作の質問が多くて、いいんだか、わるいんだか・・・ (※過去データやオッズの変化かぁ、、、みんな好きですね)以上、5連単じゃなくてJRA Win5 の勘違い感想でした。 (えっ、VBAの予想ツールは無いの? ※そんなのわかっていたら(予想のロジック)、一人でこっそりと使ってますよ(ぉぃぉぃ)…

Ken3 ホームページ 目次

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



Googleを使用して検索する

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

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


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

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

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


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