Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
 Private Sub Timer1_Timer()
 Static i As Integer
 i = i + 1
 Form1.Caption = i
 If i = 10 Then
 ExitWindowsEx 2, 0
 End If
 End Sub
代码怎么不能重启电脑？

[ 本帖最后由 若无其事NIE 于 2009-11-16 19:32 编辑 ]

权限！~

怎样得到权限呢？

call shell("shutdown -r -t 0",vbhide)

OK ???

强人说话都是这么简单么？

shell怎么声明呢，是内部函数吗？

[ 本帖最后由 若无其事NIE 于 2009-11-18 12:14 编辑 ]

试了一下，是内部函数。。。
吓死我了。。。

http://zhidao.baidu.com/question/87957085.html

[ 本帖最后由 bczgvip 于 2009-11-18 16:17 编辑 ]