今天归来教程小编分享一篇关于抖音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表白代码的技巧分享，你们是否学会了呢?
本文来自投稿，不代表归来教程立场，如若转载，请注明出处：https://www.guiqulai.com/2460.html
