after_333sec回答ポイント 70ptウォッチ 1

VBA6.0です。

ページ内のボタンを自動クリックさせると、javascriptのconfirmが出ます。
さらにそのconfirmのOKボタンも自動でクリックさせたいのですが、objIE.Document.all.btn1.Clickの実行後で止まってしまうようです。
擬似マルチスレットで解決できるのかなと思うのですが、どのように記述したらよいか分かりません。

下記プログラムに書き加えてください。よろしくお願いします。


Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True

objIE.Navigate "URL"

Do While objIE.Busy = True
DoEvents
Loop


objIE.Document.all.btn1.Click (ページ内ボタンのクリック)


----------これでconfirmのOKボタンを押そうとしています。--------------
Dim lngDHnd As Object
Dim lngRc As Object

Const WM_COMMAND = &H111
lngDHnd = GetLastActivePopup(objIE.hWnd)
lngRc = PostMessage(lngDHnd, WM_COMMAND, 2, 0)
----------------------------------------------------------------

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する

みんなの回答

この質問へのコメント

コメントはありません

この質問への反応(ブックマークコメント)

質問の情報

登録日時
2010-05-25 22:51:04
終了日時
2010-06-01 22:55:03
回答条件
1人2回まで

この質問のカテゴリ

この質問に含まれるキーワード

JavaScript2781const51InternetExplorer106プログラム5048URL11376

人気の質問

メニュー

PC版