已經很長時間了。一個打印機的driver老是會跳出一個窗口,告訴你出什么錯。因為我的程序是自動出來,屬于長期沒人監管的機器,所以,當這個信息跳出來的時候,就會使這個程序停頓。這個時候要認為按一下esc鍵,然后就可以繼續下去。未來解決這個問題,我使用VBScript寫了一個幾行的文件來代替我按這個esc。
核心代碼
‘測試函數 PressESC "Windows Internet Explorer", "{ESCAPE}" '我們要處理的函數 Function PressESC(WindowTitle, KeyCommand) Set objShell = CreateObject("WScript.Shell") ‘定義一個WHS對象 If objShell.AppActivate(WindowTitle) Then '檢測是否有我們要檢測的Windows objShell.AppActivate WindowTitle ‘把窗口對焦 objShell.SendKeys KeyCommand '發送一個ESC鍵 End If End Function
把以上的代碼,保存為VBS文件,然后把這個VBS設置為Windows的Scheduler,就可以實現自動按ESC了。
新聞熱點
疑難解答