表白代码

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

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

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

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

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

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