因为批处理解决不了,所以就用脚本了,但是由于刚接触,很多问题无法解决,希望高手能指点下。
下面是以路由器为范例的登陆脚本。
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://192.168.1.1/"
ie.Visible = True
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Document.loginData.UserName.value = "admin"
ie.Document.loginData.Password.value = "admin"
ie.Document.loginData.Submit
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Document.loginData.UserName.value = "admin"
ie.Document.loginData.Password.value = "admin1"
ie.Document.loginData.Submit
WSH.Sleep 1000
解决不了的问题:
1.脚本如何判定登陆成功?
2.登陆成功后如何实现跳转,就是goto那种,但是好像脚本不支持?
我的思路是:上面的脚本如果前一个密码尝试正确,那么下一个密码就会出现脚本错误。能否利用这个错误判断进行跳转,一出现错误,然后把上一个尝试的密码写到密码保存文本内呢?
虽然没写出来破解脚本,我还是想了想优化方面的问题,省的最后还得问:
1.脚本能不能写成命令行下运行的格式:
比如:脚本.vbs 网址
2.账号密码能不能采用字典的方式?
诚心找高手指教,谢谢!
谢谢二楼来说句话,只是我对vbs怎么实现goto很疑惑,这应该跟网络没什么关系吧。应该懂vbs就能指点了吧?谢谢谢谢了!
谢谢slore,额,但是vbs知识实在少,还是vbs+bat解决了,虽然麻烦和乱了点,功能是不缺的。
关于判断登陆成功,我还是靠我的思路解决了,毕竟靠获取ie对象对我有点难度。
用下面这两句完美解决
on error resume next
if err.number <> 0 then
[ Last edited by churui007 on 2010-8-8 at 10:02 ]
下面是以路由器为范例的登陆脚本。
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://192.168.1.1/"
ie.Visible = True
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Document.loginData.UserName.value = "admin"
ie.Document.loginData.Password.value = "admin"
ie.Document.loginData.Submit
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Document.loginData.UserName.value = "admin"
ie.Document.loginData.Password.value = "admin1"
ie.Document.loginData.Submit
WSH.Sleep 1000
解决不了的问题:
1.脚本如何判定登陆成功?
2.登陆成功后如何实现跳转,就是goto那种,但是好像脚本不支持?
我的思路是:上面的脚本如果前一个密码尝试正确,那么下一个密码就会出现脚本错误。能否利用这个错误判断进行跳转,一出现错误,然后把上一个尝试的密码写到密码保存文本内呢?
虽然没写出来破解脚本,我还是想了想优化方面的问题,省的最后还得问:
1.脚本能不能写成命令行下运行的格式:
比如:脚本.vbs 网址
2.账号密码能不能采用字典的方式?
诚心找高手指教,谢谢!
谢谢二楼来说句话,只是我对vbs怎么实现goto很疑惑,这应该跟网络没什么关系吧。应该懂vbs就能指点了吧?谢谢谢谢了!
谢谢slore,额,但是vbs知识实在少,还是vbs+bat解决了,虽然麻烦和乱了点,功能是不缺的。
关于判断登陆成功,我还是靠我的思路解决了,毕竟靠获取ie对象对我有点难度。
用下面这两句完美解决
on error resume next
if err.number <> 0 then
[ Last edited by churui007 on 2010-8-8 at 10:02 ]
