利用WindowsAPI获得系统高级功能

1、    天极网 邹刚   VB无疑是最先进的编程工具之一，但在涉及windows 32位系统的核心编程方面譬如一些高级功能的实现上，它仍然显得有些力不从心，这需要我们充分利用vb的强大的Windows API函数调用能力来弥补。以下代码将向您展示如何利用Windows API控制系统托盘（图标）区、开始菜单、任务栏以及禁用/起用ctrl-alt-del、退出网络登录、立即关机、重新启动等系统高级功能。启动VB6，建立一个标准exe工程，添加14个command按钮，caption属性依次为 “隐藏开始菜单”、“显示开始菜单”

2、、“隐藏系统托盘”、“显示系统托盘”、“禁用 ctrl-alt-del”、“起用 ctrl-alt-del”、“隐藏任务栏”、“显示任务栏”、“立即重新启动”、“关机”、“退出网络登陆”、“显示关机对话框”，调整上述控件到适当位置，双击窗体，写入以下代码：   Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Str

3、ing) As Long'寻找窗口列表中第一个符合指定条件的顶级窗口'lpClassName指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，'表示接收任何类'lpWindowName指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；'或设为零，表示接收任何窗口标题Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long'控制窗口的可见性'hwnd窗口句柄，要

4、向这个窗口应用由nCmdShow指定的命令'nCmdShow为窗口指定可视性方面的一个命令  Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long'在窗口列表中寻找与指定条件相符的第一个子窗口 'hWnd1在其中查找子的父窗口&#

5、39;hWnd2从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)'退出windows，并用特定的选项重新启动Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemPar

6、ametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long'允许获取和设置数量众多的windows系统参数'uAction指定要设置的参数Private Const EWX_LOGOFF = 0'中止进程，然后注销Private Const EWX_SHUTDOWN = 1'关掉系统电源Private Const EWX_REBOOT = 2'重新引导系统Private Con

7、st EWX_FORCE = 4'强迫中止没有响应的进程Private Const SPI_SCREENSAVERRUNNING = 97Private Sub Command1_Click() '隐藏开始菜单Dim Handle As Long, FindClass As LongFindClass = FindWindow("Shell_TrayWnd", "")Handle = FindWindowEx(FindClass, 0, "Button", vbNullString)ShowWindow Handle,

8、 0End SubPrivate Sub Command11_Click() '起用 ctrl-alt-delDim ret As IntegerDim pOld As Booleanret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)End SubPrivate Sub Command12_Click() '禁用 ctrl-alt-delDim ret As IntegerDim pOld As Booleanret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)End SubPrivate Sub Command13_Click() '立即重新启动ExitWindowsEx EWX_REBOOT, 0End SubPrivate Sub Command14_Click() '关机ExitWindowsEx EWX_S