タイトル : Re: WebBrowserでの自動ボタンクック 投稿日 : 2008/10/08(Wed) 16:16 投稿者 : これ
> とあるサイトに自動でログインを完了させようとしています。 > 過去ログで、submitや、そうでないボタンの自動押下のサンプルコード > を参考に組んでみたのですが、どうもうまくいきません。 > javascriptも含まれているようで、その辺りの知識に疎い私にはどうにも理解が出来ませ > ん。 > InputBoxへのIDやPASSの入力は出来たのですが、ボタンを押す方法や、厚かましいのですが > サンプルコードも教えていただけると、非常に助かります。 こんにちは。 JavaScriptとかはこの際関係なくて ボタンに見えている Aタグをクリックしてあげればいいと思うので WebBrowserコントロールを使っていると仮定して 現在のドキュメントを Set doc = WebBrowser1.Document で取って Set cTags = doc.All.tags("A") ' Aタグコレクション取得 For Each oTag In cTags ' 目的のAタグかどうかの判断 If InStr(oTag.innerHTML, "<IMG height=20 alt=ログイン") > 0 Then ' プロパティの「"」が取れるみたいです oTag.Click ' Aタグをクリック! Exit For ' ループ抜ける End If Next これで 目的のAタグがクリックできるはずです。 ※もちろんReadyStateプロパティ等でページの読み込み完了は確認しておいてください ※必要な定義、参照設定等は適宜お願いします。 |