表白代码

vbs脚本表白代码

代码一、做我女朋友非同意不可

msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?")
msgbox ("自从第一天遇见你,我便对你难以忘怀了!")
msgbox ("做我女朋友好吗?")
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j
do while j<1
Select Case msgbox("做我女朋友好吗?",68,"请郑重的回答我!")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的,哈哈哈哈!!")

代码二、做我女朋友不同意就关机

msgbox("你不知道,这个代码我早已写好,直到今天才有勇气发给你。请你点击确定,耐心的看完!")
msgbox("曾几何时,我一直以为自己是一艘船。木已成舟,不知何时靠岸?")
msgbox("但自从遇到你,我的罗盘就开始不停地打转。")
msgbox("我在海里徘徊,")
msgbox("我在礁石附近游荡,")
msgbox("最终,我还是搁浅在了你的岸边。")
x=msgbox("我不想再孤独下去,做我女朋友吧!",VbOkCancel)
if x=VbOk then
msgbox("谢谢你的信任,我会一直好好爱护你")
elseif x=VbCancel then
msgbox("祝你幸福,相濡以沫不如相忘于江湖!")
msgbox("电脑将会关机,再见!")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
end if

代码三、做我女朋友,即使不同意因为更爱你所以撤销关机

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

代码4、爱情测试

const title = "爱情测试"
const yourname = "王冰冰"
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

代码5、求对象原谅

msgbox"亲爱的不要生气了好不好"
msgbox"我已经深刻的认识到自己的错误了"
msgbox"但请相信我,我并不是有意的"
msgbox"能原谅我吗?亲爱的。"
dim i
do while i<1
Select Case msgbox("如果原谅我了请点是",68,"")
Case 6 i=1
Case 7
msgbox"你再考虑一下呗,我向你保证,以后绝对不会再犯了!"
end Select
loop
msgbox"谢谢亲爱的你原谅我,mua~"

vbs脚本使用教程


1.在桌面上创建一个新的文本文档 后缀名为.txt

img
2.打开文本文件,拷贝我给的代码。

img
3.文件另存为,选择路径。

img
4.将文件的后缀名改成.vbs,前面的名字任取,将编码格式改成ANSI编码!

img
5.双击vbs文件运行即可。

img
6.强制关闭,ctrl+shift+esc打开任务管理器关闭进程即可。

在这里插入图片描述

 

 

 

 

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页