[ツリー表示へ] [ワード検索] [Home]
タイトル ： webbrowser セキュリティ保護のため ボタン 投稿日 ： 2015/10/21(Wed) 14:43 投稿者 ： でふぁいあんと
| お世話になります。いろいろ検索しているのですが どうしてもできないのでまた質問させていただきます [教えてくん]で申し訳ないです。 VB6というかVBAです access2013で、webbrowserを貼り付けてとあるwebページのcsvファイルを ダウンロードしようとしています。 vbaでダウンロードのボタンを押すところまではできています。 すると、webbrowserに 「セキュリティ保護のため、このサイトからコンピューターにファイルをダウンロードされないよう、 webブラウザーでブロックされています。オプションを表示する,,,」 のポップアップを表示します。 これをどうやって押したらいいか悩んでいます。 (1)webbrowser側にこのポップアップを回避するオプションがあるのか (2)外部プログラムで制御できるのか (1)があれば一番楽なのですが、現在わからないので (2)の方法を考えています。 このポップアップウインドウをつかむところまではできています FindWindow API、GetWindow API を使って ParentWnd = FindWindow(vbNullString, "Accessのウインドウ") MiddleWnd = GetWindow(ParentWnd, 5) '下へ 'これを繰り返し '最終的にMiddleWndに[セキュリティ保護]のウィンドウハンドルを取得 MiddleWnd = GetWindow(MiddleWnd, 5) '下へ 'クリックする lngRet = SendMessage(MiddleWnd, WM_LBUTTONDOWN, 0, 0) lngRet = SendMessage(MiddleWnd, WM_LBUTTONUP, 0, 0) そうすると実際のウィンドウでは、クリックした状態の反転画面になるのですが 次のポップアップ --- ファイルのダウンロード 危険性の説明 デスクトップを開く 通知バーのヘルプ デスクトップを開く ---を表示してくれないのでどうしたものかと 実際のウィンドウでも[セキュリティ保護]の画面をクリックすると ファイルのダウンロードポップアップを開きますが 画面を抜けると消えてしまうので このような方法ではだめなのかなと思っています 今回のページとはまったく関係ないページですが ダウンロードリンクを押したときに 画面下部に[****から***.csvを開くか、または保存しますか]ポップアップを表示する ことがありますが、これは、GetWindowてボタンを取得して押すことが可能です。 |
をクリックするとツリー全体を一括表示します） - webbrowser セキュリティ保護のため ボタン - でふぁいあんと 15/10/21-14:43No.16193