飞信VBA系统接口----通讯录

daley · 发表于 2011-7-23 16:36

本帖最后由 daley 于 2012-1-21 20:05 编辑

于2012年1月08日重新更新上传。

本飞信系统支持信息：一对一或群发选项

单条短信或飞信的文本长度为255字符长度，超出自动转换为两条信息方式进行发送，最大支持500个字符长度发送，超出500个字符无法发送。

飞信发送（飞信/信息）的对象必须为（才有效）：已经添加成为好友的对象
因为这样可以避免一些发广告的“垃圾信息”满天飞!!

飞信系统函数及飞信类模块，由著名的“脚本先生”(英文名：demon）编译提供封装类，在此表示非常感谢！！
原帖出处网址：http://demon.tw/my-work/vbsfetion.html

禁止利用本飞信类进行发送一切违反国家安全和公共安全性的相关活动!!
文本中包含该符号则信息发送失败：%
文本中包含该符号则被过滤（替换）不显示到对方信息中：+

为方便“家友”查看相关的代码，本窗体公开所有的源代码，工程未设置密码。
对于本例子中的代码有不足之处，还望回帖说明，以便纠正。

在运行本窗体之前，必须先安装或加载以下相关的步骤:
系统文件在：Win 7系统 OFFICE 2010环境中创建。
1、加载系统自带的正则式表达库
Microsoft VBScript Regular Expressions 5.5

2、加载系统自带的列表控件库：Microsoft ListView Control

飞信类VBA-Office 2010.rar (602.43 KB, 下载次数: 2129)

飞信类VBA-Office 97-2003.rar (412.49 KB, 下载次数: 2651)

对于错误或找不到工程和库等原因，建议先“反注册OCX控件”然后再注册控件后使用，即可正常使用。
右键>以管理员身份运行: 打开“运行注册控件ocx”
详情参考该帖：http://club.excelhome.net/thread-286200-1-1.html

日期控件.rar (289.91 KB, 下载次数: 1226)