腾讯群管插件易语言代码实现

Dim mQQ As String = MyUin Import org.json.JSONArray Import org.json.JSONObject Import org.json.*

Import android.media.MediaPlayer Import android.app.* Import android.widget.* Import android.content.* Import android.text.* Import android.os.* Import android.view.* Import android.graphics.* Import java.lang.* Import android.text.* Import android.app.* Import android.view.* Import android.widget.* Import java.lang.reflect.* Import android.content.* Import android.graphics.*

Dim ThisActivity As Activity = Nothing Public Sub initActivity() ThisActivity = GetActivity() End Sub AddItem('Q群管家', '管家弹窗', PluginID)

'需要是群管理 '接口说明 ' qun.qq.com的pskey '邀请移除管家(String qun,String qq,String skey,String pskey,int type) type(0移除1邀请) '管家设置(String qun,String qq,String skey,String pskey,String type,String status) type(1链接3红包2二维码) status(0关闭1开启) '链接处理方式(String qun,String qq,String skey,String pskey,String status) status(1撤回3撤回并警告) '添加问答(String qun,String qq,String skey,String pskey,String question,String answer) questio(问题不能大于20字) answer(回答不能大于500字) 不支持链接图片 \n换行 '删除问答(String qun,String qq,String skey,String pskey,String id) id(删除第几个) '触发问答(String qun,String qq,String skey,String pskey,String question,String token) question(问题) token(Q群管家 自助问答卡片里面的token)

Public Sub onMsg(ByVal data As Object) Dim quntext As String = data.MessageContent Dim qq As String = data.UserUin Dim qun As String = data.GroupUin Dim skey As String = getSkey() Dim pskey As String = getPskey('qun.qq.com') If quntext.StartsWith('管家发送') AndAlso data.IsSend Then Dim text As String = quntext.Substring(4) xxx = 管家发送(qun, MyUin, skey, pskey, User(3), text.replaceAll('\r\n|\n|\r', '\n')) If (xxx + '').Equals('成功') Then Return sendMsg(qun, '', xxx) End If

Dim aiForbidden As Integer = getInt(mQQ, '管家艾特禁言', 0)'被管家@是否禁言 1禁言 0不禁言
If qq.Equals('2854196310') AndAlso data.MessageType = 1 AndAlso aiForbidden = 1 Then
    If data.mAtList.size = 0 Then Return
    Dim aiqq As String = data.mAtList.get(0)
    If (data.mAtList.get(0)).Equals(MyUin) Then Return
    Dim AdminList As ArrayList = New ArrayList()
    For Each group As Object In getGroupList()
        If qun.Equals(group.GroupUin) Then
            If Arrays.asList(group.AdminList).contains(mQQ) OrElse group.GroupOwner.contains(mQQ) Then
                Forbidden(qun, aiqq, 60)
                Toast('群：' & group.GroupName & '\n' & aiqq & '禁言一分钟')
                Return
            End If
        End If
    Next
End If
If qq.Equals('2854196310') AndAlso data.MessageType = 2 Then
    Dim b As String = getString(qun, MyUin)
    If (b + '').Equals(b) Then
        revokeMsg(data)
        Dim json As JSONObject = New JSONObject(data.MessageContent)
        putString(qun, 'token', json.getJSONObject('meta').getJSONObject('metadata').getString('token'))
        sendTip(data, 'token保存成功')
        Thread.sleep(100)
        Dim bb As String = 触发问答(qun, MyUin, skey, pskey, b, json.getJSONObject('meta').getJSONObject('metadata').getString('token'))
        Thread.sleep(100)
        Dim c As String = 删除问答(qun, MyUin, skey, pskey, '1')
        Thread.sleep(100)
        Dim c1 As String = 删除问答(qun, MyUin, skey, pskey, '2')
        putString(qun, MyUin, Nothing)
        Return
    End If
End If
If quntext.Equals('开启腾讯群管') AndAlso data.IsSend Then
    Dim a As String = 邀请移除管家(qun, qq, skey, pskey, 1)
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If
If quntext.Equals('关闭腾讯群管') AndAlso data.IsSend Then
    Dim a As String = 邀请移除管家(qun, qq, skey, pskey, 0)
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If
If quntext.Equals('开启禁止发链接') AndAlso data.IsSend Then
    Dim a As String = 管家设置(qun, qq, skey, pskey, '1', '1')
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If
If quntext.Equals('关闭禁止发链接') AndAlso data.IsSend Then
    Dim a As String = 管家设置(qun, qq, skey, pskey, '1', '0')
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If
If quntext.Equals('开启禁止发口令红包') AndAlso data.IsSend Then
    Dim a As String = 管家设置(qun, qq, skey, pskey, '3', '1')
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If
If quntext.Equals('关闭禁止发口令红包') AndAlso data.IsSend Then
    Dim a As String = 管家设置(qun, qq, skey, pskey, '3', '0')
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If
If quntext.Equals('开启禁止二维码') AndAlso data.IsSend Then
    Dim a As String = 管家设置(qun, qq, skey, pskey, '2', '1')
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If
If quntext.Equals('关闭禁止二维码') AndAlso data.IsSend Then
    Dim a As String = 管家设置(qun, qq, skey, pskey, '2', '0')
    xxx = 管家发送(qun, MyUin, skey, pskey, User(3), a)
    If (xxx + '').Equals('成功') Then Return
    sendMsg(qun, '', xxx)
    Return
End If

End Sub