IE8不给力,不装插件的话,连自动登录都不行,还是Firefox强
linux吧
全部回复
仅看楼主
level 7
公司里XP的机器,用IE8还想自动登录的话只能用VBS脚本,还是Firefox存密码的功能比较方便。
Dim ieobj
Set ieobj=CreateObject("InternetExplorer.Application")
ieobj.Visible= True
ieobj.navigate "https://community.concur.com/web/guest/home"
Do Until ieobj.Readystate= 4
WScript.Sleep 100
Loop
ieobj.Left =0
ieobj.Top =0
ieobj.width = ieobj.document.parentWindow.screen.availWidth
ieobj.height = ieobj.document.parentWindow.screen.availHeight
ieobj.Document.All("_58_login").Value= "<username>"
ieobj.Document.All("_58_password").Value= "<password>"
ieobj.Document.All("_58_fm").Form.Submit()
Set ieobj=Nothing
2011年07月23日 06点07分 1
level 7
不过这一招不是经常管用,换个网站就不能自动提交帐号密码了
Dim ieobj
Set ieobj=CreateObject("InternetExplorer.Application")
ieobj.Visible= True
ieobj.navigate "https://community.concur.com/web/guest/home"
Do Until ieobj.Readystate= 4
WScript.Sleep 100
Loop
ieobj.Left =0
ieobj.Top =0
ieobj.width = ieobj.document.parentWindow.screen.availWidth
ieobj.height = ieobj.document.parentWindow.screen.availHeight
ieobj.Document.All("j_username").Value= "<username>"
ieobj.Document.All("j_password").Value= "<password>"
ieobj.Document.All("submit").Form.Submit()
Set ieobj=Nothing
2011年07月23日 07点07分 2
level 7
错了错了,2楼的登录网站是https://support.bwise.com/tas/public/才对。
2011年07月23日 07点07分 3
1