研发埠

标题: 如何用API函数控制关闭计算机? [打印本页]

作者: 陈茜    时间: 2013-7-2 11:39
标题: 如何用API函数控制关闭计算机?
API函数
作者: 淡写轻描    时间: 2013-7-2 11:43
!请注意你WINDOWS的版本*API函数声明Declare Function ExitWindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer注释:执行Dim DUMMY DUMMY=ExitWindows(0,0) 强制关闭计算机:用API函数ExitWindowsEx可以实现强制关机,即便是您的应用程序尚未保存文件。Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongConst EWX_SHUTDOWN = 1Const EWX_LOGOFF = 0Const EWX_REBOOT = 2 Const EWX_FORCE = 4Private Sub Command1_Click()Dim aa = ExitWindowsEx(EWX_LOGOFF or EWX_FORCE or EWX_SHUTDOWN, 0)End Sub 如果将a = ExitWindowsEx(EWX_LOGOFF or EWX_FORCE or EWX_SHUTDOWN, 0)改换为a = ExitWindowsEx(EWX_LOGOFF or EWX_REBOOT, 0)即可实现强制重启计算机!




欢迎光临 研发埠 (http://bbs.yanfabu.com/) Powered by Discuz! X3.2