腾讯通插件

最新推荐文章于 2024-06-25 16:29:32 发布

我是一粒小种子

最新推荐文章于 2024-06-25 16:29:32 发布

阅读量1.9k

点赞数

本文链接：https://blog.csdn.net/josh_wu/article/details/8936135

版权

VERSION 5.00
Begin VB.UserControl rtx 
   BackColor       =   &H8000000D&
   ClientHeight    =   210
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   210
   MaskColor       =   &H8000000D&
   ScaleHeight     =   210
   ScaleWidth      =   210
End
Attribute VB_Name = "rtx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

Dim objApi As Object
Dim objApp As Object
Dim objHelper As Object
Dim objKernal As Object
Dim objPresence As Object

Public Function RTXIsRuning() As Boolean
Set objApi = CreateObject("RTXClient.RTXAPI")
RTXIsRuning = objApi.IsRTXCRunning()
End Function

Public Function userDepartment(ByVal str As String) As String
Set objApi = CreateObject("RTXClient.RTXAPI")
Set objApp = objApi.GetObject("AppRoot")
Set objHelper = objApp.GetAppObject("RTXHelper")
userDepartment = objHelper.GetBuddyDept(str)
End Function

Public Function userStatus(ByVal str As String) As String
Set objApi = CreateObject("RTXClient.RTXAPI")
Set objKernal = objApi.GetObject("KernalRoot")
Set objPresence = objKernal.Presence
State = objPresence.RTXPresence(str)
If State = 1 Then
userStatus = "在线"
ElseIf State = 0 Then
userStatus = "离线"
Else
userStatus = "离开"
End If
End Function