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.

Recurse Frames

#DefineSubRoutine WalkFrames( frames,level )
  level = level + 1
  sp = 2*level
  For n = 0 To frames.length -1
    title = frames.Item(n).document.title
    location = frames.Item(n).document.location
    Pause( sp : " frame: " : n+1 , "title " : title : @CR : "location " : location )
    If frames.Item(n).frames.length > 0
       WalkFrames(frames.Item(n).frames,level)
    EndIf
  Next
  Return
#EndSubRoutine


oShApp = CreateObject("Shell.Application")
ForEach oWin In oShApp.windows
  type = oWin.Name
  If type == "Windows Internet Explorer"
    oDoc = oWin.document
    Pause( "Title ": oDoc.title, "Location ": oDoc.location  )
    If oDoc.frames.length > 0
       WalkFrames(oDoc.frames,1)
    EndIf
  EndIf
Next

Article ID:   W17203

File Created: 2007:07:03:14:28:42

Last Updated: 2007:07:03:14:28:42