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

2019-10-26 18:01:55

字體：大中小

供稿：網(wǎng)友

首先我們看一個(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方法的朋友就知道，作用是打開(kāi)一個(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ì)打開(kāi)一個(gè)IE的窗口，不夠完美，雖然不影響輸入字符。所以我在探索一種完美的方案，得知一個(gè)對(duì)象“htmlfile”，很可惜的是該對(duì)象只能讀取剪貼板，卻不能寫(xiě)剪貼板。我們來(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)寫(xiě)剪貼板，GetData函數(shù)來(lái)讀剪貼板，在htmlfile對(duì)象里呢，也有這兩個(gè)函數(shù)的。你會(huì)想到是不是可以用htmlfile對(duì)象的SetData先來(lái)向剪貼板中寫(xiě)入中文字符，然后再SendKeys呢？這樣豈不是很完美，既解決了中文輸入問(wèn)題，又沒(méi)有網(wǎng)頁(yè)彈出。呵呵，想法是好的，我也這么想過(guò)，可是不行！！
htmlfile對(duì)象在使用中只能GetData來(lái)獲取剪貼板，對(duì)于SetData函數(shù)系統(tǒng)卻不給它寫(xiě)的權(quán)限！呵呵，郁悶吧？但是htmlfile對(duì)象中的SetData函數(shù)確實(shí)是存在的，只是無(wú)法使用而已。不信的話(huà)讀者可以自己嘗試如下代碼，腳本不會(huì)報(bào)錯(cuò)的，如果沒(méi)有這個(gè)函數(shù)的話(huà)，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)寫(xiě)字符串到剪貼板中：

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

objWSH.Run "cmd.exe /c echo " & szBuf & "| clip.exe", vbHide

上一篇：一段提取用戶(hù)名和md5的vbs代碼

下一篇：最新版利用CDO.Message做的vbs下載者