Windows-Explorer-History

NTUSER.DAT:
HKCU\Software\Microsoft\Windows\ShellNoRoam\BagMRU
USRCLASS.DAT:
HKCU\Software\Classes\Local Settings\Software\Microsoft\
  Windows\Shell\BagMRU
HKCU\Software\Classes\Local Settings\Software\Microsoft\
  Windows\Shell\Bags 

Imports System
Imports System.IO
Imports System.Collections
Imports System.Text
Imports System.Runtime.InteropServices
Public Class Win32api
  Public Class UrlHistoryClass
    ...
  End Class
End Class
Public Class SortFileTimeAscendingHelper
  ...
End Class
Public Class UrlHistoryWrapperClass
  Public Class STATURLEnumerator
    ...
  End Class
End Class 

Public Enum STATURL_QUERYFLAGS As UInteger
  STATURL_QUERYFLAG_ISCACHED = &H10000
  STATURL_QUERYFLAG_NOURL = &H20000
  STATURL_QUERYFLAG_NOTITLE = &H40000
  STATURL_QUERYFLAG_TOPLEVEL = &H80000
End Enum 

Public Enum STATURLFLAGS As UInteger
  STATURLFLAG_ISCACHED = &H1
  STATURLFLAG_ISTOPLEVEL = &H2
End Enum 

Public Enum ADDURL_FLAG As UInteger
  ADDURL_ADDTOHISTORYANDCACHE = 0
  ADDURL_ADDTOCACHE = 1
End Enum 

<StructLayout(LayoutKind.Sequential)>
Public Structure STATURL
  Public cbSize As Integer
  <MarshalAs(UnmanagedType.LPWStr)>
  Public pwcsUrl As String
  <MarshalAs(UnmanagedType.LPWStr)>
  Public pwcsTitle As String
  Public ftLastVisited As ComTypes.FILETIME
  Public ftLastUpdated As ComTypes.FILETIME
  Public ftExpires As ComTypes.FILETIME
  Public dwFlags As STATURLFLAGS
  Public ReadOnly Property URL As String
    Get
      Return pwcsUrl
    End Get
  End Property
  Public ReadOnly Property Title As String
    Get
      If pwcsUrl.StartsWith("file:") Then
        Return CannonializeURL(pwcsUrl, 
          shlwapi_URL.URL_UNESCAPE)
          .Substring(8).Replace("/"c, "\"c)
      Else
        Return pwcsTitle
      End If
    End Get
  End Property
  Public ReadOnly Property LastVisited As Date
    Get
      Return FileTimeToDateTime(
        ftLastVisited).ToLocalTime()
    End Get
  End Property
  Public ReadOnly Property LastUpdated As Date
    Get
      Return FileTimeToDateTime(
        ftLastUpdated).ToLocalTime()
    End Get
  End Property
  Public ReadOnly Property Expires As Date
    Get
      Try
        Return FileTimeToDateTime(
          ftExpires).ToLocalTime()
      Catch __unusedException1__ As Exception
        Return Date.Now
      End Try
    End Get
  End Property
End Structure
<StructLayout(LayoutKind.Sequential)>
  Public Structure UUID
  Public Data1 As Integer
  Public Data2 As Short
  Public Data3 As Short
  Public Data4 As Byte()
End Structure 

<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid("3C374A42-BAE4-11CF-BF7D-00AA006946EE")>
Public Interface IEnumSTATURL
  Sub [Next](ByVal celt As Integer, 
    ByRef rgelt As STATURL, 
    <Out> ByRef pceltFetched As Integer)
  Sub Skip(ByVal celt As Integer)
  Sub Reset()
  Sub Clone(<Out> ByRef ppenum As IEnumSTATURL)
  Sub SetFilter(<MarshalAs(UnmanagedType.LPWStr)> 
    ByVal poszFilter As String, 
    ByVal dwFlags As STATURLFLAGS)
End Interface
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid("3C374A41-BAE4-11CF-BF7D-00AA006946EE")>
Public Interface IUrlHistoryStg
  Sub AddUrl(ByVal pocsUrl As String, 
    ByVal pocsTitle As String, 
    ByVal dwFlags As ADDURL_FLAG)
  Sub DeleteUrl(ByVal pocsUrl As String, 
    ByVal dwFlags As Integer)
  Sub QueryUrl(<MarshalAs(UnmanagedType.LPWStr)> 
    ByVal pocsUrl As String, 
    ByVal dwFlags As STATURL_QUERYFLAGS, 
    ByRef lpSTATURL As STATURL)
  Sub BindToObject(<[In]> ByVal pocsUrl As String, 
    <[In]> ByVal riid As UUID, ByVal ppvOut As IntPtr)
  ReadOnly Property EnumUrls As Object
End Interface
<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid("AFA0DC11-C313-11D0-831A-00C04FD5AE38")>
Public Interface IUrlHistoryStg2
  Inherits IUrlHistoryStg
  Overloads Sub AddUrl(ByVal pocsUrl As String, 
    ByVal pocsTitle As String, 
    ByVal dwFlags As ADDURL_FLAG)
  Overloads Sub DeleteUrl(ByVal pocsUrl As String, 
    ByVal dwFlags As Integer)
  Overloads Sub QueryUrl(
    <MarshalAs(UnmanagedType.LPWStr)> 
    ByVal pocsUrl As String,
  ByVal dwFlags As STATURL_QUERYFLAGS, 
    ByRef lpSTATURL As STATURL)
  Overloads Sub BindToObject(<[In]> 
    ByVal pocsUrl As String, <[In]> ByVal riid As 
    UUID, ByVal ppvOut As IntPtr)
  Overloads ReadOnly Property EnumUrls As 
    Win32api.IEnumSTATURL 'Typ 'Object' durch 
    ' Enumerationsdatentyp ersetzt 
  Sub AddUrlAndNotify(ByVal pocsUrl As String, 
    ByVal pocsTitle As String, ByVal dwFlags As 
    Integer, ByVal fWriteHistory As Integer, 
    ByVal poctNotify As Object, 
    ByVal punkISFolder As Object)
  Sub ClearHistory()
End Interface
<ComImport>
<Guid("3C374A40-BAE4-11CF-BF7D-00AA006946EE")>
Public Class UrlHistoryClass
End Class