[已解决]请问如何做到 除了当前程序窗口，关闭目前所有窗口？

elexy

指定的窗口用winclose就能搞定，现在想在程序运行前，将当前系统里的其他窗口全部关掉，不知道这段代码如何写才能高效解决。



______________________________________________________
谢谢 3mile，不好意思，可能是我描述不清楚，您的这段代码太猛了，运行后，连WINDOWS的关机重启的菜单都弹出来了，效果就像是关闭了 explorer.exe  一样，屏幕整个闪了一下，右下角的音量、网络等图标都重新加载了一遍。   有没有温柔一点的?其实只需要将 任务管理器 应用程序 列表里的任务 winkill 掉即可。您那样太吓人了

elexy

顶上去求解...

zcx880517

帮顶，，等待高手回答。。

ransally

我来帮忙顶

3mile

$var = WinList()

For $i = 1 to $var[0][0]
  ; 只显示带有标题的可见窗口
  If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
    $state=WinGetState($var[$i][0])
        If $state<>47 Then WinKill($var[$i][0])
  EndIf
Next

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc

afan

WinKill 也可以考虑先使用 WinClose ，以提示用户关闭前保存数据

elexy

谢谢 3mile，不好意思，可能是我描述不清楚，您的这段代码太猛了，运行后，连WINDOWS的关机重启的菜单都弹出来了，效果就像是关闭了 explorer.exe  一样，屏幕整个闪了一下，右下角的音量、网络等图标都重新加载了一遍。   有没有温柔一点的?其实只需要将 任务管理器 应用程序 列表里的任务 winkill 掉即可。您那样太吓人了

xsjtxy

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 587, 395, 192, 114)
$ListView1 = GUICtrlCreateListView("窗口状态|窗口标题", 48, 32, 497, 329,$LVS_NOLABELWRAP)
GUISetState(@SW_SHOW)
win()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd


Func win()
$var = WinList()
For $i = 1 to $var[0][0]
  ; 仅显示带标题的可见窗口
  If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
        if $var[$i][1] = $Form1 or $var[$i][0] = "Program Manager" then
        GuiCtrlCreateListViewItem("未关闭" & "|" & $var[$i][0],$ListView1)
        else
        WinKill($var[$i][1])
        GuiCtrlCreateListViewItem("已关闭" & "|" & $var[$i][0],$ListView1)
        endif
  EndIf
Next
EndFunc

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf
EndFunc

jhun

$WinList = WinList()
For $i = 1 to $WinList[0][0]
  If $WinList[$i][0] <> "" AND IsVisible($WinList[$i][1]) Then
    If $WinList[$i][0]<>"Program Manager" Then WinClose ($WinList[$i][0])
  EndIf
Next

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 )  And WinGetText ($handle) And WinActive ($handle)=0 Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc

elexy

感谢 xsjtxy 、jhun   
8楼的带GUI
9楼的精简高效
都能满足需求。

jhun

开始忘了需要保留当前的窗口这个要求了，重新修改过了，另外就是没有文本的窗口会忽略

afan

未加思索测试你们的代码，把我几个ie下载框给干掉了，速度老慢，下了半天的，损失惨重…… 还有一些打开的文件夹也没了……
下次测试前还是先看看代码的好~

LZ的问题我想还是先列表显示所有非系统进程的*.exe进程名，再进行有选择的关闭，这样会更人性化一点。

jhun

未加思索测试你们的代码，把我几个ie下载框给干掉了，速度老慢，下了半天的，损失惨重…… 还有一些打开的文 ...
afan 发表于 2010-7-9 12:04

    好吧，我错了，为了赎罪，我做了这个
http://www.autoitx.com/forum.php ... id=16788&extra=

C.L

回复 12# afan

是啊，用这个函数，应先建立一个排除关闭的进程列表，要不然，什么进程统统kill一次，很容易出问题。