日期: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”,可随便打开一个文件夹,再点击查看?,在文件扩展名?前面打勾即可。