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

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

2020-08-19 10:38VBS代码网 VBS

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

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

服务器之家以前就收录了类似这样的属于恶作剧的代码，其实就是判读如果不是你想要的结果就是死循环。

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

抖音 vbs 表白代码制作教程

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

步骤一：

在电脑上新建一个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