抖音vbs表白代码大全 抖音vbscript表白代码使用方法

 更新时间:2018年07月02日 16:18:18   投稿:mdxy-dxy   我要评论

抖音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得没公开对象

    vbs得没公开对象...
    2006-06-06
  • vbs下用一个小方法实现批量添加域用户

    vbs下用一个小方法实现批量添加域用户

    在域模式下批量添加域用户就有些困难,下面是一个vbs脚本,在同级目录下用放置一个users.txt的文本文档,格式:username,password,在dc上运行该脚本,即可以将users.txt的用户信息批量添加到ad里面。可以通过移动或拖拽的方法,将生成的用户移动到ou下面,以保证ou的组策略及文件夹重定向对该用户生效。
    2008-06-06
  • VBS For Next循环的陷阱分享

    VBS For Next循环的陷阱分享

    在《VBS For Next循环的一些细节》中说到了 For Next 循环的控制变量仅仅在循环开始前求值一次,但是其中存在一处陷阱
    2013-01-01
  • vbs脚本实现批量转换文件编码

    vbs脚本实现批量转换文件编码

    这篇文章主要介绍了vbs脚本实现批量转换文件编码,可以批量对文件在Gb2312和UTF-8编码间互相转换,需要的朋友可以参考下
    2014-06-06
  • 解锁注册表的vbs脚本

    解锁注册表的vbs脚本

    解锁注册表的vbs脚本...
    2007-02-02
  • e是自然对数的底 e.vbs

    e是自然对数的底 e.vbs

    我们把e或由e经过一定变换和复合的形式定义为“自然律”。
    2009-05-05
  • VBS数组深入浅出

    VBS数组深入浅出

    VBS数组在应用中没有像其他语句那么广泛,VBS数组存在不少功能上的局限性(如二维数组的定义、赋值),在使用上也没有java等语言那么便捷
    2018-05-05
  • 用vbs实现返回 IP 配置数据

    用vbs实现返回 IP 配置数据

    用vbs实现返回 IP 配置数据...
    2007-03-03
  • VBS 下载方法(CDO.MESSAGE)

    VBS 下载方法(CDO.MESSAGE)

    LCX在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用。
    2009-07-07
  • VBS脚本加密/解密VBS脚本(简易免杀版1.1)

    VBS脚本加密/解密VBS脚本(简易免杀版1.1)

    由于杀软的原因使得“加密/解密VBS脚本”版不能正常使用,于是修改了一下加密函数逃避杀软,但同 1.0版一样由宿主解释执行脚本的特性注定了这种加密是可逆并非常脆弱的,WScript.Echo 一下Execute 后的内容即可显示源码了。 算法大家可任意改。。。。。
    2008-01-01

最新评论