Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
VB 6.0应用程序设计时,调用丰富Windows API 函数能完成VB本身没有提供或无法实现的功能,这些函数都属于“操作系统”级别,能使应用程序增添不少色彩。其中ExitWindowsEx( )函数具备关闭Windows系统的功能,调用前必须进行声明: Declare Function ExitWindowsEx Lib ″user32″( ByVal uFlags As Long,ByVal dwReserved As Long) As Long 参数说明:此函数有两个参数vFlags、dwReserved,其中vFlags参数决定用户需要做的关机操作,dwReserved参数是作为保留而没有使用。 vFlags 参数可以取以下几种常量(或相应值): EWX_ShutDown 1 关闭计算机 EWX_ReBoot 2 重新启动计算机 EWX_LogOff 0 关闭所有程序并以其他用户身份登录 三、关机功能所有程序代码清单如下: ′通用代码中对ExitWinwodsEx( )函数声明 Private Declare Function ExitWindowsEx Lib ″user32″ (ByVal uFlags As Long,ByVal dwReserved As Long) As Long Const ShutDown = 1 Const ReBoot = 2 Const LogOff = 0 Private Sub Command1_Click() Dim Sh As Long If Option1.Value = True Then ′关闭计算机选项 Sh = ExitWindowsEx(ShutDown, dwReserved) End If If Option2.Value = True Then ′重新启动计算机选项 Sh = ExitWindowsEx(ReBoot, dwReserved) End If If Option3.Value = True Then ′关闭所有程序并以其他用户 身份登录选项 Sh = ExitWindowsEx(LogOff, dwReserved) End If End Sub Private Sub Command2_Click() Unload Me End Sub F5运行程序,即进行关机操作!该功能加入用户开发的应用程序,相当实用。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货