隐藏所有Windows窗口.exe

【文件属性】：

文件名称：隐藏所有Windows窗口.exe

文件大小：20KB

文件格式：EXE

更新时间：2013-01-12 10:18:26

隐藏 窗口

'隐藏所有Windows窗口.exe Attribute VB_Name = "Module1" Option Explicit Dim AllhWnd() As Long '动态数组，用来保存取得的全部窗口的句柄 Dim AllhWnd_i, AllhWnd_j As Long Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Any, ByVal lParam As Long) As Long '枚举窗口列表中的所有父窗口（*和被所有窗口） Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long '控制窗口的可见性 Const SW_HIDE = 0 '隐藏常数 Public Function EnumWindowsProc(ByVal app_hwnd As Long, ByVal lParam As Long) As Long '这个就是回调函数，用来遍查全部窗口句柄 AllhWnd_i = AllhWnd_i + 1 ReDim Preserve AllhWnd(AllhWnd_i) '动态变量 AllhWnd(AllhWnd_i) = app_hwnd '保存句柄 EnumWindowsProc = True '循环，继续列举hwnd End Function '注：每枚举一个窗口需调用一次回调函数 Public Function HideAllWindow() '自已定义的一个函数，用来设置全部窗口的隐藏。 EnumWindows AddressOf EnumWindowsProc, 0 '传递回调函数的指针给EnumWindows 函数。枚举窗口列表中的所有父窗口（*和被所有窗口） For AllhWnd_j = 1 To AllhWnd_i ShowWindow AllhWnd(AllhWnd_j), 5 '逐个隐藏全部窗口 Next End Function