| ■84027 / inTopicNo.1) |
IE11のダウンロード通知バーの制御について |
□投稿者/ TEST (1回)-(2017/05/10(Wed) 11:03:25)
|
分類:[VB.NET/VB2005 以降]
httpsのサイトからダウンロードを繰り返し行うプログラムを作成しています。
そこでIE11のダウンロード通知バーの制御で詰まっているのでもしわかる方がいれば力を貸してください。
https://oshiete.goo.ne.jp/qa/8035721.html
ここを参考にIE11のダウンロード通知バーの「保存」を押下するプログラムを書きましたが以下のプログラムで
保存押下後に再帰して「count = acc.accChildCount」のところで「起動されたオブジェクトはクライアントから切断されました」となってしまいます。
これはどのように解消すればよいのでしょうか。
保存押下後にExit forで抜けるようにしてみましたが、当該エラーは発生しませんが、２回目のダウンロードの際にIEが落ちてしまいます。
この保存押下処理を通さずに保存を手動で行った場合にはIEが落ちることはないので何か関係あるのではないかと考えています。
------------------------------------------------------------------------------------------------------------
Private Sub ClickPreserve(ByVal acc As Accessibility.IAccessible)
Dim i As Long
Dim count As Long
Dim lst() As Object
count = acc.accChildCount
If count > 0 Then
ReDim lst(count - 1)
AccessibleChildren(acc, 0, count, lst, 0)
If Not IsNothing(lst) Then
For i = LBound(lst) To UBound(lst)
With lst(i)
'保存ボタンを見つけたらクリック（デフォルトアクション）する
If .accName(CHILDID_SELF) = "保存" Then
System.Threading.Thread.Sleep(500)
.accDoDefaultAction(CHILDID_SELF)
System.Threading.Thread.Sleep(500)
End If
End With
ClickPreserve(lst(i)) '再帰
Next
End If
End If
End Sub
|
|