VBS的sendkeys发送按键实例

lixiaodaoaaa

set s = WScript.CreateObject("WScript.Shell")
app=s.Run ("C:\windows\notepad.exe")
code1="biweilun"
code2="woaini"
code3="hehe  wo  ai ni  a  "
code4="bu xiang suib  shuoahfad "
code5="hha shuang ba3"
code6=" wo xiang wo bu ying gai ma ren le "
code7=" shi de "
WScript.Sleep 1000
s.AppActivate app
s.SendKeys code1&code2&code3&code4&code5&code6&code7
Wscript.quit
复制代码

[ 本帖最后由 lixiaodaoaaa 于 2009-2-17 04:02 编辑 ]