thanks 

Tomcat21(4664742)  13:23:09 
 
uses ComObj;

 

set s = WScript.CreateObject("WScript.Shell")

app=s.Run ("C:windows
otepad.exe")

code="biweilun"

WScript.Sleep 1000

s.AppActivate app

s.SendKeys code

Wscript.quit