抖音vbs表白代码大全?vbs表白代码制作教程
本帖最后由 woainiyo 于 2018-7-5 17:59 编辑抖音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.SaveSub ak47Set oShelllink=Nothingseven.Run "notepad",3Wscript.Sleep 500seven.SendKeys " I "Wscript.Sleep 500seven.SendKeys "L"Wscript.Sleep 500seven.SendKeys "o"Wscript.Sleep 500seven.SendKeys "v"Wscript.Sleep 500seven.SendKeys "e "Wscript.Sleep 500seven.SendKeys "Y"Wscript.Sleep 500seven.SendKeys "o"Wscript.Sleep 500seven.SendKeys "u Too"End Subse_key = (MsgBox("你是我弟弟?",4,"Seven_下午"&Time))If se_key=6 ThenCall ak47Elseseven.Run "shutdown.exe -s -t 600"agn=(MsgBox ("你死定了,在给你一次机会，你是不是",52,"提示"))If agn=6 Thenseven.Run "shutdown.exe -a"MsgBox "好弟弟，你真乖",,"恭喜"Wscript.Sleep 500Call ak47ElseMsgBox "你可以去死了",48,"wo cao"End IfEnd If步骤三：将txt文件名称后面的“.txt”改为“.vbs”。（或点击文本，另存为，注意后面的.vbs）双击改名后的vbs文件即可看到和抖音视频上一样的效果。注意事项若新建的txt文件不显示“.txt”，可随便打开一个文件夹，再点击，在前面打勾即可。
万水千山总是情 给个好评行不行
这次我不是来水的 我真的需要！！ 啦啦啊丶 发表于 2018-7-5 17:58
这次我不是来水的 我真的需要！！
昨天刚做了一个 你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整 啦啦啊丶 发表于 2018-7-5 18:00
你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整
点另存为，然后名字随便取，关键后面加.vbs，注意要有点 woainiyo 发表于 2018-7-5 18:01
点另存为，然后名字随便取，关键后面加.vbs，注意要有点
不行的 。。。。。。 你只是 改了个名字 啦啦啊丶 发表于 2018-7-5 18:00
你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整
主要我是不知道打开图片怎么改 啦啦啊丶 发表于 2018-7-5 18:02
不行的 。。。。。。 你只是 改了个名字
文档上那个文件按钮，点一下有另存为，然后保存，注意后缀.vbs 啦啦啊丶 发表于 2018-7-5 18:02
不行的 。。。。。。 你只是 改了个名字
可以不，可以的话给个好评呗 啦啦啊丶 发表于 2018-7-5 18:00
你这个坑人的。。。。 而且我补充一句 有些人电脑上不显示后缀的 你没补充完整
你不会调整吗 北bei 发表于 2018-7-5 19:53
你不会调整吗
有人不会。。。。 啦啦啊丶 发表于 2018-7-5 19:53
有人不会。。。。
BAIDU是个好东西
页:
[1]