繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs自动填表单分析附源码
- VBScript
- 网马生成器 MS Internet Explorer XML Parsing Buffer Overflow Exploit (vista) 0day
- Vbs COM之打开/保存文件脚本代码
- 当某IP 连接我机器的3389端口 报警的脚本
- 利用WMI实现系统补丁检测分析
- vbs 调用中文语音让你电脑听你的命令的实现代码
- SQLids.vbs 0.7(最终版，以后改成gui界面的)
- vbs 函数 获取数组字符串的最后一个LastOne 挺方便的
- 枚举域内计算机个数vbscript脚本（没环境，没测试）
- VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件
- vbs 搜索代理地址实现代码[小偷程序]
- vbscript 调用WebService实现代码
- VBScript 算一算你从出生到现在共计多少天
- VBS操作Excel常见方法
- VBS 批量读取文件夹内所有的文本到Excel的脚本
- vbs 合并多个excel文件的脚本
- 自动删除超过10天的文件及文件夹的vbs代码
- VBScript 常用函数总结
- 利用WScript.Shell对象隐藏cmd命令行运行框的实现代码
- 常用VBS代码 值得一看
- 进程监控实现代码[vbs+bat]
VBScript 中的 vbs自动填表单分析附源码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 222 ::
收藏到网摘: n/a
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
评论 (0) All
