微信PC端及QQ联系人采集及文件消息发送--基于FlaUI.Core

Jerry丶

留言看下怎么使用

星期·8

感谢共享，楼主辛苦了。

学良

谢谢分享！

vitrel

不得不说，光看标题就足以令人大感兴趣。

xiangxuel

好东西，学习学习

vitrel

huang1314wei 发表于 2022-6-15 17:48
看一下新版附件，循环发的时候，建议增加一定延时并确保联系人昵称准确

楼主，您好！
我在微信上测试循环发送信息（字符串），按您的建议，每条发送指令之间插入一段延时代码，
但奇怪的是，所有奇数（1、3、5……）的发送指令全部发送成功，
所有偶数（2、4、6……）的发送指令全部发送失败。
查询Log文件，错误提示是“查找通讯录按钮失败!”。
上述情况，不管向同一人发多条信息，还是向不同人发送信息，情况均如此。
反而不加延时长码，在每条发送指令之间什么代码都不添加，反而全部发送成功。
上述情况仅供参考，希望对后续版本的改进能有帮助。

Ps：我的基本情况：
Win10 64位，Office2019 32位，微信PC版v3.7.6.44，使用您22-6-15最新版的控件 64位

huang1314wei

vitrel 发表于 2022-9-13 15:44
楼主，您好！
我在微信上测试循环发送信息（字符串），按您的建议，每条发送指令之间插入一段延时代码， ...

可否把你写的代码发上来看一下

vitrel

huang1314wei 发表于 2022-9-13 19:43
可否把你写的代码发上来看一下

1. Sub Test1() '全部发送成功
   
2.     Dim obj As Object
   
3.     Set obj = CreateObject("WeChatTool.WeChatClass")
   
4.     obj.SendMessage "", "文件传输助手", "信息发送测试！"
   
5.     obj.SendMessage "", "联系人1", "信息发送测试！"
   
6.     obj.SendMessage "", "联系人2", "信息发送测试！"
   
7.     obj.SendMessage "", "联系人3", "信息发送测试！"
   
8.     obj.SendMessage "", "联系人4", "信息发送测试！"
   
9. End Sub
   
10. 
    
11. Sub Test2()
    
12.     Dim obj As Object, T&
    
13.     Set obj = CreateObject("WeChatTool.WeChatClass")
    
14.     obj.SendMessage "", "文件传输助手", "信息发送测试！"    '发送成功
    
15.     T = Timer: While Timer - T < 5: DoEvents: Wend
    
16.     obj.SendMessage "", "联系人1", "信息发送测试！" '发送失败，Log文件提示：查找通讯录按钮失败!
    
17.     T = Timer: While Timer - T < 5: DoEvents: Wend
    
18.     obj.SendMessage "", "联系人2", "信息发送测试！" '发送成功
    
19.     T = Timer: While Timer - T < 5: DoEvents: Wend
    
20.     obj.SendMessage "", "联系人3", "信息发送测试！" '发送失败，Log文件提示：查找通讯录按钮失败!
    
21.     T = Timer: While Timer - T < 5: DoEvents: Wend
    
22.     obj.SendMessage "", "联系人4", "信息发送测试！" '发送成功
    
23. End Sub
    
24. 
    
25. Sub Test3()
    
26. '第1、3、5、7、9条信息发送成功
    
27. '第2、4、6、8、10条信息发送失败，Log文件提示：查找通讯录按钮失败!
    
28.     Dim obj As Object, i%, T&
    
29.     Set obj = CreateObject("WeChatTool.WeChatClass")
    
30.     For i = 1 To 10
    
31.         If i <> 1 Then
    
32.             T = Timer: While Timer - T < 5: DoEvents: Wend
    
33.         End If
    
34.         obj.SendMessage "", "文件传输助手", "信息发送测试" & i
    
35.     Next i
    
36. End Sub

复制代码

上述代码，将

Dim obj As Object
Set obj = CreateObject("WeChatTool.WeChatClass")

换成

Dim obj As WeChatTool.WeChatClass
Set obj = New WeChatClass

以后，测试结果完全相同。

还是那句，希望对后续控件的改进能有所帮助。

ljjldd

我回来了，对这个，有点兴趣

大超1

非常好，棒