91&

內嵌式網頁窗口中自動填表+取驗證碼例子(VB6.0代碼)

admin

2013年12月11日 14:56 本文熱度 6370

用此代碼回復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協同辦公管理系統。

91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

內嵌式網頁窗口中自動填表+取驗證碼例子(VB6.0代碼)