[リストへもどる]
一括表示

投稿時間:2002/10/08(Tue) 11:08
投稿者名:しむら
Eメール:
URL :
タイトル:
IEを終了させる
EXEを終了させるソースを使わせて頂いて、
IEを終了させようと思ったのですが、
クラス名を所得していやってみたんですが、うまく終了しません。
入れてみたクラス名は、
・IEFrame
・Internet Exproler_Server
でやってみたのですが、、、

投稿時間:2002/10/08(Tue) 11:25
投稿者名:K.J.K.
Eメール:akiya@koalanet.ne.jp
URL :
タイトル:
Re: IEを終了させる
IEは、Explorerのプロセス内で動くので、その方法は使えない
でしょう。

ShDocVw.dllを参照設定して、こんな感じで。

    Dim objWindows As ShellWindows
    Dim objIE As InternetExplorer
    Dim lngLoop As Long

    Set objWindows = New ShellWindows
    For lngLoop = objWindows.Count - 1& To 0& Step -1&
        Set objIE = objWindows.Item(lngLoop)
        If ("HTMLDocument" = TypeName(objIE.Document)) Then
            Call objIE.Quit
        End If
        Set objIE = Nothing
    Next
    Set objWindows = Nothing

投稿時間:2002/10/08(Tue) 12:35
投稿者名:しむら
Eメール:
URL :
タイトル:
Re^2: IEを終了させる
回答、ありがとうございます。
早速ShDocVw.dllを参照設定してやってみたのですが、

>     Call objIE.Quit

のトコロで、

実行時エラー'-2147467259 (80004005)':
オートメーショネラーです。

が出てしまいました。
何か他にも参照いるんでしょうか?

それとも、このパソのdllがオカシイのかな?

投稿時間:2002/10/08(Tue) 13:04
投稿者名:K.J.K.
Eメール:akiya@koalanet.ne.jp
URL :
タイトル:
Re: IEを終了させる
OSやIEのバージョンはどれなのでしょう。
それなどによっては起こるかも知れません。

投稿時間:2002/10/08(Tue) 13:29
投稿者名:しむら
Eメール:
URL :
タイトル:
Re^2: IEを終了させる
OSは98SE、IEは5.5です。

投稿時間:2002/10/08(Tue) 18:50
投稿者名:K.J.K.
Eメール:akiya@koalanet.ne.jp
URL :
タイトル:
Re: IEを終了させる
IE5.5ならば多分大丈夫だと思いますけど。
でも、その環境がないのではっきりとしたことはわかりません。

投稿時間:2002/10/09(Wed) 00:31
投稿者名:Say
Eメール:
URL :
タイトル:
Re^2: IEを終了させる
参考までに、98SE + IE5.5SP2 なら正常動作します。

もし、SP2あてていないのなら、早急に当てることをお勧めします。
当ててないと重大なセキュリティホールがありますので。