FUNCTION PageCatalog LPARA oIE CREATE CURSOR PageCatalog (ItemIndex i, InnerText M, InnerHTML M) FOR i = 0 TO oIE.Document.Body.All.Length - 1 m.ItemIndex = i m.InnerText = oIE.Document.Body.All(i).InnerText m.InnerHTML = oIE.Document.Body.All(i).InnerHTML INSERT INTO PageCatalog FROM MEMVAR ENDFOR ENDFUNCThis will return a cursor with the page catalog; I’d like to do something similar to get the forms catalog and the Fields names associated with each form.
>cValue = "JA0000165801" >oIE = CREATEOBJECT("InternetExplorer.Application") >oIE.Navigate("http://www.fastway.com.au") >IF WaitForReadyState(oIE) > oIE.Document.FTrace.TAG.value = ALLTRIM(cValue) > oIE.Document.FTrace.Submit() > oIE.Visible = .t. >ELSE > MESSAGEBOX("Internet Connection timed out",64,"Apparently no Internet Connection") >ENDIF > >oIE = null >>The WaitForReadyState function can be found by searching for SmartSMS on the fox wikis.