

IEで自動化入力をvbscriptで作っております。
次々に問題というか知識の無さでつまづいています。お知恵を貸してください。
IE自動入力をしていくと、途中のクリックで次画面に
進むところでポップアップが浮き上がりスクリプトが止まってしまいます。
ポップアップの内容は、
タイトルが「セキュリティの警告」
内容が「このサイトと取り交わす情報は、ほかの人から読み取られたり変更されることは
ありません。しかし、このサイトのセキュリティ証明書には問題があります。、、、」
と出まして、
「はい(Y)」「いいえ(N)」「証明書の表示(V)」と選択肢があります。
手動で「はい」をクリックするか、Yキーを押すとまたスクリプトが進み始めます。
これを自動でクリックするためにはどうしたらいいんでしょうか。
いろいろ調べてこうして見ました。
Set wshshell=wscirpt.createobject("wscript.shell")
wshshell.AppActivate("セキュリティの警告")
wshshell.sendkeys "y"
これでは、全く動きません。おそらくこのウィンドウにコントロールが行ってないと思います。
他の手立てを教えてください。よろしくお願いします。
No.1ベストアンサー
- 回答日時:
ポップアップが表示されるより早く、yが送られてしまってるんでしょう。
ポップアップが表示されるのを待たないとね。
Set wshshell=wscirpt.createobject("wscript.shell")
'セキュリティの警告が表示されるまで待つ
Do Until wshshell.AppActivate("セキュリティの警告")
WScript.Sleep 100
Loop
'セキュリティの警告が消えるまでyを送る
Do While wshshell.AppActivate("セキュリティの警告")
wshshell.sendkeys "y"
WScript.Sleep 100
Loop
永久ループに陥らないように、適度にループ抜けを入れておけばいいでしょう。
この回答への補足
ループ抜けって具体的にどう書けばいいでしょうか。
必ず「セキュリティ警告」がでるわけはないので、
まさに永久ループにはまりそうです。
一度クリックするとしばらくはセッションが残るのか
繰り返しスクリプトを走らせると聞いてこない場合がありまして。
とりあえずこれでやってみます。ありがとうございます。
自動化入力したいサイトにあわせて
教えていただいた改良を加えると上手く動きました。
ループ抜けもなんとかできているようです。たまにエラーがでますが。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
UWSCのスクリプトで行き詰って...
-
VBAでこの様なコード時のセルの...
-
流れ図(フローチャート)が分か...
-
VBAでの一時停止と再開の方法
-
UWSCに制限時間を付けたいです
-
VB2010でCSVファイルの読み込み
-
範囲指定したセルを1つずつ飛...
-
objective-cの多重ループbreak
-
エクセルの当番表を作っていま...
-
ExcelVBAで、index、match関数...
-
「偶数・奇数の和」のフローチ...
-
リストボックスに縦スクロール...
-
RFC822形式の日付を生成するサ...
-
一致する要素が格納されている...
-
ハッシュ値が一致したデータは...
-
VBのReturnの使い方
-
ハッシュ検索はなぜ速い
-
短いハッシュの作り方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
CSVファイルの特定の行だけを読...
-
範囲指定したセルを1つずつ飛...
-
UWSCに制限時間を付けたいです
-
Escキーを押すと、中断する時と...
-
乱数の桁数指定、または範囲指定。
-
VBA for i=1 to lastrow
-
流れ図(フローチャート)が分か...
-
DOSコマンドのループ内のTIMEコ...
-
pythonでファイルのコメント行...
-
素数表について。
-
VBAでの一時停止と再開の方法
-
「偶数・奇数の和」のフローチ...
-
DoEventsが必要な理由について
-
vb.netです。2次元配列の要素を...
-
Do whileでExitせず、ループの...
-
ループフリー
-
エクセルの当番表を作っていま...
-
VBAで3秒だけ時間を止めたい
おすすめ情報