主頁 > 知識(shí)庫 > VBS利用SendKeys輸入中文字符的方法

VBS利用SendKeys輸入中文字符的方法

熱門標(biāo)簽:智云億呼電話機(jī)器人 上海辦理400電話選號(hào) 企業(yè)400電話辦理價(jià)錢低 外呼系統(tǒng)群 龍巖400電話申請(qǐng) 天津智能外呼系統(tǒng)排名 外呼系統(tǒng)說話聲音小怎么辦 墨西哥地圖標(biāo)注app 機(jī)器人打電銷適用于美業(yè)嗎
  首先我們看一個(gè)輸入字母的例子:
復(fù)制代碼 代碼如下:

set s = WScript.CreateObject("WScript.Shell")
app=s.Run ("C:\windows\notepad.exe")
code="biweilun"
WScript.Sleep 1000
s.AppActivate app
s.SendKeys code
Wscript.quit

這段vbs會(huì)SendKeys方法的朋友就知道,作用是打開一個(gè)記事本,然后把"biweilun"這串字符輸入進(jìn)去,當(dāng)然,你可以把code參數(shù)換成chr(97),那么你會(huì)發(fā)現(xiàn)自動(dòng)輸入到記事本里面的是一個(gè)"a"字符。那么,你把code參數(shù)的值換成一個(gè)chr(一個(gè)漢字的ASCII碼)行不行呢?可以肯定的告訴你,不行。

我們通過調(diào)用一個(gè)IE的對(duì)象,這樣可以使用其內(nèi)置的剪貼板元素,將"畢偉倫"這個(gè)字符串放進(jìn)了剪貼板,然后通過Wsh對(duì)象來SendKey "^v"粘貼剪貼板內(nèi)容,這樣就能實(shí)現(xiàn)vbs自動(dòng)輸入中文字符了。

但是呢,這個(gè)方法有個(gè)缺憾,就是它會(huì)打開一個(gè)IE的窗口,不夠完美,雖然不影響輸入字符。所以我在探索一種完美的方案,得知一個(gè)對(duì)象“htmlfile”,很可惜的是該對(duì)象只能讀取剪貼板,卻不能寫剪貼板。我們來看一段代碼,怎么彈出你的剪貼板內(nèi)容,你要先復(fù)制一段字符:

Set biweilun=CreateObject("htmlfile").parentWindow.clipboardData
WScript.Echo biweilun.GetData("text")

運(yùn)行這個(gè)代碼,你會(huì)發(fā)現(xiàn)你剪貼板的東西彈出來了。在IE對(duì)象里,有SetData函數(shù)來寫剪貼板,GetData函數(shù)來讀剪貼板,在htmlfile對(duì)象里呢,也有這兩個(gè)函數(shù)的。你會(huì)想到是不是可以用htmlfile對(duì)象的SetData先來向剪貼板中寫入中文字符,然后再SendKeys呢?這樣豈不是很完美,既解決了中文輸入問題,又沒有網(wǎng)頁彈出。呵呵,想法是好的,我也這么想過,可是不行?。?
htmlfile對(duì)象在使用中只能GetData來獲取剪貼板,對(duì)于SetData函數(shù)系統(tǒng)卻不給它寫的權(quán)限!呵呵,郁悶吧?但是htmlfile對(duì)象中的SetData函數(shù)確實(shí)是存在的,只是無法使用而已。不信的話讀者可以自己嘗試如下代碼,腳本不會(huì)報(bào)錯(cuò)的,如果沒有這個(gè)函數(shù)的話,Wscript會(huì)報(bào)錯(cuò)的: 

復(fù)制代碼 代碼如下:

Set biweilun=CreateObject("htmlfile").parentWindow.clipboardData
biweilun.SetData "text","畢偉倫"
WScript.Echo biweilun.GetData("text")
                 


在vbs牛人UMU的空間上看到,據(jù)他講有這么一條DOS命令,可以來寫字符串到剪貼板中:

echo biweilun| clip.exe     就是用DOS命令把biweilun這串字符寫入剪貼板了。經(jīng)本人測(cè)試,該命令不成立,UMU的思路是這樣來默默地后臺(tái)寫剪貼板:

objWSH.Run "cmd.exe /c echo "  szBuf  "| clip.exe", vbHide
如果這個(gè)DOS命令能真的實(shí)現(xiàn)就好了,那么SendKeys中文字符就太完美了。我到網(wǎng)上翻了很久,沒有找到任何關(guān)于他所謂的clip.exe的資料和參數(shù)等等東東。

Vbs利用SendKeys輸入中文字符,還是有那么一點(diǎn)遺憾~~~
7月28日補(bǔ)充內(nèi)容如下:

經(jīng)過UMU大哥的提點(diǎn),原來上文提到的clip.exe只在Win2003下才有,WinXP是沒有的,那怪我不能實(shí)現(xiàn)后臺(tái)Windows寫剪貼板的DOS命令 

現(xiàn)將Win2003中的Clip.exe上傳上來,請(qǐng)大家首先下載clip.rar   下載后解壓縮,把得到的clip.exe復(fù)制到 %systemroot%\system32文件夾下面即可?,F(xiàn)在vbs用SendKeys輸入中文字符的問題得以完美解決了,前提是有clip.exe的支撐。

代碼如下:
復(fù)制代碼 代碼如下:

Set wshobj=WScript.CreateObject("WScript.Shell") 
code="你想輸入的中文" 
wshobj.Run "cmd.exe /c echo "  code  "| clip.exe", vbHide 
app=wshobj.Run ("C:\windows\notepad2.exe") 
WScript.Sleep 1000 
wshobj.AppActivate app 
wshobj.SendKeys "^v" 
Wscript.Quit 


以上代碼經(jīng)本人測(cè)試完美有效,結(jié)貼~~~
您可能感興趣的文章:
  • vbs sendKeys Virtual-Key Codes 十六進(jìn)制符號(hào)
  • VBS sendkeys 模擬擊鍵操作 問題解決
  • SendKeys clip.exe 發(fā)送中文的代碼
  • vbscript sendkeys實(shí)例代碼大全
  • VBS中SendKeys的基本應(yīng)用
  • SendKeys參考文檔
  • vbs sendKeys 16進(jìn)制的結(jié)合使用(打開IE,靜音,打開播放器等)

標(biāo)簽:鄂爾多斯 錫林郭勒盟 阜新 黃山 麗水 承德 齊齊哈爾 青島

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS利用SendKeys輸入中文字符的方法》,本文關(guān)鍵詞  VBS,利用,SendKeys,輸入,中文,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《VBS利用SendKeys輸入中文字符的方法》相關(guān)的同類信息!
  • 本頁收集關(guān)于VBS利用SendKeys輸入中文字符的方法的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章