tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
WebBrowser上のスクリプトの確認用のダイアログを制御する(VB.NET) ( No.0 )  [親スレッドへ]
日時: 2013/03/31 18:58
名前: VBレスキュー(花ちゃん)

***********************************************************************************
* カテゴリー:[インターネット][][]                                                *
* キーワード:確認用のダイアログ,OKボタンをコードでクリック,javascript,Internet   *
***********************************************************************************
タイトル : WebBrowserで確認ダイアログの操作
記 事 No : 8274
投 稿 日 : 2008/10/04(Sat) 22:50
元質問者 : てけさん  
             http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?mode=allread&no=8274
-----------------------------------------------------------------------------------
VB2005でWebBrowserオブジェクトを使用し、Webページ内の入力欄に自動入力するシステムを
製作しました。
入力したデータを登録する際に確認のダイアログが表示されます。
このダイアログの[OK]ボタンを自動で押下したい場合、どのように処理を書き加えれば
対応できるのでしょうか?

確認ダイアログ 参考ページ
http://www.tagindex.com/javascript/window/confirm.html

宜しくお願い致します。

-----------------------------------------------------------------------------------
記事No : 8278
投稿日 : 2008/10/05(Sun) 13:41
回答者 : 魔界の仮面弁士  
-----------------------------------------------------------------------------------

> このダイアログの[OK]ボタンを自動で押下したい場合、
> どのように処理を書き加えれば対応できるのでしょうか?

IDocHostShowUI.ShowMessage メソッドを実装すれば OK です。たとえば、こんな感じ。
ソースコードは、下記からダウンロードして下さい。
http://www.vb-user.net/junk/replySamples/2008.10.05.13.35/8274.zip

上記は、ダイアログのボタンで何を押されても、常に[キャンセル]が
押されたことにしています。無条件で [OK] 扱いにしたいのであれば、
 Private Sub WebBrowerCtrl_ShowMessage(……
  e.Result = MsgBoxResult.OK
  e.Handled = True
 End Sub
としてやれば良いかと。


----------------------------------------------------------------
尚、下記サイトにも投稿されておられるので参考にして下さい。 ---- by 花ちゃん -----
  http://yaplog.jp/orator/category_9/
 [VB2005]WebBrowser上のスクリプト ダイアログを制御する / 2008年10月05日(日)

ソースコードの使い方や応用の仕方が解らなければ、Visual Basic .NET用(VB2005用掲示板)掲示板
の方に書き込み下さい。

下記は、特定のダイアログが表示された場合個別に指定するようなやり方
Private Sub WebBrowerCtrl_ShowMessage(ByVal sender As Object, _
               ByVal e As WebBrowserController.ShowMessageEventArgs) Handles WebBrowerCtrl.ShowMessage
   '------------------------------------------------------------------
   'すべてのダイアログで、OK を返し、ダイアログを表示しない場合
   'e.Result = MsgBoxResult.Ok
   'e.Handled = True
   '------------------------------------------------------------------

   '確認ダイアログ のボタンをクリックして表示したダイアログにだけ対応
   'そのページの下の方のサンプルのボタンのダイアログは、通常のダイアログが表示する
   If e.Text = "本当にいいんですね?" Then
      '確認のダイアログを表示せずに、OK ボタンが押された事にする。
      Dim ret As MsgBoxResult = MsgBoxResult.Ok
      ' メッセージボックスで押されたボタンを返す。
      e.Result = ret
      ' 標準のダイアログを表示させないなら True、表示させるなら False
      e.Handled = True
   Else
      e.Handled = False
   End If
End Sub



 [スレッド一覧へ] [親スレッドへ]