大家好，我是公众号三分学堂的郭立元~

和朋友聊天是谈论如何流入QQ群，解决核心问题是别人为什么成群结队，我们要做的是提供“诱饵”，成群结队以后可以给对方需要的东西或服务。

那我们制作剧本的时候能提供什么诱饵呢？肯定是剧本。那么需要解决的是如何将脚本与QQ组相关联的问题。

一种简单的方法是将脚本放入QQ组，其他人进入组后才能下载。这是比较常见的方法。

但是，如果其他人进入组后将脚本传递给其他人，那么其他人使用脚本时，实际上不会与QQ组相关联。

为了增强关联性，通过脚本运行QQ组的验证只能通过使用脚本登录到使用设备的QQ进行验证。

这个验证的原则是读取设备的QQ数据库，确认当前添加QQ的组中是否有我们的组。

具体程序：

1、QQ数据库寻径：

/data/data编号。数据库

在路径中，可以看到数据库名称是QQ号。也就是说，你需要知道完整的路径。要获取QQ号，用户可以自己填写，也可以遍历所有数据库文件查找QQ号。

在获取QQ号的两种方法中，个人认为用户自己填写更好。因为当设备上登录的QQ太多时，会出现多个结果。这是不允许的。

2，读取数据库文件，验证查找组号

import '

Dim QQ='453485278' //创建用户可填充的输入框

Dim q组编号='242971687' //自己的QQ组

dim db path='/data/data；QQ '“数据库”

Dim ret=(DBpath，' FTSTroopTime ')

If Len(ret)=0 Then

“TracePrint”验证失败。添加QQ组“q组编号”以完成验证

End脚本

End If

For I=1 To Len(ret)

TracePrint ret[i]['mUin']

If ret[i]['mUin']=q组编号Then

TracePrint“通过验证组”

Exit For

End If

If I=Len(ret) Then

“TracePrint”验证失败。添加QQ组“q组编号”以完成验证

End脚本

End If

NEXT(NEXT)我在测试中发现，这个手表方法也有bug。比如进入群里后退出，QQ数据库里面还是会有这个记录的。

QQ数据库有很多其他数据，但是加密、解密加密还没有解决，所以只能用未加密的数据进行身份认证。以后可以对QQ加密进行解密，优化这种方法。

=正文结束=