如何關閉所有瀏覽器？

我嘗試創建關閉/殺死所有瀏覽器的代碼。如何做到這一點？如何關閉所有瀏覽器？

我創造這樣的代碼：

Set obj = CreateObject("InternetExplorer.Application") 
obj.Quit 

Set obj = CreateObject("Chorme.Application") 
obj.Quit 

Set obj = CreateObject("Firefox.Application") 
obj.Quit

，但它不工作。

任何想法寫腳本一次關閉所有的瀏覽器？就像我們在CCleaner中看到的一樣。

來源

2014-03-03 user3374206

CreateObject只能用於操作COM或ActiveX對象，但不幸的是Chrome或Firefox不是ActiveX。要按預期工作，您可以使用任務列表和任務殺手。

Tasklist可以用pid列出進程名稱，taskkill可以用指定的id結束進程。

tasklist /fi "imagename eq iexplore.exe" 

Image Name      PID Session Name  Session# Mem Usage 
========================= ======== ================ =========== ============ 
iexplore.exe     2448 Console     1  63,124 K 
iexplore.exe     2752 Console     1 304,312 K 
iexplore.exe     4660 Console     1 230,492 K 
iexplore.exe     1908 Console     1 211,332 K 
iexplore.exe     4536 Console     1 148,400 K 
iexplore.exe     3760 Console     1 136,800 K 
iexplore.exe     3652 Console     1 206,788 K 
iexplore.exe     2248 Console     1 198,296 K 


taskkill /fi "imagename eq iexplore.exe"

在VBS代碼

Dim WshShell, oExec 
Set WshShell = CreateObject("WScript.Shell") 

Set oExec = WshShell.Exec("taskkill /fi ""imagename eq iexplore.exe""") 

Do While oExec.Status = 0 
    WScript.Sleep 100 
Loop

來源

2014-03-03 09:20:49

任何其他方式請關閉所有瀏覽 – user3374206

的VBScript點擊關閉按鈕？能我點擊特定的xy位置使用vbscript – user3374206

taskkill/fi「imagename eq iexplore.exe」，只需用不同的圖像替換iexplore.exe即可。 –

你可以做到這一點沒有脫殼而出：

Set wmi = GetObject("winmgmts://./root/cimv2") 

browser = "iexplore.exe" 
qry = "SELECT * FROM Win32_Process WHERE Name='" & browser & "'" 

For Each p In wmi.ExecQuery(qry) 
    p.Terminate 
Next

來源

2014-03-03 12:34:11

如何關閉所有瀏覽器？

回答

相關問題