China DOS Union

Let a VBS script automatically input a line of text in Notepad, and let the script automatically input the following two short sentences

This is the most wonderful day of my life
because I'm here with you now

After inputting the short sentences, automatically close Notepad and save the file with the name "test". The combination key Alt + F4 can be directly used to close Notepad

Is it to simulate the effect of "typing input"?

Search it out

dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run("notepad.exe")
wscript.sleep 100
for i = 1 to Num
Input = Mid(str, i, 1)
if Input = "$" then Input = vbCr
wscript.sleep 100
ws.sendkeys(Input)
next
WS.SendKeys "^s"
WScript.Sleep 100
WS.SendKeys "test"
WScript.Sleep 100
WS.SendKeys "{ENTER}"
WS.SendKeys "%{f4}"

This one has no typing effect
dim ws
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 100
ws.sendkeys "because I'm here with you now"
wscript.sleep 100
WS.SendKeys "{ENTER}"
ws.sendkeys "This is the most wonderful day of my life"
WS.SendKeys "^s"
WScript.Sleep 100
WS.SendKeys "test"
WScript.Sleep 100
WS.SendKeys "{ENTER}"
WS.SendKeys "%{f4}"

[ Last edited by terse on 2007-6-25 at 12:37 AM ]

Originally posted by terse at 2007-6-25 12:29 AM:
Search it.
dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run(& ...

Wonderful!

Originally posted by terse at 2007-6-25 12:29 AM:
Search it
dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run(& ...

Wonderful!

But according to this method, it seems that Chinese characters cannot be input!!~

Not bad. It would be even better if Chinese characters could be input.

Can input Chinese characters.
Saw similar code a few months ago.
Hope some big shot can post it again.