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

batman

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

set co=createobject("wscript.shell")
dim choice,web,user,password
choice=inputbox("请选择 1:办公自动化 2:CRM系统 3:ODS系统 4:省公司统计平台1 5:省公司统计平台2")
choice=choice-1
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")
user=array("ln","733ZZX7044","liaol","zz_xgs","zz_zhtj")
password=array("ln6177772","100001","ods123","6177772","8232218")
co.run web(choice),vbhide
wscript.sleep 5000
if choice=0 then 
co.sendkeys "{tab}"
wscript.sleep 200
co.sendkeys "{tab}"
wscript.sleep 200
end if
co.sendkeys user(choice)
wscript.sleep 500
co.sendkeys "{tab}"
wscript.sleep 200
co.sendkeys password(choice)
wscript.sleep 500
co.sendkeys "{tab}"
if choice=2 then
wscript.sleep 200
co.sendkeys "~"
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 编辑 ]