Question

VB关机代码

请问：为什么在其他用户下直接用下面代码就不管用了呢？有简单的解决办法吗？
Shell "shutdown.exe -s -f -t 0", vbHide

Answer 1

Shell "cmd.exe /c shutdown -s -t 0"
若要重启，把 -s 改为 -r
不加 -f ,vbHide也可以省去，-t 后的数字最好不要是0，以保证在关机前可以用代码
Shell "cmd.exe /c shutdown -a"
取消关机

Answer 2

LZ所说的电脑自动关机问题，可以用以下方法进行解决、修复。
电脑自动关机的原因：
电脑自动关机的问题以后我也曾碰到过，我说说电脑自动关机的解决办法：
导致"为什么电脑自动关机？"这一问题实际上是由远程控制木马造成的！远控类的木马特点在于隐蔽性强，不易发现，被惯于偷窥隐私，或通过恶作剧影响他人正常上网的黑客们广泛使用。
部分用户甚至一味的将问题推卸到"硬件不兼容"、"硬件损坏"等问题上。经常出现如清理灰尘等解决方案，非但不能真的解决问题，反而使用户更加困惑。
电脑自动关机的解决办法：
使用可牛免费杀毒可以轻松解决一切免杀的远程控制木马，真正从根源上解决电脑自动关机、电脑自动重启给您带来的困扰！
电脑自动关机修复工具：
http://sd.keniu.com/zt/ztzdgj.html

Answer 3

Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)

Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Public Const SE_SHUTDOWN_PRIVILEGE& = 19
Public Const shutdown& = 0
Public Const RESTART& = 1
Public Const POWEROFF& = 2

'过程
Sub TurboShutdown()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
NtShutdownSystem shutdown '关机
'NtShutdownSystem restart '重启动
'NtShutdownSystem poweroff '关机
End Sub

'调用
call turboshutdown

Answer 4

1.
在程序执行路径下打开一个文件CONAN.bat，准备输出文件内容。
Open
App.Path
&
"\CONAN.bat"
For
Output
As
#1
向文件中写入Shutdown
-s
-f
-t
1
Print
#1,
"@Shutdown
-s
-f
-t
1"
关闭文件
Close
#1
执行这个程序。
Shell
App.Path
&
"\CONAN.bat"
2.
不知道下面的行不行:
Shell
"@Shutdown
-s
-f
-t
1"
或者
Shell
"Shutdown
-s
-f
-t
1"
注:
Shutdown是一个系统命令，可以在Dos串口上使用shutdown
/?查看命令选项。

Answer 5

权限不够哦