_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

img=thisform.wb.document.all.tags("img").item(2)
CtrlRange   = thisform.wb.document.Body.CreateControlRange()  &&这个好像是验证码图片
CtrlRange.add(img)
CtrlRange.ExecCommand("Copy")  &&拷贝到剪切板
这个方法好像在IE6中能正常运行

一片空白曾经写过一个通用的（字符串和图片复制到剪切板中）代码

TEXT TO AddImg TEXTMERGE NOSHOW PRETEXT 15
    var oImg = document.getElementsByTagName('img').item(0);
    var oControlRange = document.body.createControlRange();
    oControlRange.add(oImg);
    oControlRange.execCommand("Copy");
ENDTEXT
thisform.wb.document.parentWindow.execScript(AddImg)
这个可以，是IDCardWeb(251333006)朋友赐教的，非常感谢

这个有代码吗？