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

相信很多朋友在刷抖音的時候刷到很多表白程序，很是神奇。想知道這是怎么做的，自己也想弄一個，下面小編為大家帶來了抖音vbs表白代碼制作教程分享，想學習的朋友快來了解一下吧!

抖音vbs表白代碼制作教程

步驟一：

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

步驟二：

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

以上就是小編為大家帶來的關于抖音表白程序怎么做 表白程序制作教程分享的全部內容了，希望能幫助到大家。更多精彩資訊盡在好吧啦網。