VBS是如何输入中文字符的？

  怎么使用SendKeys的vbs方法来输入中文字符 

  首先我们看一个输入字母的例子： 

set s = WScript.CreateObject("WScript.Shell") 

app=s.Run ("C:windows

code="biweilun" 

WScript.Sleep 1000 

s.AppActivate app 

s.SendKeys code 

Wscript.quit 

这段vbs作用是打开一个记事本，然后把"biweilun"这串字符输入进去，可以把code参数换成chr(97)，那么你会发现自动输入到记事本里面的是一个"a"字符。code参数的值换成一个chr(一个汉字的ASCII码)是不行。 

   现在可以利用clip.exe这个小程序，它只在Win2003下才有，WinXP是没有的，xp下不能实现后台Windows写剪贴板的DOS命令，将Win2003中的Clip.exe下载后解压缩，把得到的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

WScript.Sleep 1000  

wshobj.AppActivate app  

wshobj.SendKeys "^v"  

Wscript.Quit