> > For Each IEApp In CreateObject("Shell.Application").Windows() > > If InStr(1, IEApp.FullName, "iexplore.exe", vbTextCompare) > 0 Then > > IEApp.Quit() > > End If > > Next > > ピーピーピー!あなたのPCはウィルスに感染しています(;´Д`) > こう書くとループのたびにCreateObjectするの?(;´Д`)それとも初回だけ生成しておしまい? 閉じられないIEを全部殺す(;´Д`) 参考:2017/11/22(水)00時48分54秒