dimie

setie=createobject("internetexplorer.application")

ie.visible=true

ie.navigate"http://www.ln.chinaunicom.com/index.shtml"

Whileie.busyorie.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...来调用

正确代码如下（可以自动填写交提交，提交上去以后会返回“识别码错误”的提示，属于正常现象）

：

Subtest()

Dimie

Setie=CreateObject("internetexplorer.application")

ie.Visible=True

ie.navigate"http://www.ln.chinaunicom.com/index.shtml"

Whileie.busyOrie.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

EndSub