Database Search

TechHome

Shell Windows

• Accessing Recorded TV Metadata
• Create Network Shortcut
• Delete IE History Temporary and Cookies
• Delete Temporary Internet Files
• Enumerate Supported File Properties by Windows Shell
• Get Browser History
• List Temporary Internet Files
• Pin Items to the Start Menu or Windows 7 Taskbar
• Recurse Frames
• Start MS Search Assistant
• Write an Event to the Eventlog
• Zip Folder with Progress Bar

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get Browser History

HISTORY_LIST = 34
ITEM_NAME = 0
ITEM_DATE = 2
objShell = CreateObject("Shell.Application")
objHistory = objShell.NameSpace(HISTORY_LIST)
objHistoryFolder = objHistory.Self
Message("Folder",objHistoryFolder.Path)
ForEach objPeriod In objHistory.Items
  Message("Name: ", objPeriod.Name)
  If objPeriod.IsFolder Then
    objSiteFolder = objPeriod.GetFolder
    ForEach objSite In objSiteFolder.Items
      Message("Site",objSite.Name)
      If objSite.IsFolder Then
        objPageFolder = objSite.GetFolder
        ForEach objPage In objPageFolder.Items
          strURL = objPageFolder.GetDetailsOf(objPage,ITEM_NAME)
          strDateVisited = objPageFolder.GetDetailsOf(objPage,ITEM_DATE)
          Message("Item: " , strDateVisited:@CRLF:@CRLF:"URL: ":strURL:@CRLF:@CRLF)
          If IsKeyDown(@CTRL&@SHIFT) Then Break
        Next
      End If
      If IsKeyDown(@CTRL&@SHIFT) Then Break
    Next
  End If
  If IsKeyDown(@CTRL&@SHIFT) Then Break
Next
objPageFolder = 0
objSiteFolder = 0
objHistory = 0
objHistory = 0
objHistoryFolder = 0
ObjectClose(objShell)

Sample 2:

;This code looks at the tool tip name of the folder is to get History information from the folder name.
dump_file_name = "history_dump.txt"
dump_dir = "C:\"

fh = FileOpen( dump_dir : dump_file_name, "WRITE" )

sh = CreateObject("Shell.Application")
ssfHISTORY = 34
history = sh.NameSpace(ssfHISTORY)
;first level items a grouped by date (today, yesterday, last week)
ForEach item In history.items
  FileWrite(fh,  history.GetDetailsOf(item,-1) )
  FileWrite(fh, "" )
  If item.isFolder
    itFol = item.GetFolder
    ForEach item2 In itFol.items
      FileWrite(fh,  @TAB : itFol.GetDetailsOf(item2,-1))
      FileWrite(fh, "" )
      If item2.isFolder
        itFol2 = item2.GetFolder
        ForEach item3 In itFol2.items
          url = itFol2.GetDetailsOf(item3,0)
          title = itFol2.GetDetailsOf(item3,1)
          date_vis = itFol2.GetDetailsOf(item3,2)
          FileWrite(fh,  @TAB:@TAB:@TAB:date_vis :" : " : title)
          FileWrite(fh,  @TAB:@TAB:@TAB: url)
          FileWrite(fh, "" )
        Next
      EndIf
    Next
    FileWrite(fh, "***************************" )
    FileWrite(fh, "" )
  EndIf
Next
FileClose(fh)


;open textfile
Run (dump_dir : dump_file_name,"")

Exit

Article ID:   W17202

File Created: 2008:03:10:10:11:46

Last Updated: 2008:03:10:10:11:46