どのようにSQLite3.exeの実用性を使用してGoogle Chromeデータベースのクエリを行うのですか？

Question

Google ChromeデータベースSQLite3でクエリを実行して、without use ODBC DriverにアクセスしたすべてのURLのキャプチャや、最終ユーザによるインストールが必要な場合は、他のタイプのパケットが必要です。私の意見では：

は、その後、私はより近く、このための方法は、 SQLite3.exe utilitaryを使用してSQLite3.dll（\ WINDOWS \ System32に\ sqlite3.dll C）されることがわかりました。

私はこれらのURLを以下のコードに基づいてどのようにリストできますか？

Const LOCAL_APPLICATION_DATA = &H1c& 

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace(LOCAL_APPLICATION_DATA) 
Set objFolderItem = objFolder.Self 

Set colItems = objFolder.Items 

Dim sCurDir 
Dim sFina 

For Each objItem in colItems 

    If InStr(1, objItem.Name, "Google") > 0 Then 

     sCurDir = objFolderItem.Path + "\" + objItem.Name + "\Chrome\User Data\Default\" 
     sFina = "History" 

     Exit For 

    End If 
Next 

'Location of SQLite 
strSQLlite = "sqlite3.exe" 

strCommand = strSQLlite & " " & sCurDir + sFina & " " & "SELECT * FROM urls;" 

Set objOutput = objShell.Exec (strCommand) 

Answer 1

sqlite3.exeを起動して出力をキャプチャするには、シェルが必要です。

Option Explicit 

Function qq(s) : qq = """" & s & """" : End Function 

Const cnHidden = 0 
Const cbWait = True 

Dim sCmd : sCmd = Join(Array(_ 
    "%comspec%" _ 
    , "/c" _ 
    , "sqlite3.exe" _ 
    , "-csv" _ 
    , qq("..\data\History") _ 
    , qq("SELECT id, url FROM urls LIMIT 5") _ 
    , ">.\urls.csv" _ 
)) 
WScript.Echo sCmd 
CreateObject("WScript.Shell").Run sCmd, cnHidden, cbWait 
WScript.Echo "Done" 

出力：のように

cscript 36346886.vbs 
%comspec% /c sqlite3.exe -csv "..\data\History" "SELECT id, url FROM urls LIMIT 5" >.\urls.csv 
Done 

type urls.csv 
25,https://de.add-ons.mozilla.com/de/firefox/bookmarks/ 
31,http://public.fh-wolfenbuettel.de/~hoeppnef/hanserSWE.html 
33,http://cartan.cas.suffolk.edu/moin/OopDocbookWiki 
34,http://book.realworldhaskell.org/read/ 
35,http://book.realworldhaskell.org/read/types-and-functions.html 

私は成功したコマンドラインのコンポーネントを分離するためのいくつかの努力をしました。デモコードを仕様や状況に適合させる前に、各部品の内容や内容を理解しておいてください。