抖音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”，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。

以上就是小编为大家带来的关于抖音表白程序怎么做 表白程序制作教程分享的全部内容了，希望能帮助到大家。更多精彩资讯尽在好吧啦网。