国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 岳阳市| 永寿县| 开封县| 亳州市| 大新县| 宜州市| 北票市| 武宣县| 中宁县| 竹山县| 墨江| 南陵县| 勃利县| 高青县| 西华县| 凤山县| 嘉黎县| 工布江达县| 普定县| 汉寿县| 麻阳| 常宁市| 铜陵市| 隆回县| 屏东市| 上高县| 咸宁市| 陇南市| 达拉特旗| 镇平县| 沅陵县| 会昌县| 九龙坡区| 呼玛县| 呼图壁县| 普兰店市| 通海县| 慈溪市| 思南县| 定边县| 锦屏县|