抖音vbs表白代码抖音vbscript表白代码使用教程_F11

分享到

抖音vbs表白代码抖音vbscript表白代码使用教程

vbs 来源：互联网搜集作者：秩名发布时间：2018-11-17 18:47:32 人浏览

摘要

今天小编给大家分享抖音vbs表白代码抖音vbscript表白代码使用教程。先上个效果图步骤一：在电脑上新建一个txt文件。步骤二：打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。 Set Seven = WScript.CreateO

今天小编给大家分享抖音vbs表白代码抖音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

步骤三：

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

步骤四：

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

注意事项

若新建的txt文件不显示“.txt”，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。

您可能感兴趣的文章 :

原文链接 :

Tag : 抖音(105)vbs(6)

VBScript动态Array的实现代码

记录一个小方法，关于 VBScript 中，动态 Array 的实现，也适用于 VBA，在很久以前，写 VBA 的时候，就觉得使用 Array 和不方便，因为大小固定
VBS遍历Excel工作表的实现代码

核心代码 ******************************************拖拽文件，获取文件路径******************************************If wscript.Arguments.count=0 then msgbox 拖拽文件
拖拽文件显示文件路径的vbs代码

面两段原理都是一样的，大家可以看下代码一 If wscript.Arguments.count=0 then msgbox 拖拽文件到本vbs文件,0,提示End if for jb=0 to wscript.Arguments.count
VBS进程判断的代码

vbs核心代码 Option ExplicitDim objWMIService,colProcessList,strComputerstrComputer = .Set objWMIService = GetObject(winmgmts:{impersonationLevel=impersonate}!\\ strComputer \roo
运行vbs脚本报错无效字符、中文乱码的解决方法

代码没有问题，总是报这样的错误。测试代码 msgbox 脚本之家很简单的代码，但如果编码不对问题就很多中文乱码问题运行图因为使用了
VBS怎么获取指定目录下的文件列表

VBS肿么获取某目录下的文件列表 dim FileName,fs,foldernamefoldername = InputBox(请输入想要在哪个文件夹查找, VBS查找文件)If foldername = Thenwscript.quitE
抖音vbs表白代码抖音vbscript表白代码使用教程

今天小编给大家分享抖音vbs表白代码抖音vbscript表白代码使用教程。先上个效果图步骤一：在电脑上新建一个txt文件。步骤二：打开tx

抖音vbs表白代码 抖音vbscript表白代码使用教程

您可能感兴趣的文章 :

抖音vbs表白代码抖音vbscript表白代码使用教程