国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

用vbs實(shí)現(xiàn)顯示系統(tǒng)調(diào)色板的代碼

2019-10-26 18:00:19
字體：大 中 小
供稿：網(wǎng)友
復(fù)制代碼 代碼如下:

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 

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 准格尔旗| 扬州市| 井陉县| 岗巴县| 若尔盖县| 鲁甸县| 监利县| 河北区| 峨眉山市| 贵阳市| 平和县| 四子王旗| 诏安县| 扎鲁特旗| 桦甸市| 钦州市| 南岸区| 海安县| 姜堰市| 西乡县| 怀远县| 广宁县| 武冈市| 紫阳县| 汾阳市| 湛江市| 繁昌县| 马龙县| 东兴市| 海盐县| 漾濞| 龙江县| 波密县| 城市| 金华市| 新巴尔虎左旗| 宿迁市| 清涧县| 秦安县| 江华| 澜沧|