IE浏览器交互
2010年12月11日
VB与――自动填表
VB填充IE上的输入框并提交
假设登录页面的HTML代码如下:
testPage
用户:
密码:
很简单的页面,在上面有一个登录的Form,一个用户名输入框LoginName,一个密码输入框LoginPassword和一个提交按钮clickme
然后用IE打开这个页面,注意页面的title设置为testPage。
然后打开VB,在工程中引用Microsoft internet controls:
Private Sub Command1_Click()
Dim IEList As New ShellWindows
Dim browser
Dim Doc
On Error Resume Next
'遍历当前地浏览器窗口
For Each browser In IEList
'找到需要地IE窗口
If browser.Document.Title = "testPage" Then
'获得浏览器地文档对象
Set Doc = browser.Document
'填写用户名字段
Doc.body.All("LoginName").Value = "eddie"
'填写密码字段
Doc.body.All("LoginPassword").Value = "123456"
'提交
Doc.body.All("clickme").Click
End If
Next
End Sub
怎么编程把用户名,密码提交到网页上的登录页?
首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。
假设你的HTML页面表单代码如下:
注意其中元素的type、Name、value属性。然后VB中的代码如下:
Private Sub Command1_Click()
WebBrowser1.Navigate "http://chen/chat/newuser.htm"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
List1.Clear
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
List1.AddItem vTag.Name
Select Case vTag.Name
Case "Name"
vTag.Value = "IMGod"
Case "NickName"
vTag.Value = "IMGod"
Case "Password"
vTag.Value = "IMGodpass"
Case "EMail"
vTag.Value = "IMGod@paradise.com"
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
End Sub
点击Command1就可以自动填表并提交了。
'怎么编程把用户名,密码提交到网页上的登录页?
'首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。
'假设你的HTML页面表单代码如下:
'
' 请填写下面表单注册(*项为必添项)
' *姓名
'' *昵称
' 电子邮件
' *密码
'
'
'注意其中元素的type?Name?value属性?然后VB中的代码如下:
Private Sub Command1_Click()
WebBrowser1.Navigate "http://bbs.hackht.com/"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag '申明变量,好给下面的引用做铺垫
Dim i As Integer '申明变量i
Set vDoc = WebBrowser1.Document '①为了写代码方便简明,将WebBrowser1控件的Document元素赋值给vDoc,从此,vDoc就等同于 Webbrowser1.Document这一个元素了
For i = 0 To vDoc.All.length - 1 '用for语句遍览WebBrowser1控件里显示的网页里的所有元素, WebBrowser1.Document.All是指的所有元素,加上length就是所有元素的个数的序号,但是这些元素序号是从0开始计数的,所以序号总比元素的个数要大一。所以为了表示个数,必须减上1.
If UCase(vDoc.All(i).tagName) = "INPUT" Then 'WebBrowser1.Document.all(i)是指的当前的元素,tagName的意思是标签,标签是指的HTML代码里的标签,比如,input是标签,而name是指的标签的名字 ,至于Ucase函数则是使括号里的结果变成大写
Set vTag = vDoc.All(i) '此处作用同①
If vTag.Type = "text" Or vTag.Type = "password" Then 'type是类型,此处是说元素标签的类型是什么,比如,此处是标签类型是一个text,即文本框
Select Case vTag.Name 'select条件语句,判断标签的名字
Case "pwuser" '如果标签名字是"pwuser"
vTag.Value = "XXXXXXX" '标签的值(value)等于多少。
Case "pwpwd"
vTag.Value = "PPPPPPP"
End Select
ElseIf vTag.Type = "submit" Then '或者如果类型是submit(提交按钮)
vTag.Click '模拟鼠标的点击
End If
End If
Next i
End Sub其中 vTag.Value = "XXXXXXX"中的XXXXXXX代表你的论坛ID或用户名,PPPPPPP代表你的密码
发表评论
-
评论 (
2012-01-20 12:06 467评论 ( 2011年10月04日 如何经过进程浏览教 ... -
广东省普宁市英才侨中、建新高中2011--2012学年度高三第一学期第四次月考(文综)word版
2012-01-20 12:06 606广东省普宁市英才侨中、建新高中2011--2012学年度高三第 ... -
原电池原理的解读与应用(2012-01-03 21:16:06)
2012-01-20 12:06 579原电池原理的解读与应 ... -
关于儿童踢足球,是否会对长高有不良影响
2012-01-20 12:06 1149关于儿童踢足球,是否会 ... -
科士威感恩老师QQ:41189572 2010全球直企销售百强榜单新鲜出炉
2012-01-20 12:06 15科士威感恩老师QQ:4118957 ... -
硬件常用测试软件整理,方便大家下载
2012-01-19 16:54 490硬件常用测试软件整理, ... -
NX 和PRO/E的比较――高手的对决第四回合
2012-01-19 16:54 7925NX 和PRO/E的比较――高手的对决第四回合 2010年0 ... -
Autodesk 3ds Max 2011中文版下载
2012-01-19 16:54 570Autodesk 3ds Max 2011中文版 ... -
GPU发展史之 ATI巅峰时刻
2012-01-19 16:54 528GPU发展史之 ATI巅峰时刻 ... -
浅描工作环境电脑维护以及性能测试流程
2012-01-19 16:54 589浅描工作环境电脑维护 ... -
Ubuntu下各网络服务器配置小结
2012-01-17 06:39 572Ubuntu下各网络服务器配置小结 2011年12月10日 ... -
LAMNP 编译安装参数(一)---Apache 安装编译参数
2012-01-17 06:39 1933LAMNP 编译安装参数(一)---Apache 安装编译参数 ... -
惠普 康柏 510 笔记本电脑
2012-01-17 06:39 640惠普 康柏 510 笔记本电脑 2011年12月17日 ... -
俺的电脑配置
2012-01-17 06:39 582俺的电脑配置 2011年12月21日 电脑型号 微星 ... -
VB操作网页元素
2012-01-16 05:20 884VB操作网页元素 2010年01月23日 用webbro ... -
VB读取网站超链接!
2012-01-16 05:20 515VB读取网站超链接! 2011年01月23日 Priva ... -
第一次用VB做海贼王游戏按键外挂(暂未完成,菜鸟就是菜鸟)
2012-01-16 05:20 646第一次用VB做海贼王游 ... -
VB模拟点击代码(广告+排名)
2012-01-16 05:19 584VB模拟点击代码(广告+排名) 2010年01月02日 ...
相关推荐
如何实现对IE浏览器中对象的操作是一个很有实际意义问题,通过和IE绑定的DLL我们可以记录IE浏览过的网页的顺序,分析用户的使用行为和模式。我们可以对网页的内容进行过滤和翻译,可以自动填写网页中经常需要用户...
实现和IE浏览器交互的几种方法的介绍
OSG窗口与IE浏览器的嵌合。教程的目的是编写一个MFC ActiveX控件, 在其中实现OSG窗口的显示和数据交互,并使用注册 OCX 的方法将 OSG 窗口嵌合到浏览器中,实现网页上的三维模型显示和场景漫游功能。
本工具可以解决大部分在IE浏览器提示Siebel高交互框架导致登陆不上的问题,前提32位的IE浏览器,若此工具无法解决,那么只有Open UI和重装系统了
通过实现IE接口 可实瑞outlook 类似的功能 接管IE事件 可在IE无件上自画
所用到的VB与IE浏览器的交互过程尽量做到不重复,以多种方法展示给大家 两款用来测试的游戏登录入口,纵横天下和矩阵 本程序中完成提交的方法提供两种,直接提交表单和点击登录按钮提交 还有第三种方法填表完成后直接用...
8、设置墙纸失败9、Sveil最新版通告窗口不能自动关闭10、tiny_mce在IE浏览器中错误11、在IE浏览器中添加/编辑分类JavaScript错误12、sql语句表名前缀失败13、添加货币不允许重复14、在IE、Opera浏览器中不能打开分类...
httpwatch 用来查看ie浏览器的交互过程
博客笔记文章中对应的源码工程: 主要实现用C#开发ActiveX空间并嵌入到IE浏览器 以及实现Javascript与ActiveX之间的双向交互
a)实现的服务器应能与标准的浏览器(如IE浏览器)进行简单的交互; b)记录浏览器与服务的交互过程; c)利用HTML语言编写网页(可以不包括图像、声音等多媒体文件),浏览器可通过编写的Web服务器正常访问该网页;...
HttpWatch 网页数据分析工具,可分析打开网页时网页上每个元素所用的时间以及具体的交互记录,包括Cookies、消息头、...使用方法:打开IE浏览器,选择菜单“查看-浏览器栏”,再选择“HttpWatch Professional”即可。
HttpWatch 网页数据分析工具,可分析打开网页时网页上每个元素所用的...使用方法:打开IE浏览器,选择菜单“查看-浏览器栏”,再选择“HttpWatch Professional”即可。 并含有HttpWatch工具简介及使用技巧说明文档。
此网站用CSS精心打造,在谷歌或IE浏览器中浏览效果较佳,此网站包含了HTML,CSS,JSP,数据库,同时也采用了javabean的技术,实现了邮件发送,分页显示等等功能,与数据库的链接,表的交互,实现了动态网站交互的目的...
谷歌浏览器的用户体验研究,主要分析谷歌浏览与IE浏览器在用户体验方面的差别及思考。
1.要用IE浏览器打开这个html,然后下面会IE已限制网页运行脚本,点击旁边的允许阻止的内容按钮。2.稍等几分钟会弹出一个选择框,XX交互可能不安全,是否允许其交互,选择是即可。想要计算机不睡眠,把这个html网页不...
一款用于IE浏览器的插件,允许直接地在浏览器窗口中浏览、传输和更新HTML DOM。该软件可以实时分析网页并且显示为一种允许你察看表格风格、Java脚本,表格以及其它网页元素的树形风格。该软件还可以在浏览器中交互式...
// 如果传入了事件参数,则说明不是ie浏览器 if (ev && ev.stopPropagation) { ev.stopPropagaton(); } else { window.event.cancelBubble = true; } }, // 阻止事件默认浏览器行为 stop...
也可以嵌入IE浏览器中,实现网上图形编辑和控制等。 Visual Graph专门处理交互图形,与具体业务无关,她提供了十分丰富规范的交互事件和图形控制命令,内置结构简单开放的脚本语言,使程序员能够专心编写后台系统...
使用方法:打开IE浏览器,选择菜单“查看-浏览器栏”,再选择“HttpWatch Professional”即可。 提示:授权文件已经在根目录下的“httpwatch.lic”,安装时默认装在C盘里,直接点下一步就OK了。装完 httpwatchpro....