今天小编分享一篇关于抖音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表白代码大全 分享抖音vbs表白代码的技巧分享】以上就是抖音vbs表白代码的技巧分享,你们是否学会了呢?
推荐阅读
- 十一月的心情说说
- 代表爱情的15种花卉绿植 象征爱情的花
- 友达和联想屏幕哪个好 外星人友达的屏幕好还是LG
- 不可代替的实体店 廖排骨实体店
- 中国的骄傲 世界的精彩 2010上海世博会
- 糖饼的制作技巧 鱿鱼游戏糖饼要不要加水
- 吃大闸蟹能吃梨吗吃
- 拔牙后的注意事项 拔牙后睡觉不能压着拔牙侧吗
- 小孩长水痘怎么推拿好