vbs表白代码制作教程

 相信很多朋友在刷抖音的时候刷到很多表白程序,很是神奇。想知道这是怎么做的,自己也想弄一个,下面小编为大家带来了抖音vbs表白代码制作教程分享,想学习的朋友快来了解一下吧!    抖音vbs表白代码制作教程    步骤一:    在电脑上新建一个txt文件。    步骤二:    打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。    S…

大家好,又见面了,我是你们的朋友全栈君。

 相信很多朋友在刷抖音的时候刷到很多表白程序,很是神奇。想知道这是怎么做的,自己也想弄一个,下面小编为大家带来了抖音vbs表白代码制作教程分享,想学习的朋友快来了解一下吧!
  
  抖音vbs表白代码制作教程
  
  步骤一:
  
  在电脑上新建一个txt文件。
  
  步骤二:
  
  打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。
  
  Set Seven = Ws cript.CreateObject(“Ws cript.Shell”)
  
  strDesktop = Seven.SpecialFolders(“AllUsersDesktop”)
  
  set oShelll ink = Seven.CreateShortcut(strDesktop “\Seven.url”)
  
  oShelll ink.TargetPath = “http://user.qzone.qq.com/985390927”
  
  oShelll ink.Save
  
  Sub ak47
  
  Set oShelll ink=Nothing
  
  seven.Run “notepad”,3
  
  Ws cript.Sleep 500
  
  seven.SendKeys ” I “
  
  Ws cript.Sleep 500
  
  seven.SendKeys “L”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “o”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “v”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “e “
  
  Ws cript.Sleep 500
  
  seven.SendKeys “Y”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “o”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “u Too”
  
  End Sub
  
  se_key =http://zzdxjyzd.com/ (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 “好弟弟,你真乖”,,”恭喜”
  
  Ws cript.Sleep 500
  
  Call ak47
  
  Else
  
  MsgBox “你可以去死了”,48,”wo cao”
  
  End If
  
  End If
  
  步骤三:
  
  将txt文件名称后面的“.txt”改为“.vbs”。
  
  步骤四:
  
  双击改名后的vbs文件即可看到和抖音视频上一样的效果。
  
  注意事项
  
  若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击,在前面打勾即可。

转载于:https://www.cnblogs.com/dakunqq/p/11438759.html

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请联系我们举报,一经查实,本站将立刻删除。

发布者:全栈程序员-站长,转载请注明出处:https://javaforall.net/126192.html原文链接:https://javaforall.net

(0)
全栈程序员-站长的头像全栈程序员-站长


相关推荐

  • pycharm 编码怎么设置_pycharm编码格式

    pycharm 编码怎么设置_pycharm编码格式Python中默认的编码格式是ASCII格式,在没修改编码格式时无法正确打印汉字,所以在读取中文时会报错。有两种解决方法。一种是在python的编程工具Pycharm中设置默认编码pycharm下载地址:http://www.jetbrains.com/pycharm/选择社区版即可,免费。设置方法如下:入口A:工具栏-File-DefaultSettings-Editor-File…

    2022年8月27日
    5
  • jetbrains全家桶激活码 淘宝上卖的怎么来的【2021最新】

    (jetbrains全家桶激活码 淘宝上卖的怎么来的)JetBrains旗下有多款编译器工具(如:IntelliJ、WebStorm、PyCharm等)在各编程领域几乎都占据了垄断地位。建立在开源IntelliJ平台之上,过去15年以来,JetBrains一直在不断发展和完善这个平台。这个平台可以针对您的开发工作流进行微调并且能够提供…

    2022年3月22日
    46
  • PhpSpreadsheet读取excel「建议收藏」

    PhpSpreadsheet读取excel「建议收藏」PhpSpreadsheet composerrequirephpoffice/phpspreadsheet支持的格式格式读写OpenDocumentFormat/OASIS(.ods)✓✓OfficeOpenXML(.xlsx)Excel2007andabove✓✓BIFF8(.xls)Excel97anda…

    2022年9月17日
    2
  • 易语言执行mysql命令_易语言执行sql进度条 易语言mysql

    易语言执行mysql命令_易语言执行sql进度条 易语言mysql易语言的进度条怎么使用?我就让进度条每秒进一格,一百秒进度条满!用了一个时钟组件。.版本2.程序集窗口程序集3.子程序__启动窗口_创建完毕.子程序_按钮1_被单击.如果(编辑框1.内容≠“”或编辑框2.内容≠“”)时钟1.时钟周期=1000.否则信息框(“请输入内容”,0,).如果结束.子程序_时钟1_周期事件.如果(进度条1.位置<进度条…

    2022年7月13日
    51
  • BAT命令执行JS「建议收藏」

    BAT命令执行JS「建议收藏」bat命令执行JS.bat文件:cscriptWWW.js.js文件:functiondellogfile(beforedays){varfso=newActiveXObject(“Scripting.FileSystemObject”);vardir=fso.GetFolder(“E:\\IISLog\\En”);//改成你…

    2022年9月15日
    2
  • 中国电信4g最快服务器IP,中国电信DNS IP地址大全(32个省)

    中国电信4g最快服务器IP,中国电信DNS IP地址大全(32个省)中国电信DNSIP地址,包括广东电信DNS,上海电信DNS,北京电信DNS,浙江电信DNS,江苏电信DNS等共全国32个电信省份的DNSIP地址。中国电信辽宁省沈阳市DNS59.46.69.66中国电信辽宁省大连市DNS59.44.126.20中国电信青海省西宁市DNS202.100.138.68中国电信新疆乌鲁木齐市DNS61.128.114.133中国电信新疆乌…

    2022年7月11日
    267

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

关注全栈程序员社区公众号