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

怎么使用SendKeys的vbs方法来输入中文字符 首先我们看一个输入字母的例子：set s = WScript.CreateObject('WScript.Shell')app=s.Run ('C:windowsotepad.exe')code='biweilun'WScript.Sleep 1000s.AppActivate apps.SendKeys codeWscript.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:windowsotepad2.exe') WScript.Sleep 1000 wshobj.AppActivate app wshobj.SendKeys '^v' Wscript.Quit