相关链接：wshShell.SendKeys模拟键盘操作

在txt下粘贴以下代码，修改txt文件为vbs，根据需求自行调整

Set WshShell=WScript.CreateObject("WScript.Shell")WshShell.AppActivate "WeChat.Application"for i=1 to 10WScript.Sleep 250code="[庆祝]"   ' 自定义字, 也就是下面粘贴的WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide      ' 运行windows下的clipWshShell.SendKeys"^v"    ' ^相当于Ctrl 即 Ctrl+vWshShell.SendKeys "%s"   ' %相当于Alt  即 微信发送消息快捷键 Alt+s'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''WScript.Sleep 250code="[烟花]"WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide  WshShell.SendKeys"^v"WshShell.SendKeys "%s"Next