- 浏览: 11660 次
最新评论
如何用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)
发表评论
-
[热门][转载]2012年下考酡语一轮温习必建一Unit 2 English
2012-01-20 12:02 573[热门][转载]2012年下考酡语一轮温习必建一Unit 2 ... -
螺丝规格定义与认识
2012-01-20 12:02 538螺丝规格定义与认识 2010年01月28日 论坛首页 & ... -
安徽省皖中省级示范三校08-09学年高二下学期期中考试
2012-01-20 12:02 682安徽省皖中省级示范三 ... -
消息处理函数
2012-01-19 16:53 465消息处理函数 2010年07 ... -
调用API函数
2012-01-19 16:53 554调用API函数 2010年11月26 ... -
从VC6到VC9移植代码问题总结收藏
2012-01-19 16:52 406从VC6到VC9移植代码问题 ... -
窗口和消息
2012-01-19 16:52 419窗口和消息 2011年06月27 ... -
vs2008使用点滴
2012-01-19 16:52 1033vs2008使用点滴 2011年02 ... -
Linux cp命令详解
2012-01-17 06:35 553Linux cp命令详解 2012年01月06日 源:h ... -
最新高配电脑
2012-01-17 06:35 431最新高配电脑 2012年01月09日 电脑型号 技嘉 ... -
协议适配器错误的解决方法
2012-01-17 06:35 558协议适配器错误的解决方法 2011年12月16日 Cas ... -
my.ini(my.cnf)与mysql优化指南
2012-01-17 06:35 861my.ini(my.cnf)与mysql优化指南 2011年 ... -
VB的webbrowser点击网页上的按钮链接问题
2012-01-16 05:16 1288VB的webbrowser点击网页上的按钮链接问题 2010 ... -
关于升级了IE后 VB6.0中添加webBrowser控件的问题
2012-01-16 05:16 857关于升级了IE后 VB6.0中添加webBrowser控件的问 ... -
VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用
2012-01-16 05:16 767VB自动登陆网络站点详解(二):Inet控件与WebBrows ... -
VB代码VB小程序: 捕获 WebBrowser控件的鼠标和键盘事件
2012-01-16 05:16 1101VB代码VB小程序: 捕获 Web ...
相关推荐
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技巧集
本VB程序使用IE浏览器控件WebBrowser和网页版微信,通过RichTextBox文本框来发送微信。在RichTextBox文本框中输入要发送的微信消息,按回车键后,自动将输入的内容发送到微信中。
验证码 填表 IE webbrowser 验证码 填表 IE webbrowser
vb+Webbrowser控件详解,可以自动化使用浏览器进行网络操作