您的位置:首页技术文章
文章详情页

抖音vbs表白代码分享 vbs表白代码制作教程

【字号: 日期:2023-06-02 14:47:15浏览:83作者:猪猪

相信很多朋友在刷抖音的时候刷到很多表白程序,很是神奇。想知道这是怎么做的,自己也想弄一个,下面小编为大家带来了抖音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

步骤三:

抖音vbs表白代码分享 vbs表白代码制作教程

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

步骤四:

抖音vbs表白代码分享 vbs表白代码制作教程

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

注意事项

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

以上就是小编为大家带来的关于抖音表白程序怎么做 表白程序制作教程分享的全部内容了,希望能帮助到大家。更多精彩资讯尽在好吧啦网。

标签: 抖音
相关文章: