- 浏览: 21581 次
最新评论
如何用vb获取指定网页的验证码啊?(可以用webbrowser)
2011年07月08日
如何用vb获取指定网页的验证码啊?(可以用webbrowser)
在vb中建立一个image,如何让验证码显示在image里面啊?
满意答案:
在窗体上建立一个text1,一个command1,还有picVlCode和intGetVlCode.
窗体代码如下:
Private Sub Command1_Click()
GetVlCode
End Sub
'-----------------------------------------------
'- 获取验证码(GetVlCode)
'-----------------------------------------------
Private Sub GetVlCode()
On Error Resume Next
Dim Buff() As Byte
'验证码地址
intGetVlCode.URL = Text1.Text
'以二进制方式存入buff数组
Buff() = intGetVlCode.OpenURL(, icByteArray)
With picVlCode
'绘制成图片对象
.Picture = PictureFromBits(Buff())
'描绘到picturebox
.PaintPicture .Picture, 0, 0, .Width, .Height, 0, 0, .ScaleWidth, .ScaleHeight
End With
End Sub
模块代码:
'-----------------------------------
' 转换验证码图片
'-----------------------------------
Public Enum CBoolean
CFalse = 0
CTrue = 1
End Enum
Private Const S_OK = 0
Private Declare Function CreateStreamOnHGlobal Lib "ole32" _
(ByVal hGlobal As Long, _
ByVal fDeleteOnRelease As CBoolean, _
ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" _
(pStream As Any, _
ByVal lSize As Long, _
ByVal fRunmode As CBoolean, _
riid As GUID, _
ppvObj As Any) As Long
Public Type GUID
dwData1 As Long
wData2 As Integer
wData3 As Integer
abData4(7) As Byte
End Type
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As GUID) As Long
Private Const sIID_IPicture = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Private Const GMEM_MOVEABLE = &H2
Private Declare Function GlobalAlloc Lib "KERNEL32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "KERNEL32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "KERNEL32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "KERNEL32" (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory Lib "KERNEL32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Public Function PictureFromBits(abPic() As Byte) As IPicture
Dim nLow As Long
Dim cbMem As Long
Dim hMem As Long
Dim lpMem As Long
Dim IID_IPicture As GUID
Dim istm As stdole.IUnknown
Dim ipic As IPicture
On Error GoTo Out
nLow = LBound(abPic)
On Error GoTo 0
cbMem = (UBound(abPic) - nLow) + 1
hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
If hMem Then
lpMem = GlobalLock(hMem)
If lpMem Then
MoveMemory ByVal lpMem, abPic(nLow), cbMem
Call GlobalUnlock(hMem)
If (CreateStreamOnHGlobal(hMem, CTrue, istm) = S_OK) Then
If (CLSIDFromString(StrPtr(sIID_IPicture), IID_IPicture) = S_OK) Then
Call OleLoadPicture(ByVal ObjPtr(istm), cbMem, CFalse, IID_IPicture, PictureFromBits)
End If
End If
End If
End If
Out:
End Function
例子给你写好了,加Q,传你,给分,谢谢。
追问:
你q多少?我加你
补充:138001655
相关问题:
vb 用WebBrowser打开网页
VB 打开指定网页
WebBrowser打开的网页上的图片地址 VB
vb中的WebBrowser的保存网页
VB 如何添加一个简单网页WebBrowser ,急
转载来自于:如何用vb获取指定网页的验证码啊?(可以用webbrowser)
发表评论
-
一个智能的 Web 界面测试系统
2012-01-20 02:42 621一个智能的 Web 界面测试系统 2011年01月05日 ... -
Flash builder 4.5支持Android平台之初体验
2012-01-20 02:42 664Flash builder 4.5支持Android平台之初体 ... -
用JavaFX访问ArcGIS Server的REST服务(2)
2012-01-20 02:42 1048用JavaFX访问ArcGIS Server的REST服务(2 ... -
Gis分析 POI空间聚合研究Demo实现
2012-01-20 02:42 2065Gis分析 POI空间聚合研究Demo实现 2010年06月 ... -
主流地图API比较
2012-01-20 02:42 486主流地图API比较 2010年0 ... -
2011-10-26
2012-01-19 10:33 6302011-10-26 2011年10月26日 ... -
服装厂岗位说明书
2012-01-19 10:33 1063服装厂岗位说明书 2011年05月25日 服装厂岗位说明 ... -
Grub4dos典型菜单文件示范解读[转贴]
2012-01-17 03:06 809Grub4dos典型菜单文件示范解读[转贴] 2011年07 ... -
java线程安全总结
2012-01-17 03:06 604java线程安全总结 2010年 ... -
ITV常见故障错误代码(中兴平台)
2012-01-17 03:06 1211ITV常见故障错误代码(中 ... -
电脑关机时显示该内存不能为REED的解决办法
2012-01-17 03:06 2578电脑关机时显示该内存不能为REED的解决办法 2010年12 ... -
43543254325432
2012-01-17 03:06 77243543254325432 2011年06月23日 ... -
VB代码VB小程序: 捕获 WebBrowser控件的鼠标和键盘事件
2012-01-16 01:39 1094VB代码VB小程序: 捕获 Web ... -
我是用自己所谓的“爱”在控制自己最亲爱的孩子――JULY27
2012-01-16 01:39 692我是用自己所谓的“爱”在控制自己最亲爱的孩子――JULY27 ... -
如何培养小学生写日记的兴趣
2012-01-16 01:39 610如何培养小学生写日记 ... -
2011-12-21
2012-01-16 01:39 5922011-12-21 2011年12月21日 ... -
eclipse远程调试
2012-01-11 01:17 682eclipse远程调试 2011年09月01日 在极端 ... -
JavaScript 调用CMD命令
2012-01-11 01:17 1616JavaScript 调用CMD命令 2011年09月01日 ... -
struts2 标签错误
2012-01-11 01:16 585struts2 标签错误 2011年09月01日 htm ... -
javascript函数,对象入门
2012-01-11 01:16 562javascript函数,对象入门 2011年09月01日 ...
相关推荐
Webbrowser1获取网页源码,实例
VB在webbrowser控件中使用Document.body.innerhtml获取网页框架内的网页代码
获取页面文本的程序,不是页面的源代码哦!!!!!!!!!!!!!!!!!!!
VB.NET获取网页源码,很实用,只有几行代码
用于获取网页信息!利用WebBrowser获取网页信息
一句话获取webbrowser控句柄句。网上大部吩是用findwindowex枚举法,如果一个窗体上有多个网页控件,怎么区分哪个是Webbrowser1,Webbrowser2的句柄? 我用VB6创建多线程,在线程中加载Web控件,结果控件出来了,但是...
C# WebBrowser获取网页截图 调用WebBrowser.DrawImage
vb6_Webbrowser控件使用技巧 1、获得浏览器信息: Private Sub Command1_Click() WebBrowser1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow ...
有时需要对网页进行操作,但webbrowser控件却为完成装载,即可用此函数检测
vb获取并改变webbrowser中的url
采用WebBrowser伪装成浏览器访问,绕过了反爬虫程序,获取一个目标网页的数据
详细讲解: VB_检测WebBrowser网页_刷新_加载_变更_关闭的方法
里面有个set_proxy.ocx控件(设置代理),是我用vb做的ocx,因为我用pb实现ip代理不能执行成功,所以只能用vb做了个,pb来调用。 create_yzm.pbl是验证码识别程序,包含两部分:创建验证码识别库和利用识别码进行...
介绍使用VB webbrowser控件获取网络中气象数据的两种方法
VB浏览器源代码 webbrowser控件应用
Webbrowser控件史上最强技巧全集 VB调用webbrowser技巧集
验证码 填表 IE webbrowser 验证码 填表 IE webbrowser
vb+Webbrowser控件详解,可以自动化使用浏览器进行网络操作
vb WebBrowser屏蔽右键 vb WebBrowser屏蔽右键