日期:2014-05-17  浏览次数:20992 次

vbs脚本自动登陆问题
我在公司经常会用到OA网,每次都需要登陆,很是麻烦,我就写了下面的脚本自动登陆OA系统,在我的机器上(IE7)没有问题,每次都能正确登陆,但是在我同事的机器上(IE6)本能登陆,每次都能正确输入用户名和密码,在执行WShell.SendKeys   "{ENTER} "时会打开另一个登陆页面,而不是执行登陆操作,各位高手能帮我看一下吗??
'   VBScript   source   code
set   ie   =   createobject( "internetexplorer.application ")
ie.visible   =   1
ie.navigate   "http://127.0.0.1 "
Do   while   ie.busy
loop
ie.document.getElementById( "uid ").value   =   "用户名 "       '这里是你登陆的用户名
ie.document.getElementById( "pwd ").value   =   "密码 "       '这里是你登陆的密码
Set   Wshell=WScript.CreateObject( "WScript.Shell ")
ie.document.getElementById( "pwd ").focus()
WShell.SendKeys   "{ENTER} "  

set   ie   =   nothing
WSCRIPT.QUIT(0)

------解决方案--------------------
WShell.SendKeys "{ENTER} "
在这句前面加一句
让登陆按钮获取焦点