辅助岛

 找回密码
 点我注册
查看: 2.5K|回复: 11

[技术分享] 抖音vbs表白代码大全?vbs表白代码制作教程

[复制链接]
       

已抛锚 成长值: 3810

楼主 发表于 2018-7-5 17:57:00 | 显示全部楼层 |阅读模式
本帖最后由 woainiyo 于 2018-7-5 17:59 编辑

抖音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)

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

注意事项

若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击,在前面打勾即可。






万水千山总是情      给个好评行不行


免费评分

参与人数 1好评 +2 仙豆 +5 收起 理由
何以歌 + 2 + 5 不错 存着以后告白使

查看全部评分

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复

使用道具 举报

       

 成长值: 146730

发表于 2018-7-5 17:58:19 | 显示全部楼层
这次我不是来水的 我真的需要!!

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

已抛锚 成长值: 3810

楼主 发表于 2018-7-5 17:58:46 | 显示全部楼层
啦啦啊丶 发表于 2018-7-5 17:58
这次我不是来水的 我真的需要!!

昨天刚做了一个

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

 成长值: 146730

发表于 2018-7-5 18:00:38 | 显示全部楼层
你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

已抛锚 成长值: 3810

楼主 发表于 2018-7-5 18:01:26 | 显示全部楼层
啦啦啊丶 发表于 2018-7-5 18:00
你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整

点另存为,然后名字随便取,关键后面加.vbs,注意要有点

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

 成长值: 146730

发表于 2018-7-5 18:02:20 | 显示全部楼层
woainiyo 发表于 2018-7-5 18:01
点另存为,然后名字随便取,关键后面加.vbs,注意要有点

不行的 。。。。。。 你只是 改了个名字

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

已抛锚 成长值: 3810

楼主 发表于 2018-7-5 18:02:25 | 显示全部楼层
啦啦啊丶 发表于 2018-7-5 18:00
你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整

主要我是不知道打开图片怎么改

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

已抛锚 成长值: 3810

楼主 发表于 2018-7-5 18:04:04 | 显示全部楼层
啦啦啊丶 发表于 2018-7-5 18:02
不行的 。。。。。。 你只是 改了个名字

文档上那个文件按钮,点一下有另存为,然后保存,注意后缀.vbs

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

已抛锚 成长值: 3810

楼主 发表于 2018-7-5 18:06:11 | 显示全部楼层
啦啦啊丶 发表于 2018-7-5 18:02
不行的 。。。。。。 你只是 改了个名字

可以不,可以的话给个好评呗

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

 成长值: 160235

发表于 2018-7-5 19:53:23 | 显示全部楼层
啦啦啊丶 发表于 2018-7-5 18:00
你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整

你不会调整吗

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

 成长值: 146730

发表于 2018-7-5 19:53:44 | 显示全部楼层

有人不会。。。。

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

       

 成长值: 160235

发表于 2018-7-5 19:54:25 | 显示全部楼层
啦啦啊丶 发表于 2018-7-5 19:53
有人不会。。。。

BAIDU是个好东西

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】

如何回报帮助你解决问题的吧友,一个好办法就是给对方加【好评】【仙豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 点我注册

本版积分规则

快速回复 收藏帖子 返回列表 搜索

Quick BI||论坛app|Archiver|手机版|小黑屋|辅助岛 |网站地图

GMT+8, 2024-12-23 13:53 , Processed in 0.252026 second(s), 176 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2024 Tencent Cloud.

快速回复 返回顶部 返回列表