IEを強制終了したい。

解決

PostM 2006-03-11 01:06:15 No: 94530

Internet Explorerを強制終了させたいと下記のようなプログラムを書きました。
'--------------------------------------------------------------
Public Declare Function PostMessage Lib "USER32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam _
As Long) As Long

' 定数
Public Const WM_QUIT = &H12

'-----------------
Private Function QuitIE()
Dim hWnd As Long

hWnd = FindWindow(vbNullString, "TEST - Microsoft Internet Explorer")
Call PostMessage(hWnd, WM_QUIT, 0, 0)
End Function
'-----------------------------------------------------------------

上記のプログラムではメモ帳などのプログラムを強制終了させられるのですが
IEは終了できませんなにか良い方法はないでしょうかよろしくお願いします。

魔界の仮面弁士 2006-03-11 02:26:12 No: 94531

InternetExplorer なら、API を使わずとも、
Quit メソッドで終了させられると思いますが、
それでは都合が悪いのでしょうか?

PostM 2006-03-11 05:03:31 No: 94532

魔界の仮面弁士さん早速の返信ありがとうございます。
実はIE.Quitで終了を失敗したものを強制的に終了させたかったんです、
IEがメッセージボックスを表示している時があり、そのときにIE.Quitを実行するとErrorになりIEが残ったままになります、IEの子のハンドルを取得してメッセージボックスを閉じる事はできたのですが、その次にIEが終了しませんしさらにIEがハングアップしてしまいます、どうにかならないかなと考えております。

PostM 2006-03-11 07:55:54 No: 94533

自己解決できました、PostMessage Quitをうまく組み合わせたらエラーにはなりますがIEをCloseする事ができました。
魔界の仮面弁士さんのヒントが役に立ちました、ありがとうございました。