VB 抓取网站验证码图片

VB 抓取网站验证码图片
2010年05月20日
　　方法一：使用XMLHTTP
　　Public Function GetCheckCode()
　　Dim xmlHttp As Object
　　Dim Pic
　　Dim PicData As Object
　　Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
　　Set PicData = CreateObject("Adodb.Stream")
　　xmlHttp.open "get", "http://www.pceggs.com/CheckCode.aspx", True
　　xmlHttp.setRequestHeader "Accept", "*/*"
　　xmlHttp.setRequestHeader "Referer", "http://www.pceggs.com/Login.aspx"
　　xmlHttp.setRequestHeader "Accept-Language", "zh-cn"
　　xmlHttp.setRequestHeader "Accept-Encoding", "gzip, deflate"
　　xmlHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727)"
　　xmlHttp.setRequestHeader "Host", "www.pceggs.com"
　　xmlHttp.setRequestHeader "Connection", "Keep-Alive"
　　xmlHttp.send
　　While xmlHttp.ReadyState 4
　　DoEvents
　　Wend
　　Pic = xmlHttp.responseBody
　　With PicData
　　.Type = 1
　　.open
　　.write Pic
　　.SaveToFile App.Path & "\CheckCode.jpg", 2
　　.Cancel
　　.Close
　　End With
　　Set PicData = Nothing
　　Set xmlHttp = Nothing
　　frmLogin.ImgYZM.Picture = LoadPicture(App.Path & "\CheckCode.jpg")
　　End Function
　　方法二：
　　Private Sub Command1_Click()
　　WebBrowser1.Navigate2 "http://www.pceggs.com/login.aspx"
　　End Sub
　　Private Sub Command2_Click()
　　Dim CtrlRange, x
　　For Each x In WebBrowser1.Document.All
　　If UCase(x.tagName) = "IMG" Then
　　If InStr(x.src, "CheckCode.aspx") > 0 Then
　　Set CtrlRange = WebBrowser1.Document.body.createControlRange()
　　CtrlRange.Add (x)
　　CtrlRange.execCommand ("Copy")
　　Debug.Print "Copy"
　　Image1.Picture = Clipboard.GetData
　　End If
　　End If
　　Next
　　End Sub
　　-------------------------------------------------------------------------------------------------
　　Private Sub Form_Load()
　　WebBrowser1.Navigate "http://passport.baidu.com/?reg"
　　End Sub
　　Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
　　On Error Resume Next
　　WebBrowser1.Silent = True
　　Me.MousePointer = vbDefault
　　Dim x, CtrlRange
　　Dim sPath As String
　　sPath = App.Path
　　sPath = Left(sPath, InStr(sPath, vbNullChar) - 1)
　　If Len(sPath) > 3 Then sPath = sPath & "\"
　　If Trim(txtUser.Text) "" Then
　　gstrFileName = sPath & Trim(txtUser.Text) & "Code.bmp"
　　Else
　　gstrFileName = sPath & "TempCode.bmp"
　　End If
　　For Each x In WebBrowser1.Document.All
　　If x.tagName = "IMG" Then
　　If x.src = "http://passport.baidu.com/?verifypic" Then '这里就是那个动态图片的连接了
　　WebBrowser1.Stop
　　Set CtrlRange = WebBrowser1.Document.body.createControlRange()
　　CtrlRange.Add (x)
　　CtrlRange.execCommand ("Copy")
　　'MsgBox UCase$(x.src)
　　SavePicture Clipboard.GetData, gstrFileName
　　'SavePicture Clipboard.GetData, App.Path & "\1.bmp" '用于把图片保存至硬盘中
　　Picture1.Picture = Clipboard.GetData
　　End If
　　End If
　　Next
　　End Sub
　　From: http://hi.baidu.com/372748472/blog/item/a166c9229dff92449258078e.html

VB 抓取网站验证码图片相关推荐

【python】python 爬虫（python抓取网站的图片）
文章目录 1.什么是爬虫 2.爬虫的思想一些知识 1 . 环境的搭建请看: 2 . 3 .:Requests urllib的升级版本打包了全部功能并简化了使用方法(点我查看官方文档) 4 : bea ...
C#批量爬取网站验证码图片/爬取网页内容（1）
前段时间师姐给了我一个C#爬图的代码,很简单有效.我查了点资料,把代码搞懂了然后简化又扩展了一下使它能够爬取网页内容.现在把代码和过程放上来供有兴趣的朋友一起探讨. 这一部分只讲如何爬验证码图片.爬取 ...
python抓取网站的图片并下载到本地
#!/usr/bin/python # -*- coding: UTF-8 -*- import re import urllib,urllib2;#通过url获取网页 def getHtml(url ...
python 爬虫抓取网站img图片
from getHtml import getHtmlWinthIp from getHtml import getHtml from bs4 import BeautifulSoup from ur ...
靖哥哥教你如何用java做爬虫抓取网站美女图片（详解步骤）
原文 https://www.jggbk.com/blogs/article/258.html
python抓取网站图片_python抓取图片示例 python抓取网页上图片
python抓取网页上图片这个错误时是什么意思下面是代码 import re import urllib.request imp正则表达式匹配的url有错误 for x in add: print ...
利用wget 抓取网站网页包括css背景图片
利用wget 抓取网站网页包括css背景图片 wget是一款非常优秀的http/ftp下载工具,它功能强大,而且几乎所有的unix系统上都有.不过用它来dump比较现代的网站会有一个问题:不支持c ...
python抓取网站图片_利用python抓取网站图片
看了网上关于python抓取网站图片的例子,所以自己也尝试着写一个,但是发现这个网站的src不是标准的路径,需要自己添加前面的目录地址,尝试了几次也不成功,所以希望有经验的朋友指导下. 本人是初学者, ...
selenium+python实现1688网站验证码图片的截取
selenium+python实现1688网站验证码图片的截取 1. 背景在1688网站爬取数据时,如果访问过于频繁,无论用户是否已经登录,就会弹出如下所示的验证码登录框. 一般的验证码是类似于如下 ...

VB 抓取网站验证码图片

VB 抓取网站验证码图片相关推荐

最新文章

热门文章