做我儿子好吗

版权声明：一个被隔壁肥宅嘲笑的... https://blog.csdn.net/weixin_38641550/article/details/81559959

msgbox "做我儿子好吗",vbQuestion,"在吗"
msgbox ("儿子")
msgbox ("儿子")
msgbox ("儿子")
dim j
 CreateObject("SAPI.SpVoice").Speak "儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子儿子"

do while j<1
Select Case msgbox("做我儿子好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop

msgbox("我就知道你会同意的，哈哈哈哈")

用txt写 然后改为.vbs