现在的位置: 首页 > 综合 > 正文

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

2013年09月10日 ⁄ 综合 ⁄ 共 430字 ⁄ 字号 评论关闭

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

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:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>"

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

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

ie.quit

 

抱歉!评论已关闭.