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

首頁 > 編程 > VBScript > 正文

VBScript 根據(jù)IE窗口的標(biāo)題輸出ESC

2020-07-26 11:44:58
字體:
供稿:網(wǎng)友

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

核心代碼

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

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

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 贵州省| 建水县| 水富县| 元阳县| 阆中市| 陆良县| 西平县| 仁寿县| 平罗县| 蕉岭县| 靖西县| 清远市| 屏边| 洞头县| 乐业县| 佛坪县| 南投市| 江城| 嘉鱼县| 台前县| 枞阳县| 新巴尔虎右旗| 隆德县| 交城县| 壤塘县| 长海县| 思茅市| 凤凰县| 托里县| 五台县| 繁昌县| 临澧县| 泸州市| 衡阳市| 常熟市| 新平| 博爱县| 台南县| 唐山市| 昌江| 年辖:市辖区|