隐藏所有Windows窗口.exe

'隐藏所有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