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

首頁 > 編程 > VBScript > 正文

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

2019-10-26 18:08:20
字體:
供稿:網(wǎng)友

已經(jīng)很長時間了。一個打印機的driver老是會跳出一個窗口,告訴你出什么錯。因為我的程序是自動出來,屬于長期沒人監(jiā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ā)表

圖片精選

主站蜘蛛池模板: 尚义县| 江油市| 普宁市| 樟树市| 陇川县| 凌源市| 磐石市| 寿宁县| 文成县| 莆田市| 招远市| 武清区| 浦东新区| 公主岭市| 西乌珠穆沁旗| 五莲县| 阳西县| 高平市| 廊坊市| 余干县| 高台县| 孟州市| 九寨沟县| 茌平县| 河西区| 郁南县| 陈巴尔虎旗| 大新县| 庆元县| 夹江县| 永兴县| 子洲县| 花莲县| 兴国县| 沂水县| 合肥市| 资中县| 新巴尔虎左旗| 汤阴县| 阜城县| 略阳县|