IE _BeforeNavigate2イベントでPostデータを覗き見する

メルマガ発行内容

＜IE _BeforeNavigate2イベントでPostデータを覗き見する＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、読者数６人の有料メルマガから宣伝で１つサンプルを出します。

/*
 * １. 今回のキッカケ
*/

有料版のメルマガ、読者数６人まで減りました。
内容が薄いから？なんだけど・・・（オイオイ）

先週発行したメルマガからサンプルを１つダイジェストで載せます。

気に入ったら、
http://www.ken3.org/pmagmag/office/
から、登録してみてください。
よろしくお願いします。

----- こんな感じで書いてます -----
[ Microsoft Officeで作るツールと業務システム No.032 ] 2003/09/06 毎週土曜日

＜IEの送信データを覗き見する＞

こんにちは、三流プログラマーのＫｅｎ３です。

http://www.ken3.org/p/office-032.lzh
に、
今回使用した、ＩＥのイベントを探るテストプログラムが圧縮されてます。
動かしてテストしてみてください。
(Access2000 形式のMDBです。)

/*
 * １. 今日の狙い・・・
*/

今回は、ＩＥの送信データを覗き見、してみたいと思います。
なんて書いてますが、たいしたことなく、
Formなどで送信したデータを見るだけです。

/*
 * ２．フォームにWebのコントロールを貼る
*/

まず、フォームにWebのコントロールを貼ります。

まず、Accessのフォーム作成で、
挿入・ActiveXコントロールを選択します。


次に、
Microsoft Web Browser コントロールを選択します。


すると、簡単にコントロールを貼ることが出来ます。


/*
 * ３．ＩＥのイベントを探る
*/

通常、コントロールに対して、プロパティやメソッドを実行して、
操作を行います。

Private Sub cmdHOME_Click()
    Me.WebBrowser0.GoHome
End Sub

cmdHOMEとボタンのコントロールを作成後、
_Click()のクリックイベントに処理を記述してます。

記述した処理は、
Me.WebBrowser0.GoHome
Me.自分のフォーム
WebBrowser0 WebBrowserコントロール
.Gohome 初期ページへ飛ぶメソッド
を実行しただけです。

cmdHOME_Click()
は、ボタンのクリックイベントでした。
これと同様に、
WebBrowserコントロール
もイベントを持っています。

どのようなイベントがあるか、簡単な方法は、
左上のオブジェクトの選択で、
WebBrowser0(WebBrowserコントロール)
を
選択後、右上のイベントボックスをみるといろいろとあります。


↑選択のイメージ

今回は、
_BeforeNavigate2で、次のＵＲＬへ移る前のイベント、
_DocumentCompleteで、ドキュメントの完了
（_NavigateComplete2 の違い)
を探ってみます。

まず、
_BeforeNavigate2
のイベント。
このイベントは、次のＵＲＬに移る前に発生します。

Private Sub WebBrowser0_BeforeNavigate2( _
            ByVal pDisp As Object, _
            URL As Variant, _
            Flags As Variant, _
            TargetFrameName As Variant, _
            PostData As Variant, _
            Headers As Variant, _
            Cancel As Boolean)
    Debug.Print "URL:" & URL
    Debug.Print "FlagsL:" & Flags
    Debug.Print "PostData2" & StrConv(PostData, vbUnicode)
    If Len(PostData) <> 0 Then
        Me![txtSENDDATA] = StrConv(PostData, vbUnicode) '送信データのチェック
    End If
End Sub

テストのポイントは、
StrConv(PostData, vbUnicode)
と、送信データを変換して、テキストボックスにセットしてます。
このイベントが、次のＵＲＬに行く前に発生するので、
USER-NAME=%93%BD%96%BC%8A%F3%96%5D
など、通常は見えない、ＩＥがＷｅｂのＣＧＩへ送るデータを横取りしてます。

下記は、おまけのテストで、
_DocumentComplete
で、完了時にデータをセットしてます。
広告が別フレームで表示されている時も、発生して、少々うざいけど。

Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Debug.Print URL
    Debug.Print pDisp.Document.Title
    Me![txtURL] = URL
    Me![txtTITLE] = pDisp.Document.Title
    Me![txtHTML] = pDisp.Document.all(0).innerHTML
End Sub

Private Sub WebBrowser0_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Debug.Print "n:" & URL
    Debug.Print "n:" & pDisp.Document.Title
End Sub





/*
 * ３．終わりの挨拶
*/

http://www.ken3.org/p/office-032.lzh
に、
今回使用した、ＩＥのイベントを探るテストプログラムが圧縮されてます。
動かしてテストしてみてください。
(Access2000 形式のMDBです。)

いろいろとデーターを送信するページでテストしてみてください。
掲示板やアンケート、いろいろなデータを送っているのがわかると思います。

これを応用して、自動実行、ＩＥ操作記録ツールなんてのを狙っているんだけどなぁ。

次回は、もう少しマシな解説をしたいですが・・・
※できたら、世に出せるくらいのツールになるといいけど、、、

プログラム作りは簡単で面白いなぁと感じるような
解説／メールマガジンを書きたいと思ってます。

月400円は高いので、気長にヒット作を待てる人は購読続けて下さいね。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
よろしくお願いします。
※ハヤク、効果のあるツール、サンプルを作らないと、、、

ＡＢ型の変わり者、三流プログラマーのＫｅｎ３でした。

-----

-【けんぞう！】---------------------------------------------------------
転職関係、在宅プログラマー、SOHOの広告まとめました
http://www.ken3.org/etc/500yen/zaitaku.html いろいろとあるので転機の人はぜひ
登録料無料、匿名で探せるので在宅で小金稼ぎの人も見てね
~~~~~~~~~~~~~~~~
オレ様、私は、ＳＥ様だ、月給３０万以上ボーナス100万を探すのもありだよ。
私にみたいにVBA少しできるぐらいだと仕事無いよ・・・なんて冷たく、
と軽く言われても匿名なら気にならないし（笑）
逆にこんな簡単な仕事で月給27万貰えるの？って会社もあるし、世の中イロイロ。
http://www.ken3.org/etc/500yen/job.html
------------------------------------------------------------------------　

/*
 * ２．終わりの挨拶
*/

どうでしたか？
えっ、これで月400円は高いって？
ですよねぇ・・
Officeで作るツールと業務システム、、、とタイトルはリッパなんだけど、
中身がねぇ。

これなら、400円のシェアウエアを買ったほうがいいって？
ですよねぇ・・・

なんて、いつもの自分落としネタを書いておいて、

もし、興味を持った人が居たら、
http://www.ken3.org/pmagmag/office/
の下記、有料版のメルマガ、
Microsoft Officeで作るツールと業務システム 
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
発行周期 毎週土曜日(年末年始除く) 
購読料 400円/月 
Microsoft Officeを使用してツール、業務のシステムを作成（手順を解説します）
主にExcel -- Accessの連携、VBAの解説です
初心者歓迎です、有料版なので遠慮しないでドンドン質問下さい。
毎週土曜日発行サンデープログラマーの楽しみ〜プロまで役立つツールを作りたいと
思ってます。 
----

ヨロシク検討してね。
※あっ、有料版の特典が１つあった。
　有料版読者の質問には、真っ先に答えてます。
　（出来なかった質問も３人あって、たぶん解除されたんだけど・・・）

※金返せとメール来た時はショックだったけど・・・・
※無料版のほうが面白いけど、無料版を有料と思って購読してます
　とメール来たのは、複雑な心境になったけど。
　（有料版価値無いけど、無料版が役に立ったからお金払ってあげる？って感じ？）

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

評価・感想

ページフッター(リンクや広告など)

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック