基于2013.12.28更新后的飞信接口(DLL)

牧风流年 · 发表于 2014-1-4 18:25

本帖最后由牧风流年于 2014-1-5 20:21 编辑

1.2版隆重发布，见6楼！

本模块使用2013年12月28日更新后的3G飞信接口，即手机版f.10086.cn/im5接口

采用傲游浏览器开发者助手获取HTTP请求及参数
致谢(不分先后)：
Excelhome @Kangatang encodeURI模块
Excelhome hyy514 原来一直用@hyy514提供的接口，结果移动更新后失效了，索性自己研究，感谢启蒙！
犯了一个不可饶恕的低级错误，望EH高手们口下留情，Dll本身可用，说明文件写错了……现更正：DLL为VB封装，不是标准的DLL，但基本通用

接口函数说明见附件，移动本次升级端口最重大的变化是加入登陆时间戳，估计是为了监控用户是否频繁操作
故开发时将获取好友信息改为一次性获取，这样大大影响了代码的易用性，但可以避免与服务器的通讯次数
所以建议群发采用 Ft.SendMsg（"发送的内容",GetUID("好友1手机号,好友2手机号,……"）)方式，避免使用 For……Next语句
由于本人工作极度依赖此端口，为避免滥发使得移动再次修改端口信息，所以Dll中部分函数未做说明，若需要，请单独咨询

如使用不当不慎被冻结账号，请登录feixin.10086.cn或发短信P到12520解除限制

WapFetionApi.zip (28.6 KB, 下载次数: 222)

By Zyl4020

补充内容 (2014-1-22 10:58):
1.3版预告：
加入发送普通短信功能
考虑加入接收飞信消息功能
修改心情短语(太鸡肋，不一定做）
拉黑功能
定时短信
考虑加入聊天表情
优化发送机制
如果年终奖影响心情的话，以上都不一定，哈哈

zhonghuaqiu · 发表于 2014-1-4 18:47

好东西，不是只能看吧

zyl4020 · 发表于 2014-1-4 18:50

哎呀，发串号了，我是马甲~今天刚测试成功

weegier · 发表于 2014-1-5 17:25

请帮忙看看是什么问题。

牧风流年 · 发表于 2014-1-5 17:51

本帖最后由牧风流年于 2014-1-5 19:10 编辑

weegier 发表于 2014-1-5 17:25
请帮忙看看是什么问题。

Dll文件须解压到Excel同一路径下,并注册Dll

test86.zip (301 Bytes, 下载次数: 68) 解压后放到Excel和Dll相同路径，双击bat注册Dll,重新打开Excel文件，应该就可以了。

如果还不行，在VBA工程中重新引用一下Dll

牧风流年 · 发表于 2014-1-5 20:18

本帖最后由牧风流年于 2014-1-5 20:27 编辑

1.2版发布！
由于新版对部分函数进行了改动，故另行发布，1.1版仍可使用
主要更新：
无需调用拉取好友列表过程
融合GetUID函数，更易用
增加接收号码模式选择，提供固定接收人方案
开放NetGetUID函数，可通过昵称、飞信号等信息获取UID

WapApi.zip (31.94 KB, 下载次数: 154)
经WinXP32+Win7 32测试，如出现4楼问题，在工具——引用中将FetionInt1_2.dll前的√去掉，保存
再在工具——引用——浏览选择本目录下的FetionInt1_2.dll重新引用，前面出现√，保存即可

压缩包中注册DLL.bat不一定有用，如果以上方法都试过了还不行，可以双击注册试试{:soso_e113:}

weegier · 发表于 2014-1-8 14:47

非常好用！楼主厉害！高手！
有个疑问，发送多个号码的时候，每发成功一次，就会弹出一个发送成功的窗口。如下图：

发送成功.JPG

如何让发送成功的窗口不弹出，而是让这个发送成功与否的状态显示在对应的手机号码单元格旁边的单元格？请不吝赐教，非常感谢。
例如下图所显示的那样

如何让发送成功的窗口不弹出.jpg

牧风流年 · 发表于 2014-1-9 08:39

本帖最后由牧风流年于 2014-1-9 08:42 编辑

weegier 发表于 2014-1-8 14:47
非常好用！楼主厉害！高手！
有个疑问，发送多个号码的时候，每发成功一次，就会弹出一个发送成功的窗口。 ...

{:soso_e127:}1.1接口：Msgbox Ft.SendShortMsg("SomeText",GetUID("1381245678"))改成 Sheet1.Cell(X,Y)= Ft.SendShortMsg("SomeText",GetUID("1381245678"))
1.2接口自行补充True/False

weegier · 发表于 2014-1-9 22:57

牧风流年发表于 2014-1-9 08:39
1.1接口：Msgbox Ft.SendShortMsg("SomeText",GetUID("1381245678"))改成 Sheet1.Cell(X,Y) ...

可以了。谢谢！

weegier · 发表于 2014-1-9 23:00

本帖最后由 weegier 于 2014-1-9 23:04 编辑

用了几天，很好用。不知道是不是飞信本身有问题，有时候即使是飞信好友了，也会出现发送失败。

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

[分享] 基于2013.12.28更新后的飞信接口(DLL)

评分

评分

评分