抖音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”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。
使用方法:
将第一段示例或者第二段示例复制到一个新建的文本文档中,保存。然后修改文本文档的后缀为vbs,
如果会弹出如下面的弹窗,就表明成功了。
第一种示例比较简单,大家可以随意修改里面的字,也可以加更多段msgbox带括号的那种。
第二种示例中也可以在第三行前面随意增加,不管加多少行都行,不过第二个示例如果她选择拒绝就会被关机,怕
是你要被打。
Tips:除了中文用全角,其他全用半角格式输入!
抖音能不能不追风能不能敢喊痛能不能奔跑时和往后退一样从容是什么歌 歌曲分享
抖音有些爱越想抽离却越更清晰而最痛的距离是你不在身边却在我的心里是什么歌 歌曲分享
抖音原谅我不可自拔可能不经意看你一眼百米冲刺都会停下是什么歌 歌曲分享
抖音有些回忆像风吹落星空碎进我的梦醒来眼角的红嘲笑自己竟然被感动是什么歌 歌曲分享
抖音爱是经不起风吹雨打的娇艳花朵可不可以用一生的时间爱我是什么歌 歌曲分享
抖音爱上未来的你为了一颗柔软的心我被困在这爱情的迷雾里是什么歌 歌曲分享