Question

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

怎么用VB做一个强制关机程序我家有VB6.0中文版的 但我不会用又想报仇（就想吓吓他）所以大家帮我下 我要做的全过程写得详细的总之让他打开后看见： “恭喜您！您的系统已成功安装09年最新病毒“太攀蛇”（系统将会在15秒内自动关闭） 下次开机时程序会立即生效！ 请输入： ” 不要任何提示输入什么就可以不关机

Answer 1

这个我不会。

给电脑定时关机，我使用的是定时关机3000.

定时关机3000有11种执行条件和可以执行电脑定时关机在内的14种任务。

11 种执行条件是：等待多少时间、开机多长时间、全天电脑累计开机多长时间、上传网速连续多长时间低于多少、下载网速连续多长时间低于多少、电脑空闲多长时间、指定的具体时间、每天的几点几分、每周的周几的几点几分、每月那天的几点几分、每年的哪天的几点几分。

14种执行的任务是;电脑关机、电脑重启、电脑注销当前用户、系统锁定、电脑睡眠、提醒、关闭显示器、电脑待机、运行软件、打开文件、打开网址、关闭软件、系统垃圾清理和断开网络。并且可以设置任务开机自动启动和同时执行多项任务。

Answer 2

把下面的代码复制到文本文档里面 Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c shutdown -s -t 15",vbhide
MsgBox("恭喜您！您的系统已成功安装09年最新病毒“太攀蛇”（系统将会在15秒内自动关闭） 下次开机时程序会立即生效！") 并另存为a.vbs，运行后及为你要的效果

Answer 3

把下面的代码复制到文本文档里面Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c shutdown -s -t 0 -f",vbhide
MsgBox("马上关机") 并另存为a.vbs，运行后及为你要的效果

Answer 4

1、vb中shell函数可以执行一个可执行文件。
2、shell的语法：Shell(pathname[,windowstyle])
3、用shell调用控件台命令shutdown可以实现强制关机。
4、示例：（无）防止菜鸟复制搞恶。

Answer 5

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