抖音VBS表白程序如何制作?使用TXT制作vbs表白程序的方法

发布网友发布时间：2023-09-26 15:21

我来回答

共1个回答

热心网友时间：2024-11-20 20:40

抖音VBS表白程序如何制作？最近抖音上最红的是什么，当然是表白小程序啦，本文所介绍的么操作步骤不了解代码或者电脑小白都可以上手制作出抖音表白小程序。

使用TXT制作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

步骤三：

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

步骤四：

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

注意事项

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