SendKeys clip.exe 发送中文的代码
                (编辑:jimmy 日期: 2025/11/1 浏览:3 次 )
            
            
            复制代码 代码如下:
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引用另一个vbs的代码