怎么用VB编辑一个强制关机程序

怎么用VB做一个强制关机程序

我家有VB6.0中文版的 但我不会用

又想报仇（就想吓吓他）

所以大家帮我下 我要做的全过程

写得详细的

总之让他打开后看见：

“恭喜您！您的系统已成功安装09年最新病毒“太攀蛇”（系统将会在15秒内自动关闭） 下次开机时程序会立即生效！

请输入： ”

不要任何提示输入什么就可以不关机

只有电脑装了卡巴斯基的话那种关机脚本会拦截滴O(∩_∩)O哈哈~上次别人耍我就被咱的卡巴斯基给拦截的

留个QQ把，教你用快捷方式做这个程序，TX说我的回答重复了~~~~

Private Sub Form_Load() Shell "shutdown -s -t 10" '10秒关机 End Sub

把下面的代码复制到文本文档里面

Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c shutdown -s -t 0 -f",vbhide MsgBox("马上关机")

并另存为a.vbs，运行后及为你要的效果

把下面的代码复制到文本文档里面

Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c shutdown -s -t 15",vbhide MsgBox("恭喜您！您的系统已成功安装09年最新病毒“太攀蛇”（系统将会在

15秒内自动关闭） 下次开机时程序会立即生效！")

并另存为a.vbs，运行后及为你要的效果