VFP控制IE网页树状菜单？

自己解决了：
oshell=createobject("shell.application")
ow=oshell.windows()
FOR i=0 to (ow.count-1)
   if ("IEXPLORE.EXE" $ UPPER(ow.item(i).fullname))
       if 'https://bbs.'$ow.item(i).document.location.href
            ox=ow.item(i)
            exit
       endif
   endif
ENDFOR
DO WHILE ox.ReadyState != 4
   WAIT '' TIMEOUT 1
ENDDO
FOR I=0 To ox.Document.GetElementsByTagName('A').Length-1
   IF ox.Document.GetElementsByTagName('A').item(I).title=='数据库开发'
      ox.Document.GetElementsByTagName('A').item(I).click('')
   ENDIF
   IF ox.Document.GetElementsByTagName('A').item(I).title=='其他数据库开发'
      ox.Document.GetElementsByTagName('A').item(I).click('')
      EXIT
   ENDIF
ENDFOR
DO WHILE ox.ReadyState != 4
   WAIT '' TIMEOUT 1
ENDDO
FOR I=0 To ox.Document.GetElementsByTagName('A').Length-1
    IF ox.Document.GetElementsByTagName('A').item(I).title=='VFP'
       ox.Document.GetElementsByTagName('A').item(I).click('')
       EXIT
    ENDIF
ENDFOR
RETURN

直接调用navigate可以吗：
ox.navigate("https://bbs.)