分享一个自动发送微信消息的工具

相对论R

在A列输入微信号，B列输入要发送的内容，即可批量发送微信消息。

代码：
Sub wechat()

Shell "F:\WeChat\WeChat.exe"

For i = 2 To 3 '这里只选取了A2:B3这个区域的信息，想批量发送更多的话自己改一下

    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
   
   
    SendKeys Range("A" & i)
   
    Application.Wait (Now() + TimeSerial(0, 0, 1))
   
    SendKeys "{ENTER}", True
   
    Application.Wait (Now() + TimeSerial(0, 0, 2))
   
    SendKeys Range("B" & i)
    SendKeys "{ENTER}", True
   
    Application.Wait (Now() + TimeSerial(0, 0, 1))
   
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
   
Next

End Sub

注意事项：
1.shell函数后边的地址，根据自己电脑中微信的地址来变换；
2.for函数后边i的取值范围，根据自己的excel表中对象的数量进行更替；
3.PC版微信登录后，在微信中随便一个聊天框输入信息试试，确保自己的输入法处于英文输入状态；
4.输入法调试结束后，在微信左侧菜单中有“聊天”、“”通讯录”、“收藏”、“微信文件”、“看一看”选项，单击“通讯录”之后就别碰微信了，直接调出excel运行代码即可。

tuyaking

学习了！！

相对论R

tuyaking 发表于 2020-7-24 17:43
学习了！！

哈哈哈原理很简单！当初我想找微信自动发送消息的代码，都是那种贼长而且不太好用的，微信又不开放API，所以我琢磨着有没有简单的方式

[V]

学习了！

再请教一下相对论R老师：

1、你的语句中，第一步中的SendKeys "{TAB}", True共有7句，而第二步中的SendKeys "{TAB}", True共用5句，为何会有这个差异呢？

2、SendKeys "{TAB}", True语句的作用，是为了跳跃到微信上的选择框么？

请指教！感谢！

dkljm

学习试用了！

相对论R

[V] 发表于 2020-8-6 15:34
学习了！

再请教一下相对论R老师：

1.是的，就是为了选定搜索框；
2.前七句sendkeys是为了从通讯录转移到搜索框，后五句sendkeys是为了从已经激活并发送了消息的聊天窗口转移到通讯录

[V]

好的，谢谢@相对论R老师的讲解，明白原理了，设计的很巧妙，对实际应用的帮助很大！

lss001

相对论R 发表于 2020-8-7 19:06
1.是的，就是为了选定搜索框；
2.前七句sendkeys是为了从通讯录转移到搜索框，后五句sendkeys是为了从已 ...

Sub wechat()'能否简化为以下形式？
Shell "F:\WeChat\WeChat.exe"
For i = 2 To 3 '选取A2:B3区域
    SendKeys "{Tab 7}"
    SendKeys Range("A" & i)
    Application.Wait (Now() + TimeSerial(0, 0, 1))
    SendKeys "{Enter}"
    Application.Wait (Now() + TimeSerial(0, 0, 2))
    SendKeys Range("B" & i)
    SendKeys "{Enter}"
    Application.Wait (Now() + TimeSerial(0, 0, 1))
    SendKeys "{Tab 5}"
Next
End Sub

相对论R

lss001 发表于 2020-8-14 21:57
Sub wechat()'能否简化为以下形式？
Shell "F:\WeChat\WeChat.exe"
For i = 2 To 3 '选取A2:B3区域

原理是一样的嘛，你这个精简了我的代码

palomino

楼主大大，单元格内容明明有%，但微信发送的内容就没有，并且连同%后面的字符也消失了，请问怎么解决呢？
比如：单元格是12%ddij，微信发送的内容则是12dij
我查了下百度，貌似%是sendkeys的特殊符号，得加{}，但是我不知道该怎么修改代码，求指导~~
file:///C:/Users/Administrator/Desktop/de900c5076c7a3bc570babee2798511.png
file:///C:/Users/Administrator/Desktop/cd728177f3769c8881cbdb2ee27d772.png