整蛊朋友的代码VBS(第二弹)

这是一篇介绍如何使用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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值