关闭所有可见窗口程序

bfgxp

极域有个好用的功能，关闭所有程序
但我现在喜欢用凌波，凌波没有这个功能，所以用au3写了个小程序。
论坛程序老了传不了附件，上代码

1. #include <MsgBoxConstants.au3>
3. Example()
5. Func Example()
6.     ; Retrieve a list of window handles.
7.     $aExplorer = ProcessList("explorer.exe")
8.     Local $aList = WinList()
10.     ; Loop through the array displaying only visable windows with a title.
11.     For $i = 1 To $aList[0][0]
12.         If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
13.             $killID = WinGetProcess($aList[$i][1])
14.             $KK = 1
15.             For $j = 1 To $aExplorer[0][0]
16.                 If $aExplorer[$j][1] = $killID Then
17.                     $KK = 0
18.                     ;MsgBox(1,$aList[$i][0],"")
19.                     ;If Not StringInStr($aList[$i][0],"Program Manager") Then WinClose($aList[$i][1])
20.                     ExitLoop
21.                 EndIf
22.             Next
23.             If $KK = 0 Then
24.                 If StringInStr($aList[$i][0], "Program Manager") Or StringInStr($aList[$i][0], "开始") Then ContinueLoop
25.             EndIf
26.             WinClose($aList[$i][1])
27.         EndIf
28.     Next
29.     Local $aList = WinList()
30.     ; Loop through the array displaying only visable windows with a title.
31.     For $i = 1 To $aList[0][0]
32.         If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
33.             $killID = WinGetProcess($aList[$i][1])
34.             $KK = 1
35.             For $j = 1 To $aExplorer[0][0]
36.                 If $aExplorer[$j][1] = $killID Then
37.                     $KK = 0
38.                     ;MsgBox(1,$aList[$i][0],"")
39.                     ;If Not StringInStr($aList[$i][0],"Program Manager") Then WinClose($aList[$i][1])
40.                     ExitLoop
41.                 EndIf
42.             Next
43.             If $KK Then ProcessClose($killID)
44.         EndIf
45.     Next
46. EndFunc   ;==>Example

复制代码

wangzhang

          

gameboys2000

感谢分享

爱琴海

感谢楼主分享

slmok

真香！

lidongyun

怎么使用？能编译一下吗？放在蓝奏网盘也行的

hkl7366

现在只用极域，凌波是偶尔被这帮人逃离极域时重启他们机器的手段，不让他们知道凌波的存在。