1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim CtrlRange As IHTMLControlRange
Dim obj As IHTMLControlElement
Set obj = WebBrowser1.Document.frames(0).Document.All.Item("imgcode")
Set CtrlRange = WebBrowser1.Document.frames(0).Document.body.createControlRange()
CtrlRange.Add obj
CtrlRange.execCommand "Copy"
Set Pic1.Picture = Clipboard.GetData
Set obj = Nothing
Set CtrlRange = Nothing
End Sub