快速关机VB代码不会 谁帮我啊

好的代码来了,直接复制到VB,运行下看结果就好了!!!

Private Declare Function exitwindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer
Dim myval As Integer

Private Sub Command1_Click()
'重新启动计算机
myval = exitwindows(&H43, 0)
End Sub

Private Sub Command2_Click()
'关闭计算机
myval = exitwindows(&H42, 0)
End Sub

我也是VB爱好者,以后相互切磋呗! ^_^

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( )函数声明 <