抖音VBS表白程序如何制作？最近抖音上最紅的是什么，當(dāng)然是表白小程序啦，本文所介紹的么操作步驟不了解代碼或者電腦小白都可以上手制作出抖音表白小程序。

使用TXT制作vbs表白程序的方法

步驟一：

在電腦上新建一個txt文件。

步驟二：

打開txt文件，復(fù)制以下代碼粘貼進去(可以修改中文部分，其它代碼不要動!)。保存并關(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 ("你死定了,在給你一次機會，你是不是",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”，可隨便打開一個文件夾，再點擊【查看】，在【文件擴展名】前面打勾即可。

以上就是小編為大家?guī)硎褂肨XT制作vbs表白程序的方法，希望能對您有所幫助，小伙伴們有空可以來武林網(wǎng)網(wǎng)站，我們的網(wǎng)站上還有許多其它的資料等著小伙伴來挖掘哦！