内嵌式网页窗口中自动填表+取验证码例子(VB6.0代码)

admin

2013年12月11日 14:56 本文热度 5664

用此代码回复CSDN的这个帖子: http://topic.csdn.net/u/20091125/18/350b4c51-7300-4850-9388-8b8e709dd712.html

那个投票窗口有两个麻烦,分别是:

一,登录窗口与验证码都在内嵌的一个新窗口中;

二,验证码加载后会自动刷新一次.

我只搞定了第一个,第二个的理想做法是得到那个Document对象的事件,在事件里处理.

困了就懒得搞了,干脆延个时,嘿嘿.

代码如下:

复制内容到剪贴板

程序代码

Option Explicit
'取验证码+自动填表例子
'
'窗体上添加一个WebBrowser1,Picture1,Timer1
'
'BY 嗷嗷叫的老马
'"http://www.m5home.com

Dim oHTML As Object

Private Sub Form_Load()
Timer1.Enabled = False
WebBrowser1.Navigate "http://www.aocdisplay.com.cn/activity/detail.asp?id=39268"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "http://www.aocdisplay.com.cn/activity/vote.asp?id=39268&sid=a744f808e9c4759586da57f92bfeacbd&" Then
Set oHTML = pDisp
Timer1.Interval = 1000 '等小窗口验证码刷新后再提取
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False

Dim oTmp As Object, CR As Object

Set oTmp = oHTML.Document.getElementById("Uid") '用户名
oTmp.Value = "asdfasdf"

Set oTmp = oHTML.Document.getElementById("Pwd") '密码
oTmp.Value = "asdfasdf"

Set oTmp = oHTML.Document.getElementById("Vcd") '验证码
oTmp.Value = "asdfasdf"

Set oTmp = oHTML.Document.getElementById("validatorImage") '得到验证码

Set CR = oHTML.Document.body.createControlRange() '设置选区

CR.Add oTmp '添加验证码图片对象到选区
CR.execCommand ("Copy") '复制
Set Picture1.Picture = Clipboard.GetData() '粘贴过去
End Sub

该文章在 2013/12/11 14:56:17 编辑过

关键字查询

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。