【抖音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，

如果会弹出如下面的弹窗，就表明成功了。

第一种示例比较简单，大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

第二种示例中也可以在第三行前面随意增加，不管加多少行都行，不过第二个示例如果她选择拒绝就会被关机，怕

是你要被打。

Tips：除了中文用全角，其他全用半角格式输入！

以上就是今天的全部内容了，希望对大家有帮助，更多资讯请关注好吧啦网网哦！