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