利用VBS的sendkeys实现工作网络登录

batman

本人初学vbs，结合工作需要，写下如下代码，还望老手不要见笑了：

1. set co=createobject("wscript.shell")
   
2. dim choice,web,user,password
   
3. choice=inputbox("请选择 1:办公自动化 2:CRM系统 3:ODS系统 4:省公司统计平台1 5:省公司统计平台2")
   
4. choice=choice-1
   
5. web=array("http://134.160.132.68","http://134.175.6.74/TCRM","http://134.175.7.37","http://134.160.100.55:9080","http://134.160.100.55:9080")
   
6. user=array("ln","733ZZX7044","liaol","zz_xgs","zz_zhtj")
   
7. password=array("ln6177772","100001","ods123","6177772","8232218")
   
8. co.run web(choice),vbhide
   
9. wscript.sleep 5000
   
10. if choice=0 then
    
11. co.sendkeys "{tab}"
    
12. wscript.sleep 200
    
13. co.sendkeys "{tab}"
    
14. wscript.sleep 200
    
15. end if
    
16. co.sendkeys user(choice)
    
17. wscript.sleep 500
    
18. co.sendkeys "{tab}"
    
19. wscript.sleep 200
    
20. co.sendkeys password(choice)
    
21. wscript.sleep 500
    
22. co.sendkeys "{tab}"
    
23. if choice=2 then
    
24. wscript.sleep 200
    
25. co.sendkeys "~"
    
26. end if

复制代码

本人的工作网络，大家是登录不上去的。

[ 本帖最后由 batman 于 2009-3-30 13:36 编辑 ]

Batcher

是否考虑加个AppActivate？

htnet11

都是用sleep，有没有那种能够等待字符之后再sandkey的?

Batcher

“等待字符之后”是什么意思？是不是等待用户输入指定的字符（如果没有输入就一直等待）？

htnet11

很多的终端都会返回一个命令执行的结果。不是说windows中的那个errorlevel。
例如：cisco路由器

我在router#的时候输入
router#config ter
返回：router(config)#
并等待下一个命令。

如果只是sleep的话，有些命令执行的时间很长，会出问题的。
如果能够等待这种返回的字符就好办了

[ 本帖最后由 htnet11 于 2009-4-20 11:28 编辑 ]