VBS奇葩操作 “我是猪”

原创已于 2022-10-17 09:17:57 修改 · 2.9k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言 #游戏程序 #小程序

于 2022-03-17 10:32:10 首次发布

整蛊同时被 3 个专栏收录

2 篇文章

订阅专栏

Windows

1 篇文章

订阅专栏

VBScript

1 篇文章

订阅专栏

这篇博客介绍了如何使用VBScript创建一个整蛊小程序，该程序运行后会在用户不承认“我是猪”时在一分钟后关机，即使尝试结束任务也无法阻止。作者提供了详细步骤，包括创建文本文档，编写代码，修改文件扩展名为.vbs，更改编码为ANSI并运行。同时提醒，若要分享给他人，可以查看作者关于VBS打包为exe的教程。

✅作者简介：华为云开发者联盟社区创作者🏆
📃个人主页：北雨·寒冰~ 的优快云博客
🔥系列专栏：易语言
💬个人格言：书山有路勤为径，学海无涯苦作舟

前言

VBScript是微软公司开发的一款语言，难度较大、但很实用。

很多整蛊代码都是用它写的。而且无需安装运行程序。今天，北雨就带大家制作一个 “我是猪”的小程序！如果要现成的在文章最底部。

特点

运行后不说 “我是猪” 就会在一分钟关机，结束任务也不行。

有时候360安全警报会报错，不要担心，直接选择信任。

1.先建立一个文本文档

鼠标桌面右键 — 选择新建 — 选择 “文本文档”

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBASi5SIEhFUlJZ,size_14,color_FFFFFF,t_70,g_se,x_16

·注意* 需要在此电脑 — 查看中勾选 “文件扩展名”

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBASi5SIEhFUlJZ,size_20,color_FFFFFF,t_70,g_se,x_16

2.上代码

双击新建立的文本，输入代码：

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,64,"MsgBox" 
loop 
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" ,64,"哈哈哈"
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~" ,64,"没办法~"