三流君 ken3のmemo置き場

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

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

InternetExplorer の検索結果:

ページを表示させ、BODYタグの中身を表示

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://oct2011.s2008day.com/test.html" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.Read…

ボタンに割り当てられたJavaScriptを実行したい。

…teObject("InternetExplorer.application") objIE.Top = 100 objIE.Left = 100 objIE.Width = 1024 objIE.Toolbar = False objIE.Visible = True 'テストで5050jpのルーレットを表示する 'ページを開く(.Navigateで表示する。) objIE.Navigate "http://www.5050.jp/game/roulette/" 'ログイン…

楽天ツールバー使用時の自動ログイン処理をVBSでテスト/デバッグ

…teObject("InternetExplorer.Application") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 'ここでは、楽天のログインページを直接呼びます objIE.Navigate "https://websearch.rakuten.co.jp/login.html?tool_id=1" 'ページの表示完了を待ちます。 While objIE.ReadyStat…

VBS で IEを使用して楽天市場にログインしてみた

…teObject("InternetExplorer.Application") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 'ここでは、楽天のログインページを直接呼びます objIE.Navigate "https://www.rakuten.co.jp/myrakuten/login.html" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4…

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

…teObject("InternetExplorer.Application", "IEMain_") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyStat…

VBA IE操作 API ShowWindowで最大化 と .FullScreen フルスクリーン表示 違いなど

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 objIE.GoHome 'ページをホームに移動する動作、メソッド objIE.FullScreen = True '画面いっぱいに表示されるので注意。 '↑意図したフルスクリーンとちょっと違うかなぁ。 'まぁ、これは、これで使う場合もあるかも。一度使ってみてください。 '終了は、Al…

VBSから起動したIEでイベント処理するには?

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 に1つ識別子を追加します。 Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_") 'オブジェクトを作成します。 ↑IE_とオブジェクト作成時に 2番目のパラメータとして任意の名前を追加します。 ※IE_だと、味気ないけど。あとは、IE_XXXXXX と イベントを記載すると実行…

回答下書き テストで数秒単位で書き変わる cyberagentfx の 値を取得してみた

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.cyberagentfx.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> …

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

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間…

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

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4…

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

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4…

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

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4…

クラスモジュール に WithEvents で IE操作のコードを書いてみた

… objIE As InternetExplorer 'Excelシートに書いたコードでイベントを拾う http://d.hatena.ne.jp/ken3memo/20100114/1263452016 で、シートのコードでWithEventsを使って、IEのイベントを拾ってました。このコードを クラスモジュールに書いて、使ってみたいと思います。http://www.ken3.org/vba/zip/IE_Class_TEST.zip ↑テストファイル(Excel2007 …

WithEventsのテスト動画 シートにコードを書く 補足

… objIE As InternetExplorer 'Excelシートに書いたコードでイベントを拾う http://d.hatena.ne.jp/ken3memo/20100114/1263452016 が動かないとクレームのメールをいただく。読者から、言われたように、そのままシートにコードを貼っても動きませんでした。 参照設定で、 □ Microsoft Internet Controls (※↑がもし見つからない場合は、Microsoft Browser Helpers…

QA20110614 IE操作 Name=が同じデータを(n)で処理とFormsを指定して処理

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://blogs.yahoo.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の…

Windows Vista IE7 CreateObjectで失敗した画像

…w.youtube.com/watch?v=mOZqePSW0kY www.youtube.comWindows Vista の IE7保護モードだと、 Set objIE = CreateObject("InternetExplorer.applicati­on") で失敗する、そんなテスト動画です。続きの対策 手前味噌の方法は http://www.ken3.org/cgi-bin/group/vba_ie7.asp で逃げ手を考えてみましたがイマイチしっくりきてません。

Windows XP IE CreateObject テスト結果

http://www.youtube.com/watch?v=IMDbGEOXp_w www.youtube.comSet objIE = CreateObject InternetExplorer.application の テストです 解説は http://www.ken3.org/cgi-bin/group/vba_ie.asp です。

VBA IE操作 .Focusでフォーカスをセットしてみた(入力エリアの移動)

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://d.hatena.ne.jp/ken3memo/20110102/1293921661" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy …

Set objINPUT = objIE.Document.all.tags("INPUT") で タグを集めてみたものの...使いにくかった(笑)

…bject 'AS InternetExplorer Dim objINPUT As Object '<INPUT 〜 のタグ Dim strHTML As String 'HTMLを入れて、画像を探す ワーク Dim i As Integer 'カウンター Dim n As Integer '上からn番目のカウンター Application.WindowState = xlMinimized 'Excelを最小化 'INPUTのタグを抜き出すテスト 'IEのオブジェクトを作…

Windows Vista IE7 + Excel2007 で起動の失敗

…teObject("InternetExplorer.application")後.Navigateしたら空白のIEができてしまい失敗したそんな画像です。 Windows Vista IE7 + Excel2007 で起動(.Navigate)の失敗ソースコードほか http://ken3-info.blog.ocn.ne.jp/code_gomibako/2008/04/windows_vista_i_d9bc.html を見て笑ってください。カテゴリ: 科学と技術タグ: …

ExcelのA列の単語を翻訳サイトにセット取得を自動で連続実行

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 100 '左上 上位置 objIE.Left = 100 '左上 左位置 '変換元の日本語が無くなるまでループ Dim Wait_Time As Date '秒数を計算するため Dim yCNT As In…

○○さんへ IEのタイトル部分にアドレスを表示させたくない

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間…

XXXXXさんへ VBAでIEを起動後に最小化したい

…teObject("InternetExplorer.application") 'IEのオブジェクトを作る >という処理をしたあと、そのobjIEを最小化したいのですが、適切なコマンドが見当たりません。 VB API ウインドウ最小化 で検索すると、CloseWindowが見つかります。 で、その関数を呼ぶだけでOKかなぁ。。。 ※単純に新規にCreateObjectで起動したIEの.hWndの値を渡しただけです。 Option Explicit '標準モジュール 頭で忘れ…

VBAサンプル097が間違っています。。。

…teObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) '文字列で指定したURLに飛ぶ objIE.Navigate "http://www.ken3.org/cgi-bin/test/test068.html" '表示終了まで待つ ※表示待ちができていない。 Do While objIE.Busy = True '何もしないループ(笑) DoEvents Loop '項目名を指…

VBA IE操作 javascript の prompt alert で処理が止まってしまうダメパターン を 紹介する

…teObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定したURLを開く Dim strURL As String 'テストのHTML置き場 'strURL = "e:\work\index.html" 'ローカルでテスト strURL = "http://ken3-info.blog.ocn.ne.jp/test/201…

VBA IE操作 ニセのpromptとalert() を 挿入する そんな実験

…teObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定したURLを開く Dim strURL As String 'テストのHTML置き場 strURL = "http://ken3-info.blog.ocn.ne.jp/objie/2010/04/0428_javascript.html" 'テストページ objIE…

ボタンにName=やidが無いので、.tagsでButtonを抜き .InnerTEXTで判断後に.Clickしてみた

はてなの 質問 http://q.hatena.ne.jp/1266074604 にどこかで見たURLが載っていたので、質問に答えてみた。(少しふざけてますが、サンプルは真剣に作りました。。。)サンプルプログラム http://www.ken3.org/vba/backno/vba097.html その人三流で情報のまとめ方がなっていないですよね今回押したいボタンには nameとかidが付いていないんですよね。 >>|html| ここ |

Dim WithEvents objIE As InternetExplorer 'Excelシートに書いたコードでイベントを拾う

… objIE As InternetExplorer 'イベント拾いたいので Dim WithEvents objNEW_IE As InternetExplorer 'でオブジェクト変数を定義して_NewWindow2で新規IEを作成、 Private Sub testMAIN() '初めの頭は普通に代入。 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.…

VBA IE操作 サイトを全選択してEXCELシートへコピーアンドペーストにチャレンジ

…teObject("InternetExplorer.application") 'IEのオブジェクトを作る ページを表示 objIE.navigate "URL文字列" '文字列でURLを渡す 全選択(CTRL+A) objIE.ExecWB 17, 0 'OLECMDID_SELECTALL = 17 全てを選択 コピー(CTRL+C) objIE.ExecWB 12, 0 'OLECMDID_COPY = 12 コピー'Excelに貼り付け Range("A1").Se…

getElementsByName が 正解で getElementByName が不正解?

…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間…

Ken3 ホームページ 目次

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



Googleを使用して検索する

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

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


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

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

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


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