Sub Timer1_Tick
Dim totaltime As Int = 0
For i = 0 To usage1.Size -1
Dim us As UsageStats = usage1.Get(i)
Dim package As String = us.PackageName
Dim time As String = DateTime.Time(us.lasttimeused)
Dim date As String = DateTime.Date(us.LastTimeUsed)
Dim foregroundtime As Long = us.TotalTimeInForeground
Dim Cursor As ResultSet = sql.ExecQuery2("SELECT * FROM AppList WHERE PackageName = ?", Array As String (package))
If Cursor.RowCount > 0 And date = DateTime.Date(DateTime.Now) Then
sql.ExecNonQuery2("UPDATE AppList SET LastTimeUsed = ?, LastDateUsed = ?, TotalTime = ?, foregroundtime = ? Where PackageName = ?", _
Array As String(time,date,totaltime,foregroundtime,package))
Log(Cursor.RowCount)
End If
If Cursor.RowCount = 0 And date = DateTime.Date(DateTime.Now) Then
sql.ExecNonQuery2("INSERT INTO AppList VALUES(?,?,?,?,?)", _
Array As String(package,time,date,totaltime,foregroundtime))
Log(Cursor.RowCount)
End If
Next
sql.ExecQuery("SELECT * FROM AppList ORDER BY LastTimeUsed DESC")
End Sub