简单的表白代码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”，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。
本文由'康巳'发布，不代表演示站立场，转载/删除联系作者，如需删除请-> 关于侵权处理说明。
相关推荐
-
忍者的时代即将结束用日语怎么说?（
忍者的时代即将结束用日语怎么说?（忍者的时代即将结束日语用中文字同音怎么读），，忍者的时代即将结束用日语怎么说?，忍者的时代即将结束日语用中文字同音怎么读相信很多小伙伴还不知道,现在让我们一起来看看吧！1、中文：忍者的时代即将结束。2、日语：忍びの时代は终わる（しのびのじだいはおわる）中文字同音：西no比no鸡大一哇哦哇路（o参考英语音标...
-
PS怎么换背景颜色（ps怎么换背景颜色
PS怎么换背景颜色（ps怎么换背景颜色白色），，PS怎么换背景颜色，ps怎么换背景颜色白色相信很多小伙伴还不知道,现在让我们一起来看看吧！1、1，打开ps,点击文件上的打开。2、2，选择要进行处理的PDF。3、3，可以看到，此时的页面是透明的。4、4，看图中圈起的部分，新建一个图层。5、5，鼠标左击新建的图层，长按，拖动到原图层的下面，注...
-
行政公文格式标准模板（行政公文格式
行政公文格式标准模板（行政公文格式），，行政公文格式标准模板，行政公文格式相信很多小伙伴还不知道,现在让我们一起来看看吧！1、公文格式 一、公文用纸 统一采用国际标准A4型纸，双面印刷。2、 二、行文格式主要要求 （一）发文机关标示：由发文机关全称或规范化简称后加“文件”组成。3、发文机关标识上边缘至版心上边缘为25mm，上报公文的发文机...
-
地下补丁放在哪个文件夹里？
地下补丁放在哪个文件夹里？，，地下补丁放在哪个文件夹里？相信很多小伙伴还不知道,现在让我们一起来看看吧！1、下载补丁解压在文件夹中的DNF找到ImagePacks2解压进去就可以了以后所有的补丁都是放这里。2、这也是保存补丁的路径威视达康。本文就为大家分享到这里，希望小伙伴们会喜欢。...
-
天语新尚明
天语新尚明，，天语新尚明相信很多小伙伴还不知道,现在让我们一起来看看吧！1、三星SCX-3401一体机复印文件，请按照以下步骤操作：一、针对带导航控制面板和上面进纸器的机型按控制面板上的【复印】键。2、2、将要复印的原件字面朝下放置到玻璃板上或字面朝上放置到上面进纸器中。3、3、原件放置好后，按机器面板上的【开始】键即可复印(如果需要选择...
-
感冒嗓子疼怎么办最简单的偏方（感冒
感冒嗓子疼怎么办最简单的偏方（感冒嗓子疼怎么办最简单的方法），，感冒嗓子疼怎么办最简单的偏方，感冒嗓子疼怎么办最简单的方法相信很多小伙伴还不知道,现在让我们一起来看看吧！1、治疗感冒嗓子疼，最简单的方法就是用金银花水。2、因为金银花水能缓解嗓子疼痛，它具有去火的作用，并且能排除体内的火气。3、2、此外还应该要多喝一些温开水，这样也能有效缓...
-
丝带蝴蝶结的打法简单（丝带蝴蝶结的
丝带蝴蝶结的打法简单（丝带蝴蝶结的打法），，丝带蝴蝶结的打法简单，丝带蝴蝶结的打法相信很多小伙伴还不知道,现在让我们一起来看看吧！1、取一叉子，缎带放于叉子下方，再把缎带的一端从叉子的左边绕到叉子上面，用左手按住缎带让其固定不动。2、2、把右端的缎带从叉子的第二和第三齿孔中间穿过后，拉紧两端的缎带。3、3、再把左手边的缎带从叉子的第二和第...
-
网易我的世界皮肤怎么做（网易我的世
网易我的世界皮肤怎么做（网易我的世界皮肤怎么换），，网易我的世界皮肤怎么做，网易我的世界皮肤怎么换相信很多小伙伴还不知道,现在让我们一起来看看吧！1、首先登入Skimme网站（换皮肤的），注册一个账号，再添加一个新角色。2、新角色的名字就是你的游戏名，下载他们的换肤模组（很简单的，不麻烦）。3、再上传你下载好的皮肤文件，然后一键换肤就行了...
-
iherb新人首单优惠8折（iherb优惠码）
iherb新人首单优惠8折（iherb优惠码），，iherb新人首单优惠8折，iherb优惠码相信很多小伙伴还不知道,现在让我们一起来看看吧！1、iherb优惠码现在最新版的是先切换到中文界面，再注册一个号，然后选择自己需要的商品。2、再点击加入购物车并点击右上方购物车的图标进行结算后，填入收货地址，选择运输方式。3、最后选支付方式，上传...
-
epub格式文件怎么转为pdf格式（epub
epub格式文件怎么转为pdf格式（epub格式文件怎么打开），，epub格式文件怎么转为pdf格式，epub格式文件怎么打开相信很多小伙伴还不知道,现在让我们一起来看看吧！1、epub可以用stanza的PC版打开，也可以用Firefox、Chrome上的相应的插件，国内的浏览器诸如猎豹，360，QQ等双核浏览器，的高速内核都是使用的C...