电脑
记事本程序
第一步、在桌面新建一个记事本的文件
第二步、在里面输入以下内容：set s=createobject('wscript.shell') a=1msgbox' hi 喵喵 你好啊 ' '(里面的文字可以替换)wscript.sleep 1314 '(延时6秒)msgbox' 我写了好久终于写好了 ' '(里面的文字可以替换)wscript.sleep 1314 '(延时6秒)msgbox' 你想看小星星吗？ ' '(里面的文字可以替换)wscript.sleep 1314 '(延时6秒)msgbox'*****' '(里面的文字可以替换)wscript.sleep 555 '(延时6秒)msgbox' 哈哈 ' '(里面的文字可以替换)wscript.sleep 22 '(延时6秒)msgbox' 不过接下来的有点恶意 ' '(里面的文字可以替换)wscript.sleep 1 '(延时6秒)msgbox' 你电脑完蛋了 ' '(里面的文字可以替换)do if a<5 thena=a+1wscript.sleep 6000 '(延时6秒)s.run 'notepad' '(打开记事本)s.run'explorer.exe' '(打开资源管理器)s.run'cmd.exe' '(打开命令提示符)s.run'shutdown -s -t 3600' '(一小时后关机)s.run 'cmd.exe /c call calc.exe',0 '(打开计算器)'s.run 'cmd.exe /c call tim.exe',0 '(打开QQ 好像没用)wscript.sleep 6000 '(延时)s.run 'shutdown -a ' '(取消关机) s.run 'cmd.exe /c taskkill /f /im explorer.exe',0 '(关闭任务管理器) s.run 'cmd.exe /c taskkill /f /im calc.exe',0 '(关闭计算器) s.run 'cmd.exe /c taskkill /f /im notepad.exe',0 '(关闭记事本) s.run 'cmd.exe /c taskkill /f /im cmd.exe',0 '(关闭命令提示符) 's.run 'taskkill /f /im qq.exe' '(关闭扣扣 好像没用)end if if a=5 then exit doloopif a<10 thens.run'explorer.exe' '(打开资源管理器)msgbox' 一切完好如初 ' '(里面的文字可以替换)msgbox' 嘻嘻！ ' '(里面的文字可以替换)s.run'explorer.exe' '(打开资源管理器)end if
第三步、将文件另存为VBS格式的,假设名字是1111.VBS (.VBS注意是大写的)，保存在桌面上。
第四步、桌面上便出现了一个VBS格式的文件，双击运行！
第五步、接下来你的电脑的资源管理器等会关闭，但是到最后都会完好，程序注释已经写的很清楚了，有兴趣的话可以试试，记得给我投票，谢谢！
如果觉得对你有用，麻烦投个票，鼓励下我，谢谢了！有问题的话也欢迎私信！
这个程序没恶意，我试过