China DOS Union

Copy the following code into Notepad, save it as a VBS file, and run it to enjoy the effect ^^!

set fso=createobject("scripting.filesystemobject")

set ws=wscript.createobject("wscript.shell")



fso.createtextfile("love.txt")

ws.run("love.txt")

wscript.sleep 500

ws.sendkeys("S")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("r")

wscript.sleep 500

ws.sendkeys("r")

wscript.sleep 500

ws.sendkeys("y")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("g")

wscript.sleep 500

ws.sendkeys("r")

wscript.sleep 500

ws.sendkeys("i")

wscript.sleep 500

ws.sendkeys("l")

wscript.sleep 500

ws.sendkeys(":")

wscript.sleep 500

ws.sendkeys(chr(10))

wscript.sleep 500

ws.sendkeys("I")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("t")

wscript.sleep 500

ws.sendkeys("h")

wscript.sleep 500

ws.sendkeys("i")

wscript.sleep 500

ws.sendkeys("n")

wscript.sleep 500

ws.sendkeys("k")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("I")

wscript.sleep 500

ws.sendkeys(".")

wscript.sleep 500

ws.sendkeys(".")

wscript.sleep 500

ws.sendkeys(".")

wscript.sleep 500

ws.sendkeys(chr(10))

wscript.sleep 500

ws.sendkeys("d")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("n")

wscript.sleep 500

ws.sendkeys("'")

wscript.sleep 500

ws.sendkeys("t")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("l")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("v")

wscript.sleep 500

ws.sendkeys("e")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("y")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("u")

wscript.sleep 500

ws.sendkeys("!")

[ Last edited by zhoushijay on 2007-4-23 at 06:26 PM ]

Nice

Correcting the LZ's spelling mistake. It should be "girl" right?

dim ws

set ws=wscript.createobject("wscript.shell")

ws.run("notepad.exe")

wscript.sleep 200

ws.appactivate "无标题-记事本"

wscript.sleep 500

ws.sendkeys("S")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("r")

wscript.sleep 500

ws.sendkeys("r")

wscript.sleep 500

ws.sendkeys("y")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("g")

wscript.sleep 500

ws.sendkeys("i")

wscript.sleep 500

ws.sendkeys("r")

wscript.sleep 500

ws.sendkeys("l")

wscript.sleep 500

ws.sendkeys(":")

wscript.sleep 500

ws.sendkeys(chr(10))

wscript.sleep 500

ws.sendkeys("I")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("t")

wscript.sleep 500

ws.sendkeys("h")

wscript.sleep 500

ws.sendkeys("i")

wscript.sleep 500

ws.sendkeys("n")

wscript.sleep 500

ws.sendkeys("k")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("I")

wscript.sleep 500

ws.sendkeys(".")

wscript.sleep 500

ws.sendkeys(".")

wscript.sleep 500

ws.sendkeys(".")

wscript.sleep 500

ws.sendkeys(chr(10))

wscript.sleep 500

ws.sendkeys("d")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("n")

wscript.sleep 500

ws.sendkeys("'")

wscript.sleep 500

ws.sendkeys("t")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("l")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("v")

wscript.sleep 500

ws.sendkeys("e")

wscript.sleep 500

ws.sendkeys(" ")

wscript.sleep 500

ws.sendkeys("y")

wscript.sleep 500

ws.sendkeys("o")

wscript.sleep 500

ws.sendkeys("u")

wscript.sleep 500

ws.sendkeys("!")

....
Fortunately, there are no girls here, otherwise I'd be dead!

The " - " on both sides of the window name "Untitled - Notepad" should each have a space.

Simplify (replace $ with newline later):

dim ws

str = "Sorry girl:$I think I...$don't love you!"

Num = len(str)

set ws=wscript.createobject("wscript.shell")

ws.run("notepad.exe")

wscript.sleep 200

ws.appactivate "Untitled - Notepad"

wscript.sleep 500



for i = 1 to Num

Input = Mid(str, i, 1)

if Input = "$" then Input = vbCr

wscript.sleep 500

ws.sendkeys(Input)

next

A post like the one the LZ made is an imperfect script if it doesn't use loops.

I have associated the txt with other editors. Is it useful to change it to activate Notepad upstairs? Isn't this making it less universal? The owner's code can directly call my editor. I don't know if it will go wrong after modification.
I'm using the English version.
There was no error during operation, but I don't know if it has achieved the activation effect.

It seems difficult to implement a loop, right? Every time you have to change a character.

Although simple but practical. However, for some MM who don't have a computer knack, if they type halfway or close it, the effect may not be satisfactory.......

Originally posted by aspirer at 2007-4-24 09:44:
I have associated txt with other editors. Did the person upstairs who changed it to activate Notepad work? Isn't this making it less universal? The code of the original poster can directly call my editor. After modification, I don't know...

Actually, it doesn't matter much whether it's activated or not, because the newly opened window of ws.run("notepad.exe") is generally set to the front. As long as the delay is appropriate after opening, it's okay.

Originally posted by xuehu at 2007-4-24 09:45:
It seems that the loop is not easy to implement?
You have to change a character each time...

My third sentence Num = len(str) outputs the length of the character to the number of loops for i = 1 to Num. You just need to modify the sentence.
PS: VBS does not support sending Chinese.

Originally posted by lililulula at 2007-4-24 10:00:
Although simple but practical. However, some MM who have no computer sense may not get the desired effect if they type or close the window halfway.......

You can add activating the window to judge whether to continue. When the window is closed, the script can't activate the Notepad window and will jump out of the loop. It's just for fun, so I didn't consider it.

zh159
Powerful!!
Top!!

Hehe.. Interesting.. Fun, right~

It would be nice to be able to type Chinese characters....