vbs代码炫酷效果_表白女神、恶搞损友骚操作，几行简单的代码就能实现

小伙伴们大家好啊~

今天要给大家分享一个好玩的东东

话不多说

看图

实现这个效果只需要简单的几步：新建一个文本，将代码复制到文本保存，将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