结合网上的写法,总结了一下
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}"