爱情测试-爱情测试vbs代码 _生活百科

VBS是基于Visual Basic的脚本语言，简单方便，不需要下载编译器，更不需要配置环境，只用windows自带的记事本就可以进行开发，简单粗暴。
右键新建“文本文档”->粘贴代码->另存为“xxx.vbs”->保存->双击运行。
接下来就是代码了：
1.最简单的一行代码
MsgBox "你个猪头！"

文章插图

文章插图
当然你还可以多写几行其他有趣的文字，程序将会一行一行运行。
2.死循环恶搞
上个代码点完“确定”就运行结束了，想要整人还是不够，那我们可以加一个死循环，点击确定和关闭按钮之后，会再一次弹出窗口，如此循环，无法正常关闭。
domsgbox "你个猪头！"loop那怎么才能关闭呢？只有打开任务管理器（快捷键Ctrl+Alt+Delete）找到wscript.exe进程冰右键结束任务。 windows7系统wscript.exe在”进程“中， windows10系统wscript.exe在”详细信息“中。

文章插图
结束wscript.exe进程
3.无限英文报数从1到无穷大，关闭方法同上
Set s = CreateObject("sapi.spvoice")i=0do s.speak i i=i+1loop4.无限刷新（慎用！！！）刷新难以打开任务管理器，只能强行关机
set ws=createobject("wscript.Shell")do ws.sendkeys "{f5}"loop5.QQ连续发送信息骚扰好友
打开QQ ，准确记下好友的备注，代码里的”菜鸡“替换为你的好友备注，数字”30“替换为你想要发送的次数，复制好你准备发送的消息，双击运行vbs 。
On Error Goto 0 Dim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 30wscript.sleep 100 wsh.AppActivate("菜鸡") wsh.sendKeys "^v"wsh.sendKeys "%s" next wscript.quit

文章插图
QQ骚扰好友
6.表白代码
其中用到了定时关机，但是后面会取消的。
Set Seven = WScript.CreateObject("WScript.Shell")strDesktop = Seven.SpecialFolders("AllUsersDesktop") set oShellLink = Seven.CreateShortcut(strDesktop & "Seven.url") oShellLink.Savese_key = (MsgBox("我喜欢你很久了，你可以做我女朋友吗是=同意否=拒绝 ",4,"我没有开玩笑！！！"))If se_key=6 ThenMsgBox "谢谢你给了我这次机会， I Love You",64,"Love you"Elseseven.Run "shutdown.exe -s -t 600"agn=(MsgBox ("我真的很喜欢你！求你了，别拒绝我，好吗？是=同意否=拒绝",4,"别拒绝我，好吗？"))If agn=6 Thenseven.Run "shutdown.exe -a"MsgBox "谢谢你给了我这次机会， I Love You",,"Love you"WScript.Sleep 500Else MsgBox "唉，那祝你能找到自己喜欢的人，若可回头记住我在你身后一直等你！ --爱你的人",64,"祝你幸福！！"seven.Run "shutdown.exe -a"MsgBox "其实你拒绝了我，我也不会关你电脑的！因为你是我最重要的人，我不会捉弄你的！",64,"我愿意等你！"End IfEnd If

文章插图
延时关机
7.撩妹代码
只有再回答出设定好的名字是，循环才会结束
const title = "爱情测试"const yourname = "小Y"const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。 "const info = "你在说谎！不要逃避，实话实说。 "const scend = "你说出了你的心扉，那就向他（她）表白吧。 "dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation+vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation+vbokonly, title

以上关于本文的内容，仅作参考！温馨提示：如遇专业性较强的问题（如：疾病、健康、理财等），还请咨询专业人士给予相关指导!

「辽宁龙网」www.liaoninglong.com小编还为您精选了以下内容，希望对您有所帮助：