得益网升级之前,可以用slore兄写的这个VBS来自动登录:- Set ie = CreateObject("InternetExplorer.Application")
- ie.Navigate "http://www.netyi.net/quit.aspx?returnUrl=%2fjsLoginStatus.aspx"
- ie.Visible = True
- While ie.Busy or ie.ReadyState <> 4:Wend
- ie.Document.form2.UserName.value = "pichulitest"
- ie.Document.form2.Password.value = "testpichuli"
- ie.Document.form2.Submit
- While ie.Busy or ie.ReadyState <> 4:Wend
- WSH.Sleep 1000
- ie.Navigate "http://www.netyi.net/quit.aspx?returnUrl=%2fjsLoginStatus.aspx"
- While ie.Busy or ie.ReadyState <> 4:Wend
- ie.Quit
复制代码 得益网升级之后,这个方法就不行了。
后来尝试用tireless兄介绍(http://bbs.bathome.net/viewthread.php?tid=3804#pid24104)的Mini-Browser,在Mini-Browser中可以成功登录。但是把得到的URL串放到批处理中就不行了。- start iexplore.exe "http://www.netyi.net/controls/loginFp.aspx__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%%2FwEPDwUJMzY4NjMxODYzD2QWAgIDD2QWBAIBDw9kFgIeB29uY2xpY2sFKWphdmFzY3JpcHQ6dG9wLmxvY2F0aW9uPScvUmVnaXN0ZXIuYXNweCc7ZAIDDw9kFgIfAAUvamF2YXNjcmlwdDp0b3AubG9jYXRpb249Jy9mb3JnZXRQYXNzd29yZC5hc3B4JztkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYBBQhidG5Mb2dpbg%%3D%%3D&tbMemberName=pichulitest&tbPassword=testpichuli&btnLogin.x=26&btnLogin.y=37"
复制代码 望各位朋友指点迷津,多谢!
[ 本帖最后由 Batcher 于 2009-5-17 19:52 编辑 ] |