先晒一下这几天的作品数据,阅读量不错,就是粉丝和收藏实在有点少。
小伙伴点赞关注收藏为我助个力好吗?
这个只是一串代码,没有详细教学,想要看详细教学的可以看看我的文章:
vbs格式编程教程基础_Hacker_02的博客-CSDN博客原创vbs代码教学,欢迎来看!https://blog.csdn.net/a_8848_z/article/details/125253150?spm=1001.2014.3001.5502vbs格式编程教程提高_Hacker_02的博客-CSDN博客原创vbs代码教学,欢迎来看!https://blog.csdn.net/a_8848_z/article/details/125272285?spm=1001.2014.3001.5502
好了,闲聊结束,现在开始正文
新建一个文件,后缀名改为.txt,然后输入以下代码:
msgbox("面对疾风吧!") (这行提示语可以不加)
for i=1 to 10 (将next前面的内容重复运行10遍)
Set obj = createobject("wscript.shell")
obj.run "cmd /k e: && cd E:\aaa && dir" (运行cmd指令窗口)
Next
do
a =msgbox("你是249+1吗?",vbYesNoCancel,"一份认真的问卷调查")
if a =vbYes then
msgbox "emmmm,还算有点自知之明",,"恭喜你,真正的认识了自己!"
exit do
elseif a =vbNo then
for i=1 to 10
Set obj = createobject("wscript.shell")
obj.run "cmd /k e: && cd E:\aaa && dir"
Next
b =msgbox("心里没点数吗?",vbYesNo,"你就是249+1,赶紧承认!")
if b =vbYes then
for i=1 to 10
Set obj = createobject("wscript.shell")
obj.run "cmd /k e: && cd E:\aaa && dir"
Next
msgbox "没点数,自己照照镜子啊!",,"这就是你学习好的原因啊"
else
msgbox "能认识错误还是好的",,"MDZZ"
end if
else
d =msgbox("取消你mua",vbYesNo,"还想点取消?")
if d =vbYes then
for i=1 to 10
Set obj = createobject("wscript.shell")
obj.run "cmd /k e: && cd E:\aaa && dir"
Next
msgbox "取消也没用",,"这是一个轮回"
else
msgbox "不取消就赶紧承认吧",,"249+1!"
end if
end if
loop
保存,修改后缀名为.vbs
双引号里面的文字可以改,可以根据用途来改,比如表白可以把问题改成:你愿意做我女朋友吗
不过作者还是觉得这个比较好玩。
注意:第五行的 exit do 表示退出 就是说第一次点击yes之后可以点确定退出弹窗,否则无限循环。(把exit do这句去掉就是死循环了,但是可以通过结束进程来关闭,这个就不多说了,有问题多百度!)
注意:vbs的代码严密性很高(几乎没有容错率),逻辑关系很紧密,里面除了第一条几乎都不能舍去!
这个只是一串代码,没有详细教学,想要看详细教学的可以看看我的文章:
如果发现了代码漏洞欢迎在评论区留言!