下面這個代碼修改了壹下,測試通過,是可以顯示的
Private?Sub?Command1_Click()Dim?CtrlRange,?X,?ii?As?Long
For?Each?X?In?WebBrowser1.Document.All
If?X.tagname?=?"IMG"?Then
If?InStr(X.src,?"/webmail/jcaptcha?time=")?>?0?Then'===修改過的地方
Set?CtrlRange?=?WebBrowser1.Document.body.createcontrolrange()
CtrlRange.Add?(X)
CtrlRange.execcommand?("copy")
Image1.Picture?=?Clipboard.GetData
Exit?Sub
End?If
ii?=?ii?+?1
End?If
Next
End?Sub
Private?Sub?Form_Load()
WebBrowser1.Navigate?"
End?Sub 附件裏面有完整工程和生成的exe文件。