VBS的sendkeys发送按键实例

lixiaodaoaaa

1. set s = WScript.CreateObject("WScript.Shell")
   
2. app=s.Run ("C:\windows\notepad.exe")
   
3. code1="biweilun"
   
4. code2="woaini"
   
5. code3="hehe  wo  ai ni  a  "
   
6. code4="bu xiang suib  shuoahfad "
   
7. code5="hha shuang ba3"
   
8. code6=" wo xiang wo bu ying gai ma ren le "
   
9. code7=" shi de "
   
10. WScript.Sleep 1000
    
11. s.AppActivate app
    
12. s.SendKeys code1&code2&code3&code4&code5&code6&code7
    
13. Wscript.quit

复制代码

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