VBScript 根據(jù)IE窗口的標(biāo)題輸出ESC
更新時(shí)間：2018年04月30日 14:56:26 作者：Dogfish
這篇文章主要介紹了VBScript 根據(jù)IE窗口的標(biāo)題輸出ESC,代替人工按esc操作的實(shí)現(xiàn)代碼，需要的朋友可以參考下
已經(jīng)很長(zhǎng)時(shí)間了。一個(gè)打印機(jī)的driver老是會(huì)跳出一個(gè)窗口，告訴你出什么錯(cuò)。因?yàn)槲业某绦蚴亲詣?dòng)出來，屬于長(zhǎng)期沒人監(jiān)管的機(jī)器，所以，當(dāng)這個(gè)信息跳出來的時(shí)候，就會(huì)使這個(gè)程序停頓。這個(gè)時(shí)候要認(rèn)為按一下esc鍵，然后就可以繼續(xù)下去。未來解決這個(gè)問題，我使用VBScript寫了一個(gè)幾行的文件來代替我按這個(gè)esc。
核心代碼
‘測(cè)試函數(shù)
PressESC "Windows Internet Explorer", "{ESCAPE}"
'我們要處理的函數(shù)
Function PressESC(WindowTitle, KeyCommand)
Set objShell = CreateObject("WScript.Shell") ‘定義一個(gè)WHS對(duì)象
If objShell.AppActivate(WindowTitle) Then '檢測(cè)是否有我們要檢測(cè)的Windows
objShell.AppActivate WindowTitle ‘把窗口對(duì)焦
objShell.SendKeys KeyCommand '發(fā)送一個(gè)ESC鍵
End If
End Function
把以上的代碼，保存為VBS文件，然后把這個(gè)VBS設(shè)置為Windows的Scheduler，就可以實(shí)現(xiàn)自動(dòng)按ESC了。
相關(guān)文章
今天我們學(xué)習(xí)基礎(chǔ)篇的最后一個(gè)部分:自定義函數(shù)和過程. 我們每天都在和函數(shù)打交道, inputbox()是函數(shù), msgbox()是函數(shù), int()也是函數(shù)...這些函數(shù)都是系統(tǒng)內(nèi)建的, 我們只能用不能改. 今天我就教大家怎樣自己制作一個(gè)函數(shù)2007-07-07
VBS教程：函數(shù)-LTrim、RTrim 和 Trim 函數(shù)
VBS教程：函數(shù)-LTrim、RTrim 和 Trim 函數(shù)...2006-11-11
VBS教程：屬性-CompareMode 屬性...2006-11-11
VBS教程：方法-Remove 方法...2006-11-11
在《VBS For Next循環(huán)的一些細(xì)節(jié)》中說到了 For Next 循環(huán)的控制變量?jī)H僅在循環(huán)開始前求值一次，但是其中存在一處陷阱2013-01-01
使用 iisext.vbs 添加應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法
這篇文章主要介紹了使用 iisext.vbs 添加應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法,需要的朋友可以參考下2014-07-07
VBS教程：函數(shù)-FormatDateTime 函數(shù)
VBS教程：函數(shù)-FormatDateTime 函數(shù)...2006-11-11
VBS教程：函數(shù)-IsNumeric 函數(shù)
VBS教程：函數(shù)-IsNumeric 函數(shù)...2006-11-11
可以從一臺(tái)遠(yuǎn)程服務(wù)器運(yùn)行 SP2 安裝程序Install.vbs
可以從一臺(tái)遠(yuǎn)程服務(wù)器運(yùn)行 SP2 安裝程序Install.vbs...2007-04-04
VBS教程：運(yùn)算符-Eqv 運(yùn)算符...2006-11-11