遍历 tagname("a") 的innertext然后 obj.click 即可
dim x as objectfor each x in webbrowser1.document.getelementsbytagname("a") if x. innertext="关键字" then x.click exit for endifnext