SendKeys clip.exe 发送中文的代码

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

您可能感兴趣的文章:

vbs sendKeys Virtual-Key Codes 十六进制符号VBS sendkeys 模拟击键操作 问题解决VBS利用SendKeys输入中文字符的方法vbscript sendkeys实例代码大全VBS中SendKeys的基本应用SendKeys参考文档vbs sendKeys 16进制的结合使用(打开IE，静音，打开播放器等)