TXT GROUP[鹦鹉恶搞.vbs]一段小小的恶搞代码

神王炼狱

已于 2024-07-04 12:12:59 修改

阅读量130

点赞数 2

文章标签： windows

于 2024-07-03 15:06:27 首次发布

本文链接：https://blog.csdn.net/2401_83831452/article/details/140152544

版权

代码如下：

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""电脑要关机啦，喊声鹦鹉"" ",0 ,true 
dim a 
do while(a <> "鹦鹉") 
a=inputbox("两分钟就关机，说鹦鹉","你家小鹦鹉强迫你")
loop
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox"主人你真好"

运行效果图：