[分享]两个函数,一个重启一个关机

白海豚

[hide

]

Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" _
(ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long
Private Const SystemChangeRestart = 4
Public Sub 重启电脑()
SHRestartSystemMB 0, vbNullString, SystemChangeRestart
End Sub

Public Function 重启()
重启电脑
End Function
****************************************
Function 关机()'''10秒钟后关机,可以将时间设短一点
Shell "shutdown -s -t 10"
End Function

 

[/hide]

[此贴子已经被作者于2007-7-25 10:46:09编辑过]

hxqzccct

这个不错 

  可还是VBA 

 不懂

白海豚

呵呵。。。学习最重要。。

东门吹雪

非常好，谢谢

element

甲儿？

bisz_wack

没有证据就没有发言权

我现在就去寻找证据

zjxia889

这个有什么用？

element

看来是fans[em01]