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

以上就是抖音vbs表白代码的技巧分享，你们是否学会了呢?