站长资源脚本专栏
SendKeys clip.exe 发送中文的代码
简介复制代码 代码如下:Set WshShell=CreateObject("WScript.Shell") code="让SendKeys可以发送中文" WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide app=WshShell
复制代码 代码如下:
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