Question

用VB编写关机程序！

Private Sub Timer1_Timer()
V = MsgBox("确认要关机吗？", vbYesNo + vbQuestion, "???")
If V = vbYes Then
If glngWhichWindows32 = mlngWindowsNT Then
AdjustToken
End If
ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE Or EWX_POWEROFF), 0
End If
End Sub

这样的代码有问题吗？怎么VB提示编译错误，变量未定义！
请高手帮忙！

Answer 1

将
ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE Or EWX_POWEROFF), 0
换成：
shell "cmd /c shutdown -u -t 1"

Answer 2

如果你全部程序就只有这么点的话，下面4个全是未定义的
glngWhichWindows32
mlngWindowsNT
AdjustToken
ExitWindowsEx

Answer 3

If MsgBox("确认要关机吗？", vbOKCancel + vbQuestion, "系统信息") = vbOK Then
Shell "cmd /c shutdown -u -t 1", vbNormalFocus
End If