oIE = createobject( "internetexplorer.application" )
oIE.Visible = .t.
oIE.Navigate( "https://www.somesite.com/sc/lastsix.html" )
do while oie.Busy()
doevents
enddo
loDoc = oIE.Document && get the Document object
loForm = loDoc.forms(0) && get the first form object
* explore the form items
*!* for i = 0 to loForm.Length-1
*!* ? i, loForm.Item(i).Name, loForm.Item(i).Value
*!* endfor
loItem = loForm.item( "mycode")
loItem.value = ALLTRIM(basic_information.code_id)
loItempass = loForm.item( "mypass")
loItempass.value = ALLTRIM(basic_information.my_pass)
loitemlookup=loForm.item( "lookup")
loitemlookup.value= ALLTRIM(order_table.orderno)
loform.Submit()
|