时隔六年,为了女神我重新操起VB6.0,只为了给 RTX 写个简单的插件

事出有因

不知道为什么,最近两个月女神突然不跟我一起等车了(不是跟我一起,只是偶遇,是我想得太美好)。

接连两个月都没有了女神的一点动态,很不开心。无意间发现 RTX 上有一个“关注联系人状态”功能,尝试用了一下,发现它只有“上线提醒”,没有“离线”提醒。而且它那个提醒是在屏幕的右下角弹出一个提示窗口,过几秒钟后就会消失,而且这样的话,同事有能看到我有关注某人,这样有点不雅。更甚的是,如果我当前不在电脑旁,那就是不知道对方的具体的上线/离线时间的,这还算个屁的关注,我要关注到每分每秒!

寻求解决方案

于是,我跑到 RTX 的官方网站找插件开发文档,找到一个名叫“RTXClientSDKHandbook.chm”的 RTX 客户端二次开发/插件文档。文档内容很少,具体了解了一下。

RTX 是以 COM 的方式提供接口的。其插件主要用 C++ 开发,用来扩展 RTX 的功能。但通过其自带的例子程序是用 VB6.0 来开发的。而且代码看起来非常简单。最开心的是,自带的例子就有我需要的功能:监听用户在线状态改变。当前选择 VB6.0 了,后面还有更充分的使用 VB6.0 的理由。

善事利器

先作个回忆,想想看,自从高二那年我开始学C语言后,就再也没有动过VB6.0了,到现在大概已经六年了,不知道还能不能写VB6.0的代码。管它的呢!上!

这下一发而不可收了,我立马从网上直接搜索并下载了“VB6.0精简版”神器,说神器的原因是这玩意儿安装包仅有 6M 大小,但是却有着开发普通程序的全部功能,真可谓小巧精悍。真是666。

几秒钟安装完,立即启动,结果在我的 Win10 上直接崩溃,换成管理员模式后成功打开。熟悉的界面,飞一般的速度,久违的感觉!

开心编码

先按照文档说明,新建了一个 EXE 工程。

添加引用。在 VB6.0 菜单中,选择“工程(Project)” -> “引用(References)”,勾选 RTXCModuleInterfaces, RTXCAPI 和 RTXAX 三个引用。如下图。

接下来就是编码了。

VB6.0 在新建工程后会默认建立一个窗口文件。双击该窗体文件,进入代码编写。

首先,需要定义一个 Presense 对象类型,此对象用户接收用户状态改变事件。

' RTX用户状态改变接口
Dim WithEvents Presence As RTXCAPILib.RTXCPresence

这玩意儿就只有一个接口函数,状态改变事件回调。

' RTX用户在线状态改变回调
Private Sub Presence_OnPresenceChange(ByVal Account As String, ByVal RTXPresence As RTXCAPILib.RTX_PRESENCE)
    MsgBox Account & ": " & RTXPresence
End Sub

其中的 Account 既是当前发生状态的用户名(不是RTX数字账号,也不是昵称,也不是邮箱),是下图的那个 “Hunter” 字段的值,

,RTXPresence 是一个枚举值:

enum RTX_PRESENCE
{
  RTX_PRESENCE_OFFLINE  = 0,    // 离线 
  RTX_PRESENCE_ONLINE   = 1,    // 在线
  RTX_PRESENCE_AWAY     = 2,    // 离开
};

,有了这个状态改变回调函数,我需要获取的信息就全部可以拿到了。现在来补充完整代码。

在窗体的“加载”事件中绑定 Presense 对 RTX 的 Presense 对象:

' 主窗体加载时
Private Sub Form_Load()
    ' RTX用户在线状态对象
    Set Presence = CreateObject("RTXClient.RTXAPI").GetObject("kernalRoot").Presence
End Sub

Ok了,上面已经是能实现监听用户状态改变的完整能用的例子了。已经可以跑了,试试吧。

几行代码?反正没有十行,有没有体会到 VB6.0 的小巧精悍?如果你换成用 C++ 来开发的话,估计塔环境都得搞死人。头文件引用,类型库导入,反正我是不敢想像,至少和使用 VB6.0 对比起来要繁琐许多。

当然了,上面的代码还需要完善。比如,除了女神外,其它我并不关心。所以我得加个用户列表过来过滤掉他们了。下面就是完整版。

完整版本

截个图,现在的完整版本像下面这样:

“User”栏是用户名的别名(后面会说明),“Status”是当前状态(在线,离线,离开),“Time”是最后一次状态改变的时刻。

还有一组按钮。第1个是手动刷新,我不知道为什么提供一个手动刷新的按钮,反正就是提供了;第2个是日志窗口(见上右图);第3个是窗口隐藏按钮;第4个是退出按钮。

用户列表的用户名从 EXE 所在目录的 users.txt 中加载,一行一个,格式为:“RTX账号,别名”。

状态日志会自动保存到 EXE 所在目录下的 status.log 文件中,追加记录。

程序运行后会在托盘区域创建托盘图标。双击左键显示窗体,单击右键隐藏窗体。

收到状态改变通知时,图标会闪烁。鼠标放上去会有最近一次状态改变的日志提示。

附加功能

经研究文档,发现了可以调用发送消息的接口。于是把此功能也加上了。此功能与文档初衷不相关,我不多作介绍。

文档与源代码

开发所用到的文档请自行到 RTX 的官网上面去下载。

工程源代码全部开放,托管在 GitHub 上:https://github.com/movsb/rtx_for_celery.git

Celery是谁?废(hui)话(fa)!

六年没写 VB6.0 的代码了,花了一个通宵才写出来。质量如何,不好说。:-)

注意事项

不要介意我取了这么一个专用的程序名字。

不要过分吐槽我的代码逻辑,那是一个六年没写代码的写的。

VB6.0 可能需要以管理员的方式启动。

请保持此程序的权限跟 RTX 相同,否则可能启动后无法显示窗体。

程序中几乎没作接口方面的容错处理,请确保 RTX 已安装。。。

程序无法启动,缺少文件,请自行搜索下载。

接下来

不要干坏事。

发表于:2016年05月10日 ,阅读量:1167 ,标签:我的小项目

版权声明:若非特别注明,本站所有文章均为作者原创,转载请务必注明原文地址。