VBScript 根據(jù)IE窗口的標(biāo)題輸出ESC
已經(jīng)很長(zhǎng)時(shí)間了。一個(gè)打印機(jī)的driver老是會(huì)跳出一個(gè)窗口,告訴你出什么錯(cuò)。因?yàn)槲业某绦蚴亲詣?dòng)出來(lái),屬于長(zhǎng)期沒人監(jiān)管的機(jī)器,所以,當(dāng)這個(gè)信息跳出來(lái)的時(shí)候,就會(huì)使這個(gè)程序停頓。這個(gè)時(shí)候要認(rèn)為按一下esc鍵,然后就可以繼續(xù)下去。未來(lái)解決這個(gè)問題,我使用VBScript寫了一個(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了。
相關(guān)文章
使用xcacls.vbs(cacls.exe)修改NTFS權(quán)限說明(中文版)
本分步指南介紹如何使用擴(kuò)展的更改訪問控制列表工具 (cacls.exe,對(duì)應(yīng)的腳本文件是xcacls.vbs) 修改和查看文件或文件夾的 NTFS 權(quán)限。2010-08-08
VBS實(shí)現(xiàn)GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具
VBS寫的GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具,轉(zhuǎn)換工具下載:GB2Ue.vbs (3.34 kb)2010-06-06
用vbs讀取遠(yuǎn)程計(jì)算機(jī)上的文本文件的代碼
用vbs讀取遠(yuǎn)程計(jì)算機(jī)上的文本文件的代碼...2007-03-03

