VBS高端表白升级版

[code]Set Seven = WScript.CreateObject("WScript.Shell")
Sub ax
seven.Run "notepad",3
WScript.Sleep 1000
seven.SendKeys "+^"
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "    ***   ***"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "   ***** *****"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "  *************"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "  *************"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "  *************"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "   ***********"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "    *********"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "     *******"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "      *****"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "       ***"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "        *"
WScript.Sleep 200
seven.SendKeys "~"
WScript.Sleep 200
seven.SendKeys "I love you"
seven.SendKeys "+1"
End Sub

a=msgbox("你爱我吗？",4,"未婚夫 "& time&" QQ")
If a=6 Then
msgbox "我也爱你哟！",0,"未婚夫 "& time&" QQ"
Call ax
Else
b= MsgBox ("你真的不爱我吗？",52,"未婚夫 "& time&" QQ")
If b=7 Then
MsgBox "我也爱你哟！",0,"未婚夫 "& time&" QQ"
Call ax
Else
MsgBox "真的吗？呜呜呜！",0,"未婚夫 "& time&" QQ"
End If
End If

我的上一篇博文的优化版，优化的部分是增加了对话。还优化了心的形状。

原版链接为：高端表白VBS

保存方式请参照上文。