如何监控百度云管家的上传下载列表并读取其数据库(迅雷，360云盘适用)

 

最近笔者想做一款实时监控读取百度云管家并且在下载完成后自动推送消息到手机的小程序，一开始的思路是根据标题查找窗口句柄然后读取下载列表的句柄进而获得相关数据，然而在实践的过程中却遇到了麻烦：现在软件为了实现漂亮的界面普遍采用了DirectUI技术，即子窗口不以窗口句柄的形式创建，所以那些控件都是没有句柄的，这就无从下手了，于是在他的目录找来找去，找到些了门道：

可以看到有一个叫做users的文件夹，

这里发现了一些有趣的东西，有两个类似哈希值名称的文件夹，应该就是对应我曾经登录过的两个用户，随便点开一个看看：

从名字中不难看出一些端倪，那么问题来了，数据库该怎么读取呢？

首先来看下数据库的类型：

哈哈，居然是SQLite 数据库，这下子好办多了，我们来看看数据库的结构：

表名清晰明了，想要读取文件下载历史只要读取download_history_file即可，想要实时读取下载进度的话只要读取download_file这个表即可

下面是一段VB代码来作为演示：

 NormalText Code 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

Private Sub FreshBaiduList()     Dim sPath As String     sPath = App.path & ""     If mSqlite.sqlite3_initialize(sPath) = SQLITE_OK Then              '// Create DB         If mSqlite.sqlite3_open(BaiduUserPath & "\BaiduYunGuanjia.db", f_lSqlite) = SQLITE_OK Then        ' MsgBox BaiduUserPath & "\BaiduYunGuanjia.db"                                                             '// Query values                     If mSqlite.sqlite3_prepare_v2(f_lSqlite, "SELECT  FROM download_file", 0, f_lStatement, 0) = SQLITE_OK Then                           '// Print Values                         View1.ListItems.Clear                         Set itmx = Nothing                         Dim i As Long                         i = 0                         Do While mSqlite.sqlite3_step(f_lStatement) = SQLITE_ROW                         View1.ListItems.Add , "a" & i, mSqlite.sqlite3_column_int(f_lStatement, 0)                         View1.ListItems("a" & i).SubItems(1) = mSqlite.sqlite3_column_text(f_lStatement, 1)                         View1.ListItems("a" & i).SubItems(2) = Fix(mSqlite.sqlite3_column_text(f_lStatement, 4) / 1024 / 1024  100) / 100 & "MB"                         View1.ListItems("a" & i).SubItems(3) = mSqlite.sqlite3_column_text(f_lStatement, 3)                         View1.ListItems("a" & i).SubItems(4) = DateAdd("s", mSqlite.sqlite3_column_text(f_lStatement, 7), "01/01/1970 08:00:00")                         'View1.ListItems("a" & i).SubItems(5) = DateAdd("s", mSqlite.sqlite3_column_text(f_lStatement, 8), "01/01/1970 08:00:00")                         i = i + 1                         'ListView1.List                             Debug.Print mSqlite.sqlite3_column_int(f_lStatement, 0)                             Debug.Print mSqlite.sqlite3_column_text(f_lStatement, 1)                             Debug.Print mSqlite.sqlite3_column_text(f_lStatement, 3)                             Debug.Print mSqlite.sqlite3_column_text(f_lStatement, 4)                             Debug.Print mSqlite.sqlite3_column_text(f_lStatement, 7)                             Debug.Print mSqlite.sqlite3_column_text(f_lStatement, 8)                         Loop                         Next j                     Else                         Debug.Print mSqlite.sqlite3_errmsg(f_lSqlite)                     End If         Else             Debug.Print mSqlite.sqlite3_errmsg(f_lSqlite)         End If     Else         Debug.Print "Unable to Initialize Wrapper"     End If              '// Release Statement     Call mSqlite.sqlite3_finalize(f_lStatement)          '// Close DB handle     Call mSqlite.sqlite3_close(f_lSqlite)          '// Terminate wrapper     Call mSqlite.sqlite3_shutdown                       End Sub

 

这样就完成了，同样的，我发现360云盘和迅雷也是利用SQLite来存储，那么他们数据库的读写就不用多说了。

感谢你能把文章看到最后，若文章有不妥之处请留言指教，谢谢。