Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
#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