【求助】如何用vba控制通过微信将消息发给好友

misshuanghm

领导布置一任务，当excel中某空格的值符合条件时（比如说大于5），把‘可以开仓了’这几个字发给自己的几个微信好友，这个要怎么实现?
之前在http://club.excelhome.net/thread-1241219-1-1.html这个帖子找到 funsz 分享vba代码，但是我自己vba水平不高，没办法改成自己想要的需求，求助各位大神。
现在我把 funsz 大神的代码贴上来，希望能得到大家的帮助，谢谢！

富翁列车

加友信息：
POST https://wx2.qq.com/cgi-bin/mmwebwx-bin/webwxverifyuser?r=1476265330565 HTTP/1.1
Host: wx2.qq.com
Connection: keep-alive
Content-Length: 434
Accept: application/json, text/plain, */*
Origin: https://wx2.qq.com
User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.101 Safari/537.36
Content-Type: application/json;charset=UTF-8
Referer: https://wx2.qq.com/
Accept-Encoding: gzip, deflate
Accept-Language: zh-CN,zh;q=0.8
Cookie: pgv_pvi=3707137024; webwxuvid=95d56d7a3aaecf693ae3c08ce9772c3b83e9ffe4d8510ab41e65cf5b8900eb5f7808bbc05645a63d7a6b55581a3b0f6e; pgv_si=s6361143296; mm_lang=zh_CN; MM_WX_NOTIFY_STATE=1; MM_WX_SOUND_STATE=1; wxloadtime=1476263875_expired; wxpluginkey=1476234001; wxuin=911255539; wxsid=Apnu9LHE8TMwDxhh; webwx_data_ticket=gScK13gMCOBu8LVGyrgQKQM5

在群里发的信息：
{"BaseRequest":{"Uin":911255539,"Sid":"Apnu9LHE8TMwDxhh","Skey":"@crypt_4da0cca2_489e10e1057902a13964ff58ce74ee60","DeviceID":"e716168779879808"},"Opcode":2,"VerifyUserListSize":1,"VerifyUserList":[{"Value":"@2f3ce225a8be972cc7f8a482e34e4bfc4c523d4697dad7d3d3638517a4b719d5","VerifyUserTicket":""}],"VerifyContent":"我是带🎊你赚钱","SceneListCount":1,"SceneList":[33],"skey":"@crypt_4da0cca2_489e10e1057902a13964ff58ce74ee60"}




POST https://wx2.qq.com/cgi-bin/mmwebwx-bin/webwxsendmsg HTTP/1.1
Host: wx2.qq.com
Connection: keep-alive
Content-Length: 437
Accept: application/json, text/plain, */*
Origin: https://wx2.qq.com
User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.101 Safari/537.36
Content-Type: application/json;charset=UTF-8
Referer: https://wx2.qq.com/
Accept-Encoding: gzip, deflate
Accept-Language: zh-CN,zh;q=0.8
Cookie: pgv_pvi=3707137024; webwxuvid=95d56d7a3aaecf693ae3c08ce9772c3b83e9ffe4d8510ab41e65cf5b8900eb5f7808bbc05645a63d7a6b55581a3b0f6e; pgv_si=s6361143296; mm_lang=zh_CN; MM_WX_NOTIFY_STATE=1; MM_WX_SOUND_STATE=1; wxloadtime=1476263875_expired; wxpluginkey=1476234001; wxuin=911255539; wxsid=Apnu9LHE8TMwDxhh; webwx_data_ticket=gScK13gMCOBu8LVGyrgQKQM5

{"BaseRequest":{"Uin":911255539,"Sid":"Apnu9LHE8TMwDxhh","Skey":"@crypt_4da0cca2_489e10e1057902a13964ff58ce74ee60","DeviceID":"e951121269026771"},"Msg":{"Type":1,"Content":"2222222222222222222222","FromUserName":"@b70700a93f43a9960dd7a389aa4e5122667a3a6d3a6d1233ec7a7fd8dcdff6b0","ToUserName":"@@3f9033660a9c43022106efaedc218d0cd4262213e7899ce8e02e3da12082a515","LocalID":"14762658620590848","ClientMsgId":"14762658620590848"},"Scene":0}

abclmc

留名，方便查看

wbshde

赶紧跟帖，慌便查看

guoyong9057

学习了 ，厉害

fengcheng86502

插眼，这个厉害

seavus丶

插眼！！！

约定的童话

https://wwpe.lanzoub.com/i6Gvc148lzaf这样可以不

PPPOEQQ去

约定的童话 发表于 2023-8-3 06:36
https://wwpe.lanzoub.com/i6Gvc148lzaf这样可以不

可以分享代码么？

lianq1111

约定的童话 发表于 2023-8-3 06:36
https://wwpe.lanzoub.com/i6Gvc148lzaf这样可以不

可以分享代码么？