html vbs 输入框,HTML_vbs自动填表单分析附源码，dim ie set ie=createobject("internetexp - phpStudy...

vbs自动填表单分析附源码

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. 网页上的手机号码、密码等表单元域其实是在一个中的网页上，不能直接调用，而应该使

用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相关阅读:

Oracle中rownum用法大汇总

XMLHTTPRequest的属性和方法

两个Linux系统NFS服务器的配置方法

javascript对象小结

安装qmail全套功略

学习JavaScript语言的思想前提

ie6 注释引起的问题

为数据瘦身 打造定制的WCF编码器

ASP正则表达式技巧

MySQL相关说明

FreeBSD 4.X 的内核配置与优化

把一张图片变形扭曲成各种不同的长宽

div完美自适应动态上下左右居中

JS 树形递归实例代码