抖音上用vbs寫表白的小程式
阿新 • • 發佈:2018-12-22
寫這個只是想說明看似很難的東西其實並沒有想的那麼複雜
寫這個只需要你新建一個記事本(文字文件),然後寫程式碼,最後儲存的時候字尾名加上.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