【新人新贴老鸟忽略】有关于vbs文件的一些好玩的代码 - 喵宅苑 MewoGarden × 技术宅社区II

喵宅苑 MewoGarden × 技术宅社区II | Z站 Z Station 棒棒哒纯文字二次元技术社区

正文

作者:_浮生未歇

[i=s] 本帖最后由 _浮生未歇于 2014-3-27 12:20 编辑 [postbg]bg1.png[/postbg]本人工科小宅一枚，由于兴趣原因高考选择了通信专业。#37j谁知此专业学习之苦【忽略1万字】#35j 平常喜欢在宿舍上网搞搞一些有趣的研究。我们学过了很多的编程语言，但是出于对语言热衷的我又在网上寻觅了很多有趣的代码。#30j vbs代码是我偶然发现的一个有趣的代码。现在我就发一个最简单可以运行音频的一段代码： CreateObject("SAPI.SpVoice").Speak "鹅鹅鹅，曲项向天歌。白毛浮绿水，红掌拨清波!" 这个代码可以先输入到一个文本文件中，然后保存为vbs文件即可[attach]299332[/attach]，运行之后就会输出一段音频。这个其实仅仅是个热身。#38j 接下来的就有点高端（其实这个小小的代码可以用来表白也可以用来整蛊）: 比如说我自己编的一段： if MsgBox("你是猪吗？",vbYesNo,"提问")=vbyes then msgbox "好的你选对了! " else msgbox "回答错误#￥！@#￥%@……#计算机30秒后关机……?",64,"错误警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start shutdown -s -t 3600",vbhide end if 运行之后会出现[attach]299333[/attach] 选择是[attach]299334[/attach] 选择否[attach]299335[/attach] 上面显示着：30秒后关机，是真的会关的哦。而且不输入指令是不会取消关机的。注意上面的红色字体和紫色字体都是可以自己编辑的哦。注意绿色字体那一段指令就是会让你关机的指令代码。很多童鞋想问怎么取消关机呢？很简单：只要在 [attach]299336[/attach]输入 shutdown -a 即可取消好啦。就这么多了。其他的很多就靠各位宅们自己去探索了。我发上我收集的一些vbs代码[attach]299337[/attach]

作者:_浮生未歇