webbrowser验证码问题 简单但是我不会

Question

怎样把webbrowser中的一个图片（验证码图片）导到picturebox中？非常感谢啊高手们啊！！！！来啊！！！！ 我想编个批量申请QQ的工具     怎样吧图片搞到picturebox     是个问题   还有，怎样吧webbrowser保存起来？为了把申请到的QQ号码记录下来 其他的问题我已经想好了 高手来哦

Answer 1

在webbrowser下载完成后
保存webbrowser.document的所有数据，包括图片
然后获取图片的保存路径，连接到picturebox中

Answer 2

http://topic.csdn.net/t/20050807/16/4194178.html

Answer 3

3楼的！我要保存webbrowser中的1个图片，没要保存整个网页的图片啊

Answer 4

'窗体上添加2个CommandButton,1个Image,1个WebBrowser Private   Sub   Command1_Click() 
WebBrowser1.Navigate2   "http://post.baidu.com/f?kz=207893930 " 
End   Sub Private   Sub   Command2_Click() 
'CommandButton按两次，Image控件讲显示验证码图片 
        Dim   CtrlRange,   x,   k   As   Boolean 
        
        For   Each   x   In   WebBrowser1.Document.All 
                If   x.tagName   =   "TEXTAREA "   And   k   =   False   Then 
                        If   x.Name   =   "co "   Then 
                                x.focus 
                                k   =   True 
                        End   If 
                End   If 
                If   x.tagName   =   "IMG "   And   k   Then 
                        If   InStr(1,   x.src,   "post.baidu.com/cgi-bin/genimg ")   >   0   Then 
                                Set   CtrlRange   =   WebBrowser1.Document.body.createControlRange() 
                                CtrlRange.Add   (x) 
                                CtrlRange.execCommand   ( "Copy ") 
                                Image1.Picture   =   Clipboard.GetData 
                        End   If 
                End   If 
        Next 
End   Sub 
翻到以前我回复别人帖子用到的一段代码这段代码应该对你有帮助

Answer 5

修改一下现在也可以用
第2个按钮点 两下 图片就复制到IMAGE控件上了
'窗体上添加2个CommandButton,1个Image,1个WebBrowserPrivate Sub Command1_Click()
WebBrowser1.Navigate2 "http://post.baidu.com/f?kz=207893930 "
End SubPrivate Sub Command2_Click()
'CommandButton按两次，Image控件讲显示验证码图片
        Dim CtrlRange, x, k         As Boolean
        
        For Each x In WebBrowser1.Document.All
                If x.tagName = "TEXTAREA" And k = False Then
                        If x.Name = "co" Then
                                x.focus
                                k = True
                        End If
                End If
                If UCase(x.tagName) = "IMG" And k Then
                        If InStr(1, x.src, "/cgi-bin/genimg") > 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

Answer 6

Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type'// 用来加载Internet上的图片
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long'// 从Internet上加载图片
Private Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End WithOn Error GoTo LocalErrOleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
LocalErr:
Set LoadPicture = VB.LoadPicture(strFileName)
Err.Clear
End FunctionPrivate Sub Command1_Click()
Set Picture1.Picture = LoadPicture("http://freeqq3.qq.com/getimage")  
End Sub
'嘿嘿。。刚看了申请QQ页面的验证码地址。。你试下看看吧。。
'不用在WebBrowser中找Img元素了。。你在WebBrowser_DoXXXX　　忘名字了。。就是网页加载完后。。调用这句
'Set Picture1.Picture = LoadPicture("http://freeqq3.qq.com/getimage")
'注意：重新加载过验证码图片后。。WebBrowser中的那个验证码图片就不能用了。。
'亲自己试下就知道了。。这时是以Picture1中的验证图片为准的

Answer 7

楼上的！没听明白啊！！！这是无保护QQ申请地址 做个webbrowser 地址为：http://signup.qq.com把验证码图片放到picturebox中 懂的麻烦您发下源代码咯！！

Answer 8

谢谢6楼的
用你的我已经搞好了。太感谢你了。
我要给你加分！！！！
你到这里回个话吧。
http://topic.csdn.net/u/20080519/23/56918dff-7cc2-432b-bee9-156a59ffd439.html
表示一下心意。