◎曲线救国——显示系统颜色

从一个外国网站上淘出这么个东西，看到一个系统颜色选择对话框孤零零的立在屏幕上，感觉倒也很有三分怪异。

code:

set ie = createobject("internetexplorer.application")

ie.navigate "about:blank"

do until ie.readystate = 4 : wscript.sleep 25 : loop

set doc = ie.document

set body = doc.body

set win = doc.parentwindow

body.innerhtml = "<OBJECT id=dlg

CLASSID='clsid: 3050f 819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>"

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

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

ie.quit