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
保存方式请参照上文。