Windows运行vbs在微信下自动发送烟花、庆祝

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

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

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

WshShell.AppActivate "WeChat.Application"

for i=1 to 10

WScript.Sleep 250

code="[庆祝]"   ' 自定义字, 也就是下面粘贴的

WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide      ' 运行windows下的clip

WshShell.SendKeys"^v"    ' ^相当于Ctrl 即 Ctrl+v

WshShell.SendKeys "%s"   ' %相当于Alt  即 微信发送消息快捷键 Alt+s

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

WScript.Sleep 250

code="[烟花]"

WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide  

WshShell.SendKeys"^v"

WshShell.SendKeys "%s"

Next