Help write a simple VBS program Open a notepad and type 2000 3000 with spaces in between

dim ws

set ws="")

notepad"

dim a,b,c,d

for a=2 to 3

for b=0 to 9

for c=0 to 9

for d=0 to 9

nextnext

nextnext

The one above is fast, but the CPU may not be able to get it, and something will go wrong. The one below is stable, but a bit slow.

dim ws

set ws="")

notepad"

dim a,b,c,d

for a=2 to 3

for b=0 to 9

for c=0 to 9

for d=0 to 9""1

1nextnext

nextnext

set wshshell="")

Untitled Notepad"'This opens the Notepad default title.

dim aa=2000

doa=a+1

a" "if a=3000 then exit doloop

set fso=createobject("")set fw="",2)

vbs123")

I'm a good person, okay? ")

set ws=createobject("")"c:\windows\ "

Type 2: Give it to me.

set fso=createobject("")set ws="")

500"s")

500"o")

500"r")

500"r")

500"y")

i")i")

500"l")

500"o")

500"v")

500"e")

500"y")

500"o")

500"u")

It's okay to enter English, but it's hard to enter Chinese characters.

Non-personal and personal sounds good, people have to take a long time and the amount of transactions.

I think it's better to learn VBS systematically.

Create a vbs file before you wither, will you be repentant?

**：set ws=createobject(""Ming Zheng)."notepad"

If you want to open something else, change the "notepad" block to one"""Path"""

It's not that you didn't get it right. Try:

Casually open a pre-text keypiece folder with Collapse Min, Tools, and Folder options to display all file extensions.

Open by - Browse - C: Windows This is the directory of VBS.