龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

SendKeys clip.exe 发送中文的代码

时间:2014-06-29 03:12来源:网络整理 作者:网络 点击:
分享到:
'让SendKeys可以发送中文,clip.exe在windows2003里有

复制代码 代码如下:

Set WshShell=CreateObject("WScript.Shell")
code="让SendKeys可以发送中文"
WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide
app=WshShell.Run ("notepad")
WScript.Sleep 1000
WshShell.AppActivate app
WshShell.SendKeys "^v{BS}"
Wscript.Quit

精彩图集

赞助商链接