寫這個只是想說明看似很難的東西其實並沒有想的那麼複雜

寫這個只需要你新建一個記事本（文字文件），然後寫程式碼，最後儲存的時候字尾名加上.vbs即可，非常簡單

直接複製進去即可（" "裡的中文是隨便寫的,每一句的 ' 後面的是註釋,可不寫）

Dim Msg1,Msg2,Msg3 '定義訊息文字
Dim Response '定義返回物件
Dim Msg()
redim Msg(5)
Msg(0) = "做我女朋友好嗎？"
Msg(1) = "房產證上寫你名！"
Msg(2) = "保大"
Msg(3) = "我媽會游泳"
Msg(4) = "工資全上交"
Style = vbYesNo + vbInformation
Title = "小姐姐我要撩你"
for i=0 to 4
Response = MsgBox(Msg(i), Style, Title)
If Response = vbYes Then ' 使用者選擇[是].
MyString = "Yes" ' Preform some action.
Response = MsgBox("我就知道你會同意的，哈哈！",vbOKOnly ,Title)
exit for
Else ' 使用者選擇[否],
MyStrig = "No" ' Perform some action.
If i =4 Then
i=-1
End If
End If
Next