VBS怎么利用SendKeys輸入中文字符-創(chuàng)新互聯(lián)

這篇文章主要介紹“VBS怎么利用SendKeys輸入中文字符”，在日常操作中，相信很多人在VBS怎么利用SendKeys輸入中文字符問(wèn)題上存在疑惑，小編查閱了各式資料，整理出簡(jiǎn)單好用的操作方法，希望對(duì)大家解答”VBS怎么利用SendKeys輸入中文字符”的疑惑有所幫助！接下來(lái)，請(qǐng)跟著小編一起來(lái)學(xué)習(xí)吧！

站在用戶的角度思考問(wèn)題，與客戶深入溝通，找到峨邊彝族網(wǎng)站設(shè)計(jì)與峨邊彝族網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站制作、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名與空間、虛擬主機(jī)、企業(yè)郵箱。業(yè)務(wù)覆蓋峨邊彝族地區(qū)。

  首先我們看一個(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碼)行不行呢？可以肯定的告訴你，不行。

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

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

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

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

echo biweilun| clip.exe     就是用DOS命令把biweilun這串字符寫入剪貼板了。經(jīng)本人測(cè)試，該命令不成立，UMU的思路是這樣來(lái)默默地后臺(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)過(guò)UMU大哥的提點(diǎn)，原來(lái)上文提到的clip.exe只在Win2003下才有，WinXP是沒有的，那怪我不能實(shí)現(xiàn)后臺(tái)Windows寫剪貼板的DOS命令 

現(xiàn)將Win2003中的Clip.exe上傳上來(lái)，請(qǐng)大家首先下載clip.rar   下載后解壓縮，把得到的clip.exe復(fù)制到 %systemroot%\system32文件夾下面即可?，F(xiàn)在vbs用SendKeys輸入中文字符的問(wèn)題得以完美解決了，前提是有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


到此，關(guān)于“VBS怎么利用SendKeys輸入中文字符”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí)，請(qǐng)繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會(huì)繼續(xù)努力為大家?guī)?lái)更多實(shí)用的文章！

名稱欄目：VBS怎么利用SendKeys輸入中文字符-創(chuàng)新互聯(lián)
分享鏈接：http://muchs.cn/article44/dpjche.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、Google、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、關(guān)鍵詞優(yōu)化、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)

成都網(wǎng)站建設(shè)公司