oCollection = CreateObject( "Shell.Application" ) FOR ia=0 to oCollection.Windows.Count-1 WITH oCollection.Windows(ia) iF "iexplore.exe"$LOWER(.FullNAme) *all properties and Methods of InternetExplorer.Application may go here ?"Title: ", .locationName &&Window Title ?"URL: ", .LocationUrl &&URL ?"Type: ", .Type if .locationName="Login" ?"here it is!" *work with the oCollection.Windows(ia).Document content, frames as needed EXIT endif endif ENDwith ENDFOR oCollection=.null. RELEASE oCollection>This works, except that Norton complains about the script, which makes the process less automated. I'd rather stick with IE automation if possible.
>>oShell = CreateObject("WScript.Shell") >>IF oShell.AppActivate("Login") >> ?"OK" >> oShell.SendKeys("hello{TAB}password{ENTER}") >>endif >>>>
>>>oIE = CreateObject("InternetExplorer.Application") >>>oIE.Visible = .t. >>>oIE.Navigate("https://goldleafach.com/achbeta/?8435017") >>>? oIE.Document.Forms.Length && returns 1 (initial form only) >>>? oIE.Document.Forms(0).Name && returns name of initial form >>>? oIE.Document.Forms(1).Name && fails >>>