Dim ContentResolverObject As ContentResolver
Dim UriObject As Uri
UriObject.Parse("content://com.android.chrome.browser/bookmarks")
ContentResolverObject.Initialize("ContentResolverObject")
Dim CursorObject As Cursor = ContentResolverObject.Query(UriObject, Null, "", Null, "")
Dim BMCounter As Int
BMCounter = 0
If CursorObject.IsInitialized Then
Dim CursorObjectSize As Int
CursorObjectSize = CursorObject.RowCount
Log(" --------------- Bookmarks Sync ----------------")
For r = 0 To CursorObjectSize - 1
CursorObject.Position = r
Try
Dim URL As String
URL = CursorObject.GetString2(1)
Dim Title As String
Title = CursorObject.GetString2(5)
Log("Row: " & r & " URL: " & URL & " , Title: " & Title)
Log("Bookmark: " & BMCounter & " / " & CursorObjectSize)
Catch
Log(" ----------- Bookmark failed !!! ----------")
End Try
Next
CursorObject.Close
End If