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

EXCELHOMET

我测试多次，此程序 不得行。

EXCELHOMET

32004726 发表于 2021-8-13 14:09
厉害了，楼主，简单的代码实现复杂的东西，新版的微信，我调了前面的tab次数，搜索人员没有问题了，但是人 ...

我的怎么不行，微信发信息，请教你是怎么做的，我是照楼主的方法呀

13799809955

楼主，请问一下，你现在还有研究用VBA自动发送微信消息吗？

naroto

vba简直无所不能

dyhq2012

能不能定时发送呢

深吸嗨罗茵

非常好用，7改成8个就能用了

18661293306

感谢楼主分享，在此基础上做了些优化，分享给大家！
目前还不能处理异常情况，比如碰到中途被中断不能定位到微信正确位置的时候，程序无法识别，有大神可以解决的话还帮忙优化。
以下贴上代码和表格截图：


Sub 微信群发()


Range("D6:D65536").ClearContents


Shell "C:\Program Files (x86)\Tencent\WeChat\WeChat.exe"


For i = 6 To Range("B65536").End(xlUp).Row '循环规则


    SendKeys Range("B" & i) '搜索微信名
    Application.Wait (Now() + TimeSerial(0, 0, 3)) '等待微信显示搜索结果
   
    SendKeys "{Enter}" '打开对话框
    Application.Wait (Now() + TimeSerial(0, 0, 1))
   
    SendKeys Range("C" & i) '输入信息
    Application.Wait (Now() + TimeSerial(0, 0, 1))
   
    SendKeys "{Enter}" '发送消息
        
    Range("D" & i).Value = "发送成功" '反写EXCEL表发送状态
    Application.Wait (Now() + TimeSerial(0, 0, Range("C3"))) '用户设置的发送间隔时间
   
    SendKeys "{Tab 12}" '回到搜索框
    Application.Wait (Now() + TimeSerial(0, 0, 1))
Next
SendKeys "{Tab 2}" '回到微信主界面
MsgBox "恭喜您，您的消息群发已成功完成！", , "微信消息群发小程序"
End Sub

mavin

今天逛论坛，再次看到这个帖子，我也是用了楼主的代码做了改造。

主要是用来群发文件和群发截图。用了1年多了，整体还是蛮稳定的。以前都是群发邮件（发不同的附件），用qq群发截图，发完以后在微信群里说一下，我群发过了，大家自己去收一下。

现在统一用微信群发了。感觉微信大家都在用，到达率高。邮件和qq，有些人是不用的。

从稳定性来说，还是邮件群发最稳定，微信的这个，毕竟是模拟键盘鼠标操作，碰到电脑突然有弹窗，会有问题。不过我平时的群发，也就2,30人，群里也会说一下的，有人没收到，也会跟我反馈的。所以问题不大。

JLRJ

可否利用VBA，制作一个自动分类微信文件（只是各类文件，不包含聊天记录）的工具，按联系人分类，或自动提取指定联系人的聊天文件

[309411]

18661293306 发表于 2021-12-16 16:50
感谢楼主分享，在此基础上做了些优化，分享给大家！
目前还不能处理异常情况，比如碰到中途被中断不能定位 ...

试了一下没成功   大神