抖音vbs表白代码怎么制作?抖音vbs表白代码制(vbs代码教程)
抖音vbs表白代码怎么制作?抖音vbs表白代码制(vbs代码教程),
抖音vbs表白代码最近很火爆,不少用户都在咨询是怎么制作出来的,代码要如何写?抖音vbs表白代码怎么制作?下面分享抖音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脚本常用经典代码 1、VBS获取系统安装路径 /*先定义这个变量是获取系统安装路径的,然后我们用“&strWinDir&”调用这个变量。*/ setWshShell = WScript.CreateObject("WScript.She...
*:vbs代码教程dim name name=inputbox("对话框内容","标题") msgbox name,,"标题" name="2222222" msgbox name,,"" Cbool 函数将变量转化成布尔值 Cbyte 函数将变量转换成整数 0-255 Ccur 函数、Cdb...
*:vbs代码教程name=inputbox("对话框内容","标题") msgbox name,,"标题" name="2222222" msgbox name,,"" Cbool函数将变量转化成布尔值 Cbyte函数将变量转换成整数0-255 Ccur函...
*:三、第一个VBS脚本 学过编程的兄弟都知道,接下来肯定又是“Hello World!”的环节,因为大部分计算机编程类入门第一个程序就是输出“Hello World!”。 打开你的...
*:VBS是Microsoft Visual Basic Script Edition的简称,是基于Visual Basic开发的脚本语言。一般运行VBS,只需要创建一个文本文档,然后输入代码,再将后缀改为vbs就...
*:教程1 1 首先,我们先要知道vbs在哪里写。其实肥肠简单!只要在windows上开启记事本,就可以开始编辑。2 然后今天我们先认识几个比较基础的:msgbox,inputbox,rem和dim.我们先来...
*:一:VBS代码的编写: 编写VBS代码可以使用任意一款文本编辑器来实现,在此小编强烈建议大家使用带有语法着色功能的文本编辑器(如EidtPlus32或Notepad++)来编写VB...
*:一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=>...