抖音vbs表白代码大全 抖音vbscript表白代码使用方法

当然斗音很热，这篇文章也有蹭热度的嫌疑。

悠久资源网以前就收录了类似这样的属于恶作剧的代码，其实就是判读如果不是你想要的结果就是死循环。

抖音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表白代码(简单实用!)