如何得到网页弹出窗口的内容，

evbsky 2009-11-25 06:21:10

http://www.aocdisplay.com.cn/activity/detail.asp?id=39268

就像上面类似的地址，点投票后会弹出一个登录窗口

这个窗口的内容如何取得呢或者有办法把验证码保存下来也可以

我现在取得的都是http://www.aocdisplay.com.cn/activity/detail.asp?id=39268这个窗口的内容

...全文

423 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wanchire1 2012-01-08

打赏
举报

非常实用

loserou 2010-09-14

打赏
举报

顶1楼！

赵4老师 2009-11-26

打赏
举报

顶1楼！

threenewbee 2009-11-26

打赏
举报

inet

嗷嗷叫的老马 2009-11-26

打赏
举报

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