2021 年 7月 5 日随笔档案 - 我是cdt

2021年7月5日

摘要： Set WA= CreateObject("Word.Application") Set WAT = WA.Tasks If WAT.Exists("Tool") Then 'Tool.exe WAT("Tool").Activate '激活窗体 WAT("Tool").WindowState = 阅读全文

posted @ 2021-07-05 16:36 我是cdt 阅读(46) 评论(0) 推荐(0) 编辑

系统音效控制

摘要： Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.Sendkeys "增音" '静音减音增音 Set WshShell = Wscript.CreateObject("Wscript.Shell")WshShell.Sen 阅读全文

posted @ 2021-07-05 16:34 我是cdt 阅读(45) 评论(0) 推荐(0) 编辑