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

32004726 · 发表于 2022-2-25 08:57

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

那还是需要调tab次数，应该是光标没有定位到搜索框

860510694 · 发表于 2022-3-5 11:07

mavin 发表于 2021-12-19 14:22
今天逛论坛，再次看到这个帖子，我也是用了楼主的代码做了改造。

主要是用来群发文件和群发截图。用了1 ...

大佬，求微信群发文件

wyy0904 · 发表于 2022-4-3 23:19

860510694 发表于 2022-3-5 11:07
大佬，求微信群发文件

同求大佬分享下

363037416 · 发表于 2022-4-22 17:06

你这个约束性较大，不如这样用模拟查找，岂不是更方便
Sub 自动发微信()

Shell "D:\Program Files (x86)\Tencent\WeChat\WeChat.exe"
For i = 2 To Range("B65536").End(xlUp).Row
SendKeys "^f"
delay (1)
SendKeys Range("A" & i)
delay (1)
SendKeys "{Enter}" '打开对话框
delay (1)
SendKeys Range("B" & i) '输入信息
delay (1)
SendKeys "{Enter}" '发送信息
Next
End Sub

Function delay(t) '延时
t = TimeValue("00:00:0" & t)
Application.Wait Now + t
End Function

363037416 · 发表于 2022-4-22 17:07

EXCELHOMET 发表于 2021-8-30 08:43
我测试多次，此程序不得行。

用这个，地址自己改
Sub 自动发微信()

Shell "D:\Program Files (x86)\Tencent\WeChat\WeChat.exe"
For i = 2 To Range("B65536").End(xlUp).Row
SendKeys "^f"
delay (1)
SendKeys Range("A" & i)
delay (1)
SendKeys "{Enter}" '打开对话框
delay (1)
SendKeys Range("B" & i) '输入信息
delay (1)
SendKeys "{Enter}" '发送信息
Next
End Sub

Function delay(t) '延时
t = TimeValue("00:00:0" & t)
Application.Wait Now + t
End Function

lwx228 · 发表于 2022-5-3 07:34

这个不错、有点AHK的味道

lwx228 · 发表于 2022-5-4 10:16

每次回帖、谢谢！辛苦了。

Aaron.Ma · 发表于 2022-5-12 09:38

看來excel無所不能啊

Lovertdos · 发表于 2022-5-13 16:12

363037416 发表于 2022-4-22 17:07
用这个，地址自己改
Sub 自动发微信()

我设置的发消息键是CTRL+enter，怎么改啊

592rmb · 发表于 2022-6-13 11:17

这个也收藏下，空了研究学习，谢谢

		自动登录	找回密码
密码			免费注册

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

评分