自动表单
来源:互联网 发布:java二级考试题库 编辑:程序博客网 时间:2024/04/28 14:23
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.126.com"
End Sub
Private Sub WebBrowser1_DownloadComplete()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '检测类型
Select Case vTag.Name
Case "user" '填写用户名的文本框的值
vTag.Value = "aaa"
End Select
End If
If vTag.Type = "password" Then '检测密码框类型
Select Case vTag.Name
Case "pass" '密码框的值
vTag.Value = "12"
End Select
End If
If vTag.Type = "submit" And vTag.Value = "登录邮箱" Then '登陆按钮
vTag.Click
End If
End If
Next i
End Sub
WebBrowser1.Navigate "http://www.126.com"
End Sub
Private Sub WebBrowser1_DownloadComplete()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '检测类型
Select Case vTag.Name
Case "user" '填写用户名的文本框的值
vTag.Value = "aaa"
End Select
End If
If vTag.Type = "password" Then '检测密码框类型
Select Case vTag.Name
Case "pass" '密码框的值
vTag.Value = "12"
End Select
End If
If vTag.Type = "submit" And vTag.Value = "登录邮箱" Then '登陆按钮
vTag.Click
End If
End If
Next i
End Sub
- 自动表单
- 自动提交表单
- 定时自动提交表单
- wml自动提交表单
- 如何自动提交表单?
- 自动表单填写
- 自动表单填写
- 自动提交表单
- Jsp自动提交表单
- 自动填写网页表单
- 回车自动提交表单
- HTML5表单自动验证
- 设置表单自动提交
- 表单自动提交
- 表单自动提交
- 自动生成参数表单
- 自动填写表单基本原理
- html5自动填充表单
- 静
- 设置全屏显示的S60程序
- 部署.net平台的程序
- Symbian下用C++实现网页浏览的代码
- 在应用中调用 Wap 浏览器 并打开指定URL
- 自动表单
- 用Eclipse,VE进行Java可视化界面设计
- C语言资源收集贴
- 利用cmwap连接自己的HTTP服务器
- IT业史上最棒的图片之一
- 编辑框的当前输入法
- 静态代码检查工具PC-Lint(一)
- 在APPUI以外建立NAVI_PANE_TAB的控制
- oracle 权限与角色