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

首頁 > 編程 > VBScript > 正文

VBScript 根據IE窗口的標題輸出ESC

2020-06-26 17:38:55
字體:
來源:轉載
供稿:網友

已經很長時間了。一個打印機的driver老是會跳出一個窗口,告訴你出什么錯。因為我的程序是自動出來,屬于長期沒人監管的機器,所以,當這個信息跳出來的時候,就會使這個程序停頓。這個時候要認為按一下esc鍵,然后就可以繼續下去。未來解決這個問題,我使用VBScript寫了一個幾行的文件來代替我按這個esc。

核心代碼

‘測試函數 PressESC "Windows Internet Explorer", "{ESCAPE}"  '我們要處理的函數 Function PressESC(WindowTitle, KeyCommand)   Set objShell = CreateObject("WScript.Shell") ‘定義一個WHS對象   If objShell.AppActivate(WindowTitle) Then '檢測是否有我們要檢測的Windows     objShell.AppActivate WindowTitle ‘把窗口對焦     objShell.SendKeys KeyCommand '發送一個ESC鍵   End If End Function 

把以上的代碼,保存為VBS文件,然后把這個VBS設置為Windows的Scheduler,就可以實現自動按ESC了。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 河津市| 江达县| 湖州市| 阿合奇县| 张家港市| 宁夏| 天峻县| 高淳县| 寿光市| 娄底市| 东乡县| 兴仁县| 勐海县| 呈贡县| 临海市| 应城市| 陆川县| 阿坝| 清苑县| 台湾省| 永川市| 玉环县| 六盘水市| 离岛区| 曲沃县| 磐安县| 昭平县| 延安市| 湟源县| 郴州市| 潍坊市| 广平县| 新邵县| 长葛市| 麻栗坡县| 仪陇县| 承德市| 通道| 朝阳市| 监利县| 寻乌县|