专家坐堂-[原创]只需几行代码，让你的程序拥有专业级的即时通讯(speedIM发布啦，赶紧来尝鲜吧~~~~~~~~~~~~) 已上传代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [原创]只需几行代码，让你的程序拥有专业级的即时通讯(speedIM发布啦，赶紧来尝鲜吧~~~~~~~~~~~~) 已上传代码

关于费用

一、SpeedIM 目前没有收费的计划，大家可以放心使用。

二、腾讯的即时通信服务，针对100用户以内是永久免费使用。

三、如果您的用户数量大于100，也不想付费的话，可以在用户表增加一个布尔字段，只给需要的用户开通，这样也能变相的达到免费使用。

接入步骤

一、将安装包的dll文件解压到狐表安装目录。

二、在狐表的“外部引用”中添加对“SpeedIM.WinUI.dll”，“SpeedIM.TIM.dll”，“SpeedIM.Foundation.dll”的引用。

三、在现有软件的登录过程完成后，调用以下代码

Dim im As new SpeedIM.TIM.IM() \'构建im实例

im.AppKey = "4c76d2540517ec6fb6e7d2a65077638acbd5047aaec25b759241db4c75474347" \'请输入从腾讯im获取到的AppKey

im.SDKAppID = 1400347019 \'请输入从腾讯im获取到的SDKAppID

im.Administrator = "admin" \'用于配置管理员账号,获取所有用户信息时,需要用到该属性

Dim users As new List(Of String)

users.AddRange(new String(){ "admin", "kiki", "huahua", "jiji", "lala", "wangtiezhu", "siweng", "xiaojie", "hesiweng", "dazhuichen", "chendazhui", "akung", "laosong", "laowang"}) \'用于临时注册用户,建议从数据库获取用户列表

im.Users = users \'此处需要填入系统中所有的用户,用于获取好友列表

im.UserID = "admin" \'当前的登录用户,建议直接使用你系统的登录账号

SpeedIM.Host.Run(im) \'启动im

\'此处代码默认注释,只需要运行一次,将用户导入进去即可,后期创建用户,只要登录即会自动创建

\'im.MultiAccountImport(users,Nothing)

\'以下2行是配置通知栏,可以按需求选择,请自行更换icon的图标名称

Dim icon As Image = GetImage("icon.ico")

SpeedIM.Host.ShowNotification(icon)

请添加qq群获取更多信息：765285986

代码下载

以下内容只有回复后才可以浏览

2020-04-08日更新

- 简化了发送模板消息的代码

- 新增了简化版的微信模板

此主题相关图片如下：调用代码.jpg

此主题相关图片如下：消息效果.png

效果预览

此主题相关图片如下：1.png

此主题相关图片如下：3.png

此主题相关图片如下：2.png

[此贴子已经被作者于2020/4/11 13:05:51编辑过]