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
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