vb关机关机命令

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言

1 用shell shutdown -s -t 1
2 用API(通常说的快速关机)
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal Newvalue&, ByVal NewThread&, Oldvalue&)
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Const SE_SHUTDOWN_PRIVILEGE& = 19
Const SHUTDOWN& = 0
Const RESTART& = 1
Const POWEROFF& = 2

Private Sub Form_Load()
Me.Hide
RtlAdjustPrivilege& SE_SHUTDOWN_PRIVILEGE&, 1, 0, 0 '提升权限
NtShutdownSystem& SHUTDOWN& Or POWEROFF& '关机
End Sub

第一句是vc代码第二句是60秒后调用本机关机命令第三句是死循环你把文件填加到解压缩包发给朋友让他解压缩出来再运行

你再和你的朋友确认一下文件后缀是不是.exe。如果是我就帮不了你了，不是就叫他改过来。
确认后缀前要在控制面板的文件夹选项里的查看的隐藏已知文件的扩展名此选项的勾点掉就行了。之后直接把.级后面的东西删掉后加上.exe就行了。

建议你先学如何保护自己的进程不会被挂起、被删除以及如何玉石俱焚的方法，让使用者非得必须手动命令“系统保护程序”忽略你的程序存在。
就算你骗系统进入关机程序，让系统通知每个进程进入关机程序，那个你想杀掉的最顽固的进程，肯定是会坚持自己是最后一个离开系统进程的程序，当“它”保护不了系统关机的前0.1秒被最后动手脚的时候，你认为“它”会对系统下什么指令？。360为什么花钱向国外买Malware Defender给使用者无偿使用？是没空写那个程序吗？还是有其他可能的原因？
微软有一个部门是专门承接客制开发自家windows系统最疑难杂症的功能，ring0的驱动关键代码如果那么容易就能拿到，那么早就没有windows系统存在了，你觉得呢？。

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
xx=val(inputbox("请输入关机时间"))
WSHshellA.run "cmd.exe /c shutdown -r -t " & xx & " -c ""想停止关机请双击“解除自动关机”""",0 ,true