如何把验证码图片复制到剪切板？

_vfp.AutoYield=.t.
of = CREATEOBJECT("webForm")
of.show
READ EVENTS
RETURN

DEFINE CLASS webForm AS Form
    ShowWindow = 2
    WindowState = 2
    ADD OBJECT txt1 as textbox WITH left=10,top=10,width=130,height=22,value="051002000511"
    ADD OBJECT cmd1 as commandbutton WITH left=150,top=10,height=22,Enabled=0,caption="test",Visible=.T.
    ADD OBJECT WB AS Olecontrol WITH left=0,top=42, Width=this.width,Height=this.height-42,Anchor=15,OleClass="Shell.Explorer.2",Visible=.T.
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
    PROCEDURE Init
        this.WB.Silent = 0  &&提示安全证书问题警告
        this.WB.Navigate("https://passport.)
    ENDPROC
    PROCEDURE WB.documentComplete(pdisp, url)
        IF SYS(3095,pdisp)==SYS(3095,this)
*            thisform.wb.Document.parentWindow.execScript(jsCode)
            thisform.cmd1.Enabled = 1
        ENDIF
    ENDPROC   
    PROCEDURE cmd1.click
img=thisform.wb.document.all.tags("img").item(2)
CtrlRange   = thisform.wb.document.Body.CreateControlRange()  &&这个好像是验证码图片
CtrlRange.add(img)
CtrlRange.ExecCommand("Copy")  &&拷贝到剪切板

susp
   
    retu
     ENDPROC
ENDDEFINE