抖音vbs表白代码大全 抖音vbs表白代码怎么用

原文来自：http://app.3dmgame.com/gl/90206.html

抖音vbs表白代码大全分享，最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法，感觉非常的有趣。不过不少玩家还不知道怎么弄的，下面就来一起看下制作方法吧。

抖音vbs表白代码制作教程

步骤一：

在电脑上新建一个txt文件。

步骤二：

打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\pdbn's blog.url")
oShellLink.TargetPath = "https://pdbn.top/"
oShellLink.Save
Sub ak47
Set oShellLink=Nothing
seven.Run "notepad",3
WScript.Sleep 500
seven.SendKeys "W"
WScript.Sleep 500
seven.SendKeys " E"
WScript.Sleep 500
seven.SendKeys " L"
WScript.Sleep 500
seven.SendKeys " C"
WScript.Sleep 500
seven.SendKeys " O"
WScript.Sleep 500
seven.SendKeys " M"
WScript.Sleep 500
seven.SendKeys " E "
End Sub
se_key = (MsgBox("你是我弟弟?",4,"pdbn's blog"))
If se_key=6 Then
Call ak47
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("你死定了,在给你一次机会，你是不是",52,"pdbn's blog"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "好弟弟，你真乖",,"pdbn's blog"
WScript.Sleep 500
Call ak47
Else
MsgBox "你可以去死了",48,"pdbn's blog"
End If
End If

步骤三：

将txt文件名称后面的“.txt”改为“.vbs”。

步骤4

双击改名后的vbs文件即可看到和抖音视频上一样的效果。

360可能会提示如下：直接允许即可，不是病毒。

注意事项

若新建的txt文件不显示“.txt”，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。