相信很多朋友在刷抖音的時(shí)候刷到很多表白程序，很是神奇。想知道這是怎么做的，自己也想弄一個(gè)，下面小編為大家?guī)?lái)了抖音vbs表白代碼制作教程分享，想學(xué)習(xí)的朋友快來(lái)了解一下吧!

抖音vbs表白代碼制作教程

步驟一：

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

步驟二：

打開(kāi)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”，可隨便打開(kāi)一個(gè)文件夾，再點(diǎn)擊【查看】，在【文件擴(kuò)展名】前面打勾即可。

以上就是小編為大家?guī)?lái)的關(guān)于抖音表白程序怎么做 表白程序制作教程分享的全部?jī)?nèi)容了，希望能幫助到大家。更多精彩資訊盡在好吧啦網(wǎng)。