借用1下论坛
PrivateDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLongConstEWX_SHUTDOWN=1
ConstEWX_LOGOFF=0
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
PrivateSubCommand1_Click()
Dima
a=ExitWindowsEx(EWX_LOGOFForEWX_FORCEorEWX_SHUTDOWN,0)
EndSub
如果将
a=ExitWindowsEx(EWX_LOGOFForEWX_FORCEorEWX_SHUTDOWN,0)
改换为
a=ExitWindowsEx(EWX_LOGOFForEWX_REBOOT,0) PrivateDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_SHUTDOWN=1
ConstEWX_LOGOFF=0
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
PrivateSubCommand1_Click()
Dima
a=ExitWindowsEx(EWX_LOGOFForEWX_FORCEorEWX_SHUTDOWN,0)
EndSub
如果将
a=ExitWindowsEx(EWX_LOGOFForEWX_FORCEorEWX_SHUTDOWN,0)
改换为
a=ExitWindowsEx(EWX_LOGOFForEWX_REBOOT,0) VB自动关机程序
{:5_763:}
页:
[1]