小伙伴们大家好啊~
今天要给大家分享一个好玩的东东
话不多说
看图
实现这个效果只需要简单的几步:新建一个文本,将代码复制到文本保存,将txt后缀修改为vbs即可。
下面是收集的一些代码,直接复制就可以用,可以修改为自己想要显示的文字。
1、最简单的显示一段文字
msgbox "一大波病毒正在靠近..."
2、分别显示多个信息
msgbox "电脑受到攻击"msgbox "系统出现致命错误"msgbox "请重启电脑"
3、无限循环显示“系统错误”
domsgbox "系统错误"loop
4、无限语音从1数到无限大
Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop
5、慎用,如此刷新打开任务管理器都难,只能拔掉电源
set ws=createobject("wscript.shell") do ws.sendkeys "{f5}" loop
6、直接关机
dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00