【抖音vbs表白代碼分享】抖音表白程序制作教程分享

抖音上最近有很多小伙伴在發彈窗的表白程序，很多小伙伴在問vbs表白代碼有哪些？抖音vbs表白代碼要如何制作？經驗啦網小編為大家帶來抖音vbs表白代碼的相關資訊，感興趣的小伙伴趕緊進來看看吧！

抖音vbs表白代碼制作教程步驟一：
在電腦上新建一個txt文件。
【【抖音vbs表白代碼分享】抖音表白程序制作教程分享】步驟二：
打開txt文件，復制以下代碼粘貼進去(可以修改中文部分，其它代碼不要動!) 。保存并關閉txt文件。
Set Seven = WScript.CreateObject(WScript.Shell)
strDesktop = Seven.SpecialFolders(AllUsersDesktop)
set oShellLink = Seven.CreateShortcut(strDesktopSeven.url)
oShellLink.TargetPath = http://user.qzone.qq.com/985390927
oShellLink.Save
Sub ak47
Set oShellLink=Nothing
seven.Run notepad,3
WScript.Sleep 500
seven.SendKeysI
WScript.Sleep 500
seven.SendKeys L
WScript.Sleep 500
seven.SendKeys o
WScript.Sleep 500
seven.SendKeys v
WScript.Sleep 500
seven.SendKeys e
WScript.Sleep 500
seven.SendKeys Y
WScript.Sleep 500
seven.SendKeys o
WScript.Sleep 500
seven.SendKeys u Too
End Sub
se_key = (MsgBox(你是我弟弟?,4,Seven_下午Time))
If se_key=6 Then
Call ak47
Else
seven.Run shutdown.exe -s -t 600
agn=(MsgBox (你死定了,在給你一次機會，你是不是,52,提示))
If agn=6 Then
seven.Run shutdown.exe -a
MsgBox 好弟弟，你真乖,,恭喜
WScript.Sleep 500
Call ak47
Else
MsgBox 你可以去死了,48,wo cao
End If
End If
步驟三：

將txt文件名稱后面的.txt改為.vbs 。
步驟四：

雙擊改名后的vbs文件即可看到和抖音視頻上一樣的效果。
注意事項
若新建的txt文件不顯示.txt，可隨便打開一個文件夾，再點擊【查看】，在【文件擴展名】前面打勾即可。

使用方法：將第一段示例或者第二段示例復制到一個新建的文本文檔中，保存。然后修改文本文檔的后綴為vbs ，
如果會彈出如下面的彈窗，就表明成功了。
第一種示例比較簡單，大家可以隨意修改里面的字，也可以加更多段msgbox帶括號的那種。
第二種示例中也可以在第三行前面隨意增加，不管加多少行都行，不過第二個示例如果她選擇拒絕就會被關機，怕
是你要被打。
Tips：除了中文用全角，其他全用半角格式輸入！
以上就是今天的全部內容了，希望對大家有幫助，更多資訊請關注經驗啦網網哦！