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

步驟一：

在電腦上新建一個(gè)txt文件。

步驟二：

打開txt文件，復(fù)制以下代碼粘貼進(jìn)去(可以修改中文部分，其它代碼不要?jiǎng)?)。保存并關(guān)閉txt文件。

Set Seven = WScript.CreateObject(WScript.Shell)

strDesktop = Seven.SpecialFolders(AllUsersDesktop)

set oShellLink = Seven.CreateShortcut(strDesktop Seven.url)

oShellLink.TargetPath = http://user.qzone.qq.com/985390927

oShellLink.Save

Sub ak47

Set oShellLink=Nothing

seven.Run notepad,3

WScript.Sleep 500

seven.SendKeys I

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ì)彈出如下面的彈窗，就表明成功了。

第一種示例比較簡單，大家可以隨意修改里面的字，也可以加更多段msgbox帶括號(hào)的那種。

第二種示例中也可以在第三行前面隨意增加，不管加多少行都行，不過第二個(gè)示例如果她選擇拒絕就會(huì)被關(guān)機(jī)，怕

是你要被打。

Tips：除了中文用全角，其他全用半角格式輸入！

以上就是今天的全部內(nèi)容了，希望對(duì)大家有幫助，更多資訊請關(guān)注好吧啦網(wǎng)網(wǎng)哦！