【抖音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，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。