已經(jīng)很長時間了。一個打印機(jī)的driver老是會跳出一個窗口,告訴你出什么錯。因為我的程序是自動出來,屬于長期沒人監(jiān)管的機(jī)器,所以,當(dāng)這個信息跳出來的時候,就會使這個程序停頓。這個時候要認(rè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了。
新聞熱點(diǎn)
疑難解答
圖片精選