电脑编程恶搞

1. 如何使用VBS代码实现恶搞关机功能并显示提示信息

恶搞的魅力在于意外的惊喜，来看看这两个创意十足的VBS代码片段，让你的电脑体验一段独特的互动吧！

首先，让我们来玩一个小游戏，这段代码巧妙地利用了on error resume next语句和InputBox函数，创建了一个“爱的挑战”：

• 通过WSHshell对象，程序启动命令提示符，命令行中隐藏的信息仿佛在催促：“如果你说‘我爱你’，我就饶你一命，不然30秒后，bye-bye了哦。”


• 循环中，程序等待用户输入“我爱你”，每一次对话框弹出，仿佛是电脑在期待着你的回答。当你输入正确时，它会温柔地告诉你：“虽然你爱我，但我还是要执行任务。”

但别以为这样就结束了，第二个恶搞程序更狡猾：

• “毒气”来袭，一个狡猾的MsgBox弹出，戏谑道：“哈哈，你中毒了，尽管试图关闭我，但我掌控全局。”


• 最后，程序以一个神秘的“loo”结束，留下悬念，让人忍不住想要解开它的秘密。

这些恶搞代码充满了趣味性，它们或许会给你日常生活中的计算机操作增添一点轻松与幽默。虽然简单，却能让你的电脑成为一个会说话、有个性的朋友。

让我们一起探索更多编程的乐趣，这些代码片段只是冰山一角，期待你的创新与改编。希望这些小恶搞能为你的编程世界增添一抹亮色！

2. 求恶搞小程序，编程代码，最好是VB的

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) + "哈哈哈哈，一切皆有可能~"
这是网上流行的一种让别人关机的代码