复制代码 代码如下:

setie=createobject("internetexplorer.application")

ie.navigate"about:blank"

dountilie.readystate=4:wscript.sleep25:loop

setdoc=ie.document

setbody=doc.body

setwin=doc.parentwindow

body.innerhtml="<OBJECTid=dlgCLASSID='clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>"

body.innertext=doc.getElementById("dlg").choosecolordlg

win.clipboarddata.setdata"text",body.innertext

ie.quit