0514-86177077

9:00-17:00（工作日）

主页 > 知识库 > vbs自动填表单分析附源码

vbs自动填表单分析附源码
热门标签：外呼系统群 上海办理400电话选号 机器人打电销适用于美业吗 墨西哥地图标注app 天津智能外呼系统排名 龙岩400电话申请 企业400电话办理价钱低 外呼系统说话声音小怎么办 智云亿呼电话机器人
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

标签：黄山 齐齐哈尔 丽水 青岛 阜新 鄂尔多斯 承德 锡林郭勒盟

巨人网络通讯声明：本文标题《vbs自动填表单分析附源码》，本文关键词  vbs,自动,填,表单,分析,附,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《vbs自动填表单分析附源码》相关的同类信息！
  • 本页收集关于vbs自动填表单分析附源码的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：vbs实现的定时提醒你休息的脚本

    下一篇：vbs实现的汉字转拼音的函数

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： vbs自动填表单分析附源码 vbs,自动,填,表单,分析,附,