大家好，我是公衆号3分鐘學堂的郭立員~

和朋友聊天說到怎麼給QQ群引流，要解決一個核心問題就是别人為啥加群，我們要做的是提供一個“誘餌”，加群以後能夠給對方需要的東西或者服務。

那我們做腳本的能提供什麼誘餌？肯定是腳本啊，那麼要解決的就是怎麼把腳本和QQ群聯系在一起的問題。

一個簡單的方式是把腳本放到QQ群裡面，别人進群才能下載，這是比較常用的方法。

不過别人進群後轉發腳本給其他人，其他人使用腳本時其實和我們的QQ群就沒有聯系了。

為了增強關聯性，我們把QQ群作為腳本運行的驗證，隻有在使用設備上登錄過加群的QQ，才能驗證通過使用腳本。

這種驗證的原理是讀取設備上的QQ數據庫，查看當前QQ所加群中是否有我們的群。

具體步驟：

1，找到QQ數據庫的路徑：

/data/data/com.tencent.mobileqq/databases/QQ号.db

在路徑中可以看到數據庫名稱是QQ号，這就是說要知道完整的路徑，要獲取到QQ号，可以是讓用戶自己填寫，也可以遍曆所有數據庫文件，從中找到QQ号。

兩種獲取QQ号的方法中我個人是覺得讓用戶自己填寫更好，因為當設備中登錄過多個QQ的時候，遍曆出來就是多個結果。這樣就不準了。

2，讀取數據庫文件，查找群号做驗證

Import "sqlite3.lua" Dim QQ="453485278" //做成輸入框，讓用戶填寫 Dim q群号="242971687" //你自己的QQ群 Dim DBpath = "/data/data/com.tencent.mobileqq/databases/"&QQ&".db" Dim ret = sqlite3.SQLSelect(DBpath, "FTSTroopTime") If Len(ret) = 0 Then TracePrint "驗證失敗，請加入QQ群"&q群号&"完成驗證" EndScript 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群号&"完成驗證" EndScript End If Next

我在測試的時候發現，這鐘方法也是存在bug，比如進群後又退出群，在QQ數據庫裡面還是會有這個群記錄。

在QQ數據庫中還有很多其他的數據，但是是加密的，破解加密還沒搞定，所以隻能是用這個沒加密的數據做驗證，等以後把QQ加密破解了，在優化這個方法。

=正文完=

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!