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

抖音上最近有很多小伙伴在發(fā)彈窗的表白程序，很多小伙伴在問vbs表白代碼有哪些？抖音vbs表白代碼要如何制作？經(jīng)驗(yàn)啦網(wǎng)小編為大家?guī)矶兑魐bs表白代碼的相關(guān)資訊，感興趣的小伙伴趕緊進(jìn)來看看吧！

抖音vbs表白代碼制作教程步驟一：
在電腦上新建一個(gè)txt文件。
【【抖音vbs表白代碼分享】抖音表白程序制作教程分享】步驟二：
打開txt文件，復(fù)制以下代碼粘貼進(jìn)去(可以修改中文部分，其它代碼不要?jiǎng)?) 。保存并關(guān)閉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 (你死定了,在給你一次機(jī)會(huì)，你是不是,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文件即可看到和抖音視頻上一樣的效果。
注意事項(xiàng)
若新建的txt文件不顯示.txt，可隨便打開一個(gè)文件夾，再點(diǎn)擊【查看】，在【文件擴(kuò)展名】前面打勾即可。

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