您目前的位置 : 首页 >> 广西职业技术学校 >> 正文

抖音弹窗表白程序怎么制作抖音弹窗表白代码有哪些

日期:2018-11-6(原创文章,禁止转载)

抖音弹窗表白程序怎么制作?抖音弹窗表白代码有哪些?

抖音上面有一个非常热的表白小程序,很多抖友都被这个弹窗表白的玩法惊艳到了。那么抖音弹窗表白程序怎么制作?抖音弹窗表白代码有哪些?

抖音弹窗表白程序怎么制作

步骤郑州治癫痫到哪家医院比较好一:

在电脑上新建一个txt文件。

步骤二:

打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。

Set Seven = eateObject("ell")

strDesktop = ecialFolders("AllUsersDesktop")

set oShelllink = eateShortcut(strDesktop & "\l")

rgetPath = ""

ve

Sub ak47

Set oShelllink=Nothing

n "notepad",3

eep 500

ndKeys " I "

eep 500

ndKeys "L"

eep 500

ndKeys "o"

eep 500

ndKeys "v"

eep 500

ndKeys "e "

eep 500

ndKeys "Y"

eep 500

ndKeys "o"

eep 500

吉林癫痫医院哪家治得好

ndKeys "u Too"

End Sub

se_key = (MsgBox("你是我弟弟?",4,"Seven_下午"&Time))

If se_key=6 Then

Call ak47

Else

n "e -s -t 600"

agn=(MsgBox ("你死定了,在给你一次机会,你是不是",52,"提示"))

If agn=6 Then

n "e -a"

MsgBox "好弟弟,你中医治疗癫痫病的效果如何?真乖",,"恭喜"

eep 500

Call ak47

Else

MsgBox "你可以去死了",48,"wo cao"

E呼和浩特中医治癫痫医院nd If

End If

步骤三:

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

步骤四:

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

注意事项

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

友情链接:

顽皮赖骨网 | 神印王座第二部 | 暴怒火柴人 | 丰田锐志车 | 考研预报名时间 | 德语自学教材 | 信阳罗山天气预报