首页 > 编程 > VBScript > 正文

SendKeys clip.exe 发送中文的代码

2020-06-26 18:18:03
字体:
来源:转载
供稿:网友
'让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 

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表