- 日時： 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
|
WebBrowser上のスクリプトの確認用のダイアログを制御する(VB.NET)