淘宝开店流程 | 进货技巧 | 开店卖什么好 | 开店故事 | 微信开店 | 创业项目 | 新闻专题 | 手机
您好,[请登录][免费注册]

53货源网专业网店货源网logo

53货源网首页 > 行业新闻

抖音vbs表白代码怎么用?抖音vbs表白代码使用教程

2018/6/21 9:54:26

     最近抖音上火了一个由小伙伴自己制作的一个表白代码,很多小伙伴都在问抖音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表白代码怎么用?抖音vbs表白代码大全,小编就和大家分享这些了。希望对各位有所帮助。

声明:本站信息来源于网络或会员投稿,不代表本站观点,如有侵犯到您的权益请发邮件到kf@53shop.com我们将在第一时间删除处理。

相关热门文章

更多..

精选商家

关注我们的微信公众号

淘宝网店怎么开,找免费开网店货源,欢迎来到53网店货源网。本站的货源信息由会员发布,请妥善交易!网上进货防骗技巧》》

关于53货源网-|-网店代理-|-品牌加盟-|-网店大全-|-批发市场-|-免费发布信息-|-广告联系-|-友情链接

投诉、建议联系邮箱:kf@53shop.com (请尽量发邮件联系) QQ:93865423 广告联系 QQ:3508810008 交流QQ群:203212665(禁止任何广告)

© 2006-2019 53shop.com, all rights reserved.网店代理货源网 [闽ICP备06002980号-2]