VBScript 根據(jù)IE窗口的標題輸出ESC
已經(jīng)很長時間了。一個打印機的driver老是會跳出一個窗口,告訴你出什么錯。因為我的程序是自動出來,屬于長期沒人監(jiān)管的機器,所以,當(dāng)這個信息跳出來的時候,就會使這個程序停頓。這個時候要認為按一下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了。
相關(guān)文章
VBS教程:函數(shù)-LTrim、RTrim 和 Trim 函數(shù)
VBS教程:函數(shù)-LTrim、RTrim 和 Trim 函數(shù)...2006-11-11使用 iisext.vbs 添加應(yīng)用程序依存關(guān)系的實現(xiàn)方法
這篇文章主要介紹了使用 iisext.vbs 添加應(yīng)用程序依存關(guān)系的實現(xiàn)方法,需要的朋友可以參考下2014-07-07VBS教程:函數(shù)-FormatDateTime 函數(shù)
VBS教程:函數(shù)-FormatDateTime 函數(shù)...2006-11-11VBS教程:函數(shù)-IsNumeric 函數(shù)
VBS教程:函數(shù)-IsNumeric 函數(shù)...2006-11-11可以從一臺遠程服務(wù)器運行 SP2 安裝程序Install.vbs
可以從一臺遠程服務(wù)器運行 SP2 安裝程序Install.vbs...2007-04-04