|
|
经过摸索，整理了微信群发微信，三种实现方式：
1，半模拟键盘操作发送微信（VBA）,微信版本无限制
2, 模拟键盘操作发送微信（VBA），可登陆网页版微信
3,可登陆网页版微信(python),个人认为这种最好用，可发送附件，建议文字与附件不要一起发，比如给ABCD发文字与图片，可以A,B文字后，A图片，C文字，在EXCEL中错开填写
- Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
- Sub wechatTEST()
- Dim n, i, j As Integer
- Dim Texts, Nr As String
- R = Sheet1.[A2].End(xlDown).Row
- Nr = InputBox("请在微信界面,点开文件传输助手聊天对话框，将输入法调为英文输入，并按键盘“TAB”键，看多少次能到搜索框，记住后，微信返回到正常聊天界面，并将数字填入" & Chr(10) & "默认填入13，测试微信版本3.3.5.34 OK", "温馨提示", 13)
- If StrPtr(Nr) = 0 Then
- MsgBox "你点击了取消，请在微信界面聊天对话框，将输入法调为英文输入，并按键盘“TAB”键，看多少次能到搜索框，并请恢复到正常聊天状态", , "温馨提示"
- Else
- Texts = InputBox("请输入微信链接含.EXE后缀，请注意查看默认地址是否正确，如不确定地址是否准确，请先点击取消，复制准确地址贴入下方", "温馨提示", "D:\WeChat\WeChat.exe")
- If StrPtr(Texts) = 0 Then
- MsgBox "你点击了取消，请复制准确微信地址链接含.EXE后缀", , "温馨提示"
- Else
- n = MsgBox("请确认微信程序在文本输入时，已切换至英文输入法，如果不是，请 点 “取消” 点“取消”以退出程序，谢谢！" & Chr(10) & _
- "★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★" & Chr(10) & _
- "★如果点击了确认，在程序未执行完前，不可操作键盘或鼠标★" & Chr(10) & _
- "★如果点击了确认，在程序未执行完前，不可操作键盘或鼠标★" & Chr(10) & _
- "★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★", 1 + vbQuestion + vbDefaultButton1, "温馨提示")
- shell Texts
- If n = 1 Then
- For i = 2 To R '这里只选取了A列所有数据。======>想测试的话自己改为2 to 3 ,少一点比较好
- Sleep 1000
- For j = 1 To Nr
- SendKeys "{TAB}"
- Next j
- Sleep 1000
- Application.Calculation = xlCalculationAutomatic
- SendKeys Cells(i, "A"), False
- Sleep 1000
- SendKeys "{ENTER}", False
- Sleep 2500
- SendKeys Cells(i, "B"), False
- SendKeys "{ENTER}", False
- Sleep 2000
- Next i
- Else
- Exit Sub
- End If
- SendKeys "%{TAB}", True
- MsgBox "已自动发送微信，" & "共计发送" & i - 2 & "个微信，请核查，谢谢！", vbInformation, "温馨提示"
- End If
- End If
- End Sub
-
|
评分
-
2
查看全部评分
-
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2021-8-31 22:21
楼主
