VBS利用SendKeys输入中文字符的方法
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
首先我们看一个输入字母的例子: 复制代码 代码如下: 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”,很可惜的是该对象只能读取剪贴板,却不能写剪贴板。我们来看一段代码,怎么弹出你的剪贴板内容,你要先复制一段字符: Setbiweilun=CreateObject("htmlfile").parentWindow.clipboardData WScript.Echobiweilun.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命令,可以来写字符串到剪贴板中: echobiweilun|clip.exe就是用DOS命令把biweilun这串字符写入剪贴板了。经本人测试,该命令不成立,UMU的思路是这样来默默地后台写剪贴板: objWSH.Run"cmd.exe/cecho"&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的支撑。 代码如下: 复制代码 代码如下: Setwshobj=WScript.CreateObject("WScript.Shell") code="你想输入的中文" wshobj.Run"cmd.exe/cecho"&code&"|clip.exe",vbHide app=wshobj.Run("C:\windows\notepad2.exe") WScript.Sleep1000 wshobj.AppActivateapp wshobj.SendKeys"^v" Wscript.Quit 以上代码经本人测试完美有效,结贴~~~ |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于VBS利用SendKeys输入中文字符的方法的所有评论