展开全部
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说 我是大笨笨！哈哈，不说我就一分钟关你机，不信，试试···我说到做到！"" ",0 ,true
dim a
do while(a <> "我是大笨蛋！哈哈！我是大肥猪！")
a = inputbox ("说 我是大笨蛋！哈哈！我是大肥猪！,我就不关你的机，快撒，说 ""我是大笨笨！哈哈"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛 猪"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾 嘎嘎.爽歪歪啊 "
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说 我是大笨笨！哈哈，不说我就一分钟关你机，不信，试试···我说到做到！"" ",0 ,true
dim a
do while(a <> "我是大笨蛋！哈哈！我是大肥猪！")
a = inputbox ("说 我是大笨蛋！哈哈！我是大肥猪！,我就不关你的机，快撒，说 ""我是大笨笨！哈哈"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛 猪"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾 嘎嘎.爽歪歪啊 "
参考资料： 把它复制下来 保存到TXT文档本 然后把文档本的后缀名改为vbs 就OK了！！
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
作为北京饼干科技有限公司的工作人员，关于AIPPT免费生成PPT的功能，我可以简要介绍如下：AIPPT是一款基于人工智能技术的PPT制作工具，它为用户提供了免费生成PPT的便捷服务。用户只需简单输入PPT的主题或内容大纲，AIPPT便能智能...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
