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} "
在这句前面加一句
让登陆按钮获取焦点