怎么用vbs实现显示系统调色板

这篇文章给大家分享的是有关怎么用vbs实现显示系统调色板的内容。小编觉得挺实用的,因此分享给大家做个参考,一起跟随小编过来看看吧。

代码如下:

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

感谢各位的阅读!关于“怎么用vbs实现显示系统调色板”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,让大家可以学到更多知识,如果觉得文章不错,可以把它分享出去让更多的人看到吧!