请问如何强行关闭计算机？

Question

Private Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
Dim a As Long
'a = ExitWindowsEx(EWX_REBOOT,0& ) '重新启动
a = ExitWindowsEx(EWX_LOGOFF, 0&) '注销
'a = ExitWindowsEx(EWX_SHUTDOWN, 0&) '关闭End Sub

Answer 1

我知道ExitWindowsEx EWX_SHUTDOWN, 0可以关闭计算机，
但是我的问题是，我要关闭的计算机是局域网之内的一台计算机
当你执行了这段代码后会有一个提示，大概的意思是说有别的计算机
和这台计算机连接问是否要断开连接，如果选择了否就关闭不了这台机器了
所以我需要用程序来强行关闭机器，不管有任何提示或别的什么~！！

Answer 2

在上面的代码中加一个：
Const EWX_FORCE = 4'强行关闭进程然后改动一句a = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)

Answer 3

xp
有个shutdown.exe
shutdown -f