最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法,感觉非常的有趣。那么这个是怎么弄的呢?其实很简单。下面小编为大家带来了具体的教程,快来看看吧! 抖音vbs表白代码制作教程 步骤一: 在电脑上新建一个txt文件。 步骤二: 打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。 SetSeven=WScript.CreateObject("WScript.Shell") strDesktop=Seven.SpecialFolders("AllUsersDesktop") setoShellLink=Seven.CreateShortcut(strDesktop&"\Seven.url") oShellLink.TargetPath="http://user.qzone.qq.com/985390927" oShellLink.Save Subak47 SetoShellLink=Nothing seven.Run"notepad",3 WScript.Sleep500 seven.SendKeys"I" WScript.Sleep500 seven.SendKeys"L" WScript.Sleep500 seven.SendKeys"o" WScript.Sleep500 seven.SendKeys"v" WScript.Sleep500 seven.SendKeys"e" WScript.Sleep500 seven.SendKeys"Y" WScript.Sleep500 seven.SendKeys"o" WScript.Sleep500 seven.SendKeys"uToo" EndSub se_key=(MsgBox("你是我弟弟?",4,"Seven_下午"&Time)) Ifse_key=6Then Callak47 Else seven.Run"shutdown.exe-s-t600" agn=(MsgBox("你死定了,在给你一次机会,你是不是",52,"提示")) Ifagn=6Then seven.Run"shutdown.exe-a" MsgBox"好弟弟,你真乖",,"恭喜" WScript.Sleep500 Callak47 Else MsgBox"你可以去死了",48,"wocao" EndIf EndIf 步骤三: 将txt文件名称后面的“.txt”改为“.vbs”。 步骤四: 双击改名后的vbs文件即可看到和抖音视频上一样的效果。 注意事项 若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。 |
正在阅读:抖音短视频vbs表白代码使用教程抖音短视频vbs表白代码使用教程
2018-07-10 11:08
出处:其他
责任编辑:liukaiping