vbs自动填表单分析附源码

2020-07-26 11:56:57

字体：大中小

来源：转载

供稿：网友

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实现的定时提醒你休息的脚本

学习交流

选择笔记本处理器（CPU）需避免那些误区和基

选择笔记本处理器（CPU）需避免那些误区和基本常识...

热门图片

猜你喜欢的新闻

猜你喜欢的关注