VBS怎么利用SendKeys輸入中文字符

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

  首先我們看一個輸入字母的例子：

復制代碼 代碼如下:

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會SendKeys方法的朋友就知道，作用是打開一個記事本，然后把"biweilun"這串字符輸入進去，當然，你可以把code參數換成chr(97)，那么你會發現自動輸入到記事本里面的是一個"a"字符。那么，你把code參數的值換成一個chr(一個漢字的ASCII碼)行不行呢？可以肯定的告訴你，不行。

我們通過調用一個IE的對象，這樣可以使用其內置的剪貼板元素，將"畢偉倫"這個字符串放進了剪貼板，然后通過Wsh對象來SendKey "^v"粘貼剪貼板內容，這樣就能實現vbs自動輸入中文字符了。

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

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

運行這個代碼，你會發現你剪貼板的東西彈出來了。在IE對象里，有SetData函數來寫剪貼板，GetData函數來讀剪貼板，在htmlfile對象里呢，也有這兩個函數的。你會想到是不是可以用htmlfile對象的SetData先來向剪貼板中寫入中文字符，然后再SendKeys呢？這樣豈不是很完美，既解決了中文輸入問題，又沒有網頁彈出。呵呵，想法是好的，我也這么想過，可是不行！！
htmlfile對象在使用中只能GetData來獲取剪貼板，對于SetData函數系統卻不給它寫的權限！呵呵，郁悶吧？但是htmlfile對象中的SetData函數確實是存在的，只是無法使用而已。不信的話讀者可以自己嘗試如下代碼，腳本不會報錯的，如果沒有這個函數的話，Wscript會報錯的： 

復制代碼 代碼如下:

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

                 


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

echo biweilun| clip.exe     就是用DOS命令把biweilun這串字符寫入剪貼板了。經本人測試，該命令不成立，UMU的思路是這樣來默默地后臺寫剪貼板：

objWSH.Run "cmd.exe /c echo " & szBuf & "| clip.exe", vbHide
如果這個DOS命令能真的實現就好了，那么SendKeys中文字符就太完美了。我到網上翻了很久，沒有找到任何關于他所謂的clip.exe的資料和參數等等東東。

Vbs利用SendKeys輸入中文字符，還是有那么一點遺憾~~~
7月28日補充內容如下：

經過UMU大哥的提點，原來上文提到的clip.exe只在Win2003下才有，WinXP是沒有的，那怪我不能實現后臺Windows寫剪貼板的DOS命令 

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

代碼如下：

復制代碼 代碼如下:

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 

到此，關于“VBS怎么利用SendKeys輸入中文字符”的學習就結束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習，快去試試吧！若想繼續學習更多相關知識，請繼續關注億速云網站，小編會繼續努力為大家帶來更多實用的文章！