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

這篇文章主要介紹了VBScript如何根據(jù)IE窗口的標(biāo)題輸出ESC，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

已經(jīng)很長(zhǎng)時(shí)間了。一個(gè)打印機(jī)的driver老是會(huì)跳出一個(gè)窗口，告訴你出什么錯(cuò)。因?yàn)槲业某绦蚴亲詣?dòng)出來(lái)，屬于長(zhǎng)期沒(méi)人監(jiān)管的機(jī)器，所以，當(dāng)這個(gè)信息跳出來(lái)的時(shí)候，就會(huì)使這個(gè)程序停頓。這個(gè)時(shí)候要認(rèn)為按一下esc鍵，然后就可以繼續(xù)下去。未來(lái)解決這個(gè)問(wèn)題，我使用VBScript寫(xiě)了一個(gè)幾行的文件來(lái)代替我按這個(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了。

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“VBScript如何根據(jù)IE窗口的標(biāo)題輸出ESC”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!