如：
vfp如何在https://bbs.论坛左侧菜单找到“数据据开发—其他数据库开发—VFP"展开并模拟点击

自己解决了：
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