vbs实现微信自动发送消息

echo 测试 | clip.exe
在cmd命令行窗口中输入以上命令，你会发现“测试”这两个字符被放入了剪切板，在vbs中我们只需要调用这个命令就可以实现将内容放到剪切板的操作
ws.Run "cmd.exe /c echo 测试 | clip.exe", 0, True
现在我们清楚如果发送消息，也知道如何发送中文了，但是要向微信发送消息我们还需要知道怎么在任意界面下唤醒微信，一般的应用我们可以通过appActivate来激活窗口，当然我们也可以通过快捷键来唤醒某个软件或执行特定的操作，比如在微信中我们可以通过Ctrl+Alt+W来唤醒微信，用Ctrl+F来唤醒查找好友功能。

Dim name,Msg,num    '定义变量并分配内存     
 'Inputbox()函数进行输入   
name=Inputbox("请输入你要给谁发送消息")
Msg=Inputbox("请输入你发送消息的内容")
num=Inputbox("请输入重复发送多少次消息")
set ws=wscript.createobject("wscript.shell")'创建Windows的shell对象打开shell窗口
'在Windows的shell窗口执行cmd.exe /c echo " & Name & " | clip.exe"将name复制到剪切板中
ws.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
ws.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
ws.sendKeys "^%w"  '通过Ctrl+Alt+W快捷键打开微信
wscript.sleep 500
ws.sendKeys "^f"    '执行ctrl + F快捷键在微信窗口唤醒搜索功能
wscript.sleep 500
ws.sendKeys "^v" '粘贴要搜索的name
wscript.sleep 500
ws.sendKeys "{ENTER}"   '按键盘的enter键，进入要发送消息的name联系人窗口
wscript.sleep 500
'在Windows的shell窗口执行cmd.exe /c echo " & Name & " | clip.exe"将发送的消息内容复制到剪切板中
ws.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True  
wscript.sleep 500
for i=1 to num  '循环发送num次
ws.sendKeys "^v"   '粘贴要发送的msg消息内容
wscript.sleep 500
ws.sendKeys "{ENTER}"  '按enter键进行发送
next

dim program1,name,Msg  '定义变量并分配内存
'Inputbox()函数进行输入
name=Inputbox("请输入你要给谁发送消息")    
Msg=Inputbox("请输入你发送消息的内容")
num=Inputbox("请输入重复发送多少次消息")
'program1表示WeChat.exe的位置
'program1="D:other-systemsWeChatWeChat.exe"
'program1="D:other-systemsQQBinQQ.exe"
program1=Inputbox("请输入WeChat.exe或QQ.exe的存储位置")
set wshshell=CreateObject("wscript.shell")  '创建Windows的shell对象打开shell窗口
'在Windows的shell窗口执行cmd.exe /c echo " & Name & " | clip.exe"将name复制到剪切板中
wshshell.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
wshshell.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
'通过绝对路径的方式打开微信窗口
set oexec=wshshell.exec(program1)
wscript.sleep 500  '停留500毫秒
wshshell.sendKeys "^f" '执行ctrl + F快捷键在微信窗口唤醒搜索功能
wscript.sleep 500  
wshshell.sendKeys "^v"  '粘贴要搜索的name
wscript.sleep 500
wshshell.sendKeys "{ENTER}"  '按键盘的enter键，进入要发送消息的name联系人窗口
wscript.sleep 500
'在Windows的shell窗口执行cmd.exe /c echo " & Name & " | clip.exe"将发送的消息内容复制到剪切板中
wshshell.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True
wscript.sleep 500
for i=1 to num   '循环发送num次
wshshell.sendKeys "^v"  '粘贴要发送的msg消息内容
wscript.sleep 500
wshshell.sendKeys "{ENTER}"    '按enter键进行发送
next
wscript.quit