整蛊朋友的代码VBS（第二弹）

最新推荐文章于 2024-08-19 22:01:10 发布

原创最新推荐文章于 2024-08-19 22:01:10 发布 · 7.4k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#servlet #javascript #java

一些零碎代码专栏收录该内容

2 篇文章

订阅专栏

这是一篇介绍如何使用JavaScript编写类似VBS整蛊代码的博客，内容包括让朋友认错、模拟意外收养和执行关机操作等恶作剧环节。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

注意！这是用JavaScript编写，编码格式改为ANSI，后缀名改成VBS！

1.快认错！

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "好吧。这次我就原谅你吧！"

2.”收获“一只”儿子“

const title = "儿子，快叫一声爸爸来听听"
const yourname = "爸爸"
const question = "儿子，快在下面方框内输入“爸爸”"
const info = "不叫爸爸还想跑？呵呵^o^"
const scend = "哎，儿子乖"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title

3.直接关机

dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell”)
WSHshell.run “shutdown -f -s -t 00”,0 ,true