抖音弹窗表白程序怎么制作 vbs表白代码大全

user 2019-9-9 233

抖音上面有一个非常热的表白小程序,很多抖友都被这个弹窗表白的玩法惊艳到了。抖音弹窗表白程序怎么制作呢?小编为你带来了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 = (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”,可随便打开一个文件夹,再点击查看?,在文件扩展名?前面打勾即可。



少客联盟- 版权声明 1、本主题所有言论和图片纯属会员个人意见,与少客联盟立场无关。
2、本站所有主题由该帖子作者发表,该帖子作者user少客联盟享有帖子相关版权。
3、少客联盟管理员和版主有权不事先通知发贴者而删除本文。
4、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者user少客联盟的同意。
5、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任。
6、本帖部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责。
7、如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意。
8、官方反馈邮箱:chinasuc@chinasuc.cn


上一篇:遍及全球的免费vpn+活跃IP扫描器+ScanPort端口扫描工具
下一篇:抖音表白代码电脑弹窗表白怎么制作?附制作方法
所有人都在等你长大 但没有人陪着你长大
最新回复 (0)
    • 少客联盟
      2
        登录 注册 QQ登录(停用)
返回