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)
全栈程序员-站长的头像全栈程序员-站长


相关推荐

  • mysql登陆方法_开心网登录

    mysql登陆方法_开心网登录登录mysqlu 用户名 -p 用户对应密码 -h 主机socket:(IP地址:端口号) eg:192.168.10.113:3306 1.方法:mysql-uroot-p密码 mysql-uroot-p mysql-hlocalhost-uroot-p (1)mysql-uroot-p123…

    2022年4月19日
    36
  • mybatis的逆向工程怎么实现_mybatis逆向工程原理

    mybatis的逆向工程怎么实现_mybatis逆向工程原理复习逆向工程的使用,记录方便以后参考mybatis,一个相对于hibernate的轻量级DAO框架,它的逆向工程可以很方便的从数据库到生成对应的entity和mapper接口。首先准备:准备pom.xml引入mybatisgenerator的jar,若不是maven工程,可以把jar下载下来导进工程的lib下即可01.引入依赖(加入jar)进入ma

    2022年8月21日
    6
  • 树莓派Python教程:树莓派能做什么

    树莓派Python教程:树莓派能做什么第一课:什么是树莓派第二课:树莓派能做什么第三课:购买您的第一个树莓派第四课:如何安装树莓派系统1~4课如果看过C语言版本的,请掠过…第二课:树莓派能做什么树莓派能做什么,莫过于来看一遍树莓派的10个经典项目的视频了,我们先以图片的形式过一遍。NO.1树莓派实现VR注意这个人头上戴的是一个虚拟3D眼镜,他看到的场景是树莓派上安装的两个摄像头,这两个摄像头就相当于人的两只眼睛,把视频传到这个眼镜,然后通过openGl渲染一个场景出来,从而控制这个机器人去做一些事情,这个机器人就是用树莓派

    2022年5月1日
    60
  • Python匹马行天下之python之父

    Python匹马行天下之python之父龟叔和他的python经过了漫长的旅程,终于要看到主角Python了。Python是现在非常非常流行的编程语言,在我们能看到的大部分编程语言排行榜中,Python都能在前三甲中拥有一席之地,并且发

    2022年7月5日
    23
  • leetcode 两数相加(两个数相加分别叫什么)

    publicclasstest{ publicstaticvoidmain(String[]args){ System.out.println("HelloWorld!"); ListNodea=newListNode(0); ListNodeb=newListNode(0); a.val=2; a.next=newListNode(4); a….

    2022年4月10日
    40
  • 下载和安装MySQL(傻瓜)教程[通俗易懂]

    下载和安装MySQL(傻瓜)教程[通俗易懂]1.下载MySQL打开MySQL官网:MYSQL官网2.安装安装mysql时一直卡在startingtheserver这一位置,解决办法3.检查是否安装成功4.安装成功后进行登录

    2022年5月6日
    65

发表回复

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

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