vbs notepad输入中文字符

结合网上的写法，总结了一下

Set wshobj=WScript.CreateObject("WScript.Shell") 

#code就是想输入的中文或中英文的结合
code="仔仔" 
WScript.sleep 2000
wshobj.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide 
app=wshobj.Run("C:\windows\notepad.exe")
WScript.sleep 1000 
wshobj.AppActivate app 

#将code粘贴出来
wshobj.SendKeys "^v"

#保存文档
wshobj.SendKeys "^s"
WScript.sleep 2000 

#输入文件名
wshobj.SendKeys "birth"
wshobj.SendKeys "{Enter}"
WScript.sleep 2000
wshobj.SendKeys "%s"
WScript.sleep 1000 
wshobj.SendKeys "%{f4}"