如何用vb获取指定网页的验证码啊?(可以用webbrowser)

如何用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）