dim ie
set ie=createobject("internetexplorer.application")
ie.visible=true
ie.navigate "http://www.ln.chinaunicom.com/index.shtml"
While ie.busy or ie.readystate<>4
EndWhile
ie.document.all("userid").value= "13304948957"'手机号码
ie.document.all("passwd").value = "111111"'密码
ie.document.all("verifycode").value = "1111"'识别码
ie.document.all.loginOnForm.submit
一调试脚本就显示 缺少对象:"ie.document.all("....")"
"ie.document.all.loginOnForm.submit"这行还显示对象不支持此属性或者方法
请各位大侠帮忙看看 哪里出了错 谢谢啦
提问者: fxdca2008 - 试用期 一级
最佳答案
楼主代码有几处错误:
1. EndWhile应为Wend
2. 网页上的手机号码、密码等表单元域其实是在一个<iFrame>中的网页上,不能直接调用,而应该使
用ie.document.frames(0).document.loginOnForm...来调用
正确代码如下(可以自动填写交提交,提交上去以后会返回“识别码错误”的提示,属于正常现象)
:
Sub test()
Dim ie
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "http://www.ln.chinaunicom.com/index.shtml"
While ie.busy Or ie.readystate <> 4
Wend
ie.document.frames(0).document.loginonform.UserId.Value = "13304948957" '手机号码
ie.document.frames(0).document.loginonform.passwd.Value = "111111" '密码
ie.document.frames(0).document.loginonform.verifycode.Value = "1111" '识别码
ie.document.frames(0).document.loginonform.submit
End Sub
相关文章
- 【HTML】一款可交互的响应式登陆注册表单,你确定不来看看嘛(附源码)
- 【HTML】耗时一下午,整理出了一个精美的响应式登陆注册表单(附源码)
- 【kafka源码】ReassignPartitionsCommand分区副本重分配源码原理分析(附配套教学视频)
- [Tomcat 源码分析系列] (附件) : setclasspath.bat 脚本
- 【MVC - 参数原理】详解SpringMVC中Controller的方法中参数的工作原理[附带源码分析]
- arcgis api 3.x for js 入门开发系列十四最近设施点路径分析(附源码下载)
- 使用ajax方法实现form表单的提交(附源码)
- element ui表单校验prop的链式写法----源码分析
- 深入PHP购物车模块功能分析(函数讲解,附源码)
- vbs自动填表单分析附源码