怎么用WEBBROWSER得到打开网站的图标

Question

怎么用WEBBROWSER得到打开网站的图标。比如打开了WWW。HAO123。COM。怎么得到HAO123和LOGO图片，不能用下载的方法。。只用WEBBROWSER保存

Answer 1

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 
转成DELPHI

Answer 2

你的问题描述不清，你是想把一个网站的所有图片都保存起来？还是只保存Logo一个图片？

Answer 3

delphi直接操作webbrowser获取属性为logo的图片，找到就保存图片。