DDR爱好者之家 Design By 杰米
当然斗音很热,这篇文章也有蹭热度的嫌疑。
以前就收录了类似这样的属于恶作剧的代码,其实就是判读如果不是你想要的结果就是死循环。
抖音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”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2024年04月29日
2024年04月29日
- 杉果福袋¥35.8抽《庄园领主》《地狱潜兵2》
- Bruckner-SymphoniesNos.56-NewPhilharmoniaOrchestra,OttoKlemperer(2024)[24-192]FLA
- 群星《梦舞池3》WAV分轨
- 黄凤凤.2011-丽风金典系列VOL.1【丽风】2cd【WAV+CUE】
- 大部分情侣是食色性也的酒肉情侣 3D区X光片的囧图
- 《崩坏:星穹铁道》迎一周年!登陆游戏送10连抽
- 布兰妮与父亲达成和解:需向父亲支付200多万法律费
- Taylor Swift霉霉《THE TORTURED POETS DEPARTMENT THE ANTHOLOGY》[FLAC][766M]
- 潘美辰《金歌点唱 HDCD 》[WAV+CUE][603M]
- 久石让 《你想活出怎样的人生》原声带[FLAC][314M]
- 【原神】枫丹V4.6世界任务 | 第三章·法沙利亚狂想曲
- 【原神】1.0~4.6开服至今「全隐藏成就」统计汇总
- 方大同.2007-爱爱爱音乐会THISLOVELIVE2007【华纳】【WAV+CUE】
- 群星.2024-叶振棠80【环星】【FLAC分轨】
- 庄达菲.2024-东张西望(EP)【创娱无界】【FLAC分轨】