vb´¥·¢ÍøÒ³ÖеÄÎÄ×ÖÁ´½Ó

+' <td id=menu8 align="center" nowrap="nowrap" width=83> <span color="#082d71" onclick="javascript:ActionHandle(2355703,8);" onmouseover="this.style.cursor=\'hand\';"> <font color="#082d71">&nbsp;¹ÜÀí </font> </span> </td>'

ÇëÎÊÌâÓÃVBÔõô´¥·¢µã»÷ÈçÉÏ´úÂë¡°¹ÜÀí¡±Á´½Óлл!!!

---

ûÓÐÈ˻شðÂð£¿
¼±

---

ÒýÓÃMSHTML£¬±éÀúµ½Õâ¸öÁ¬½Ó¶ÔÏ󣬵÷ÓÃÕâ¸ö¶ÔÏóµÄclick()·½·¨

---

ÒýÓÃ

ÒýÓÃMSHTML£¬±éÀúµ½Õâ¸öÁ¬½Ó¶ÔÏ󣬵÷ÓÃÕâ¸ö¶ÔÏóµÄclick()·½·¨

ÄÜд³ö´úÂëÂð¡·
лл

---

dim objDoc  as mshtml.htmldocument
dim objLink  as mshtml.htmllinkelement

'È¡µÃÎĵµ¶ÔÏó½Ó¿Ú
set objdoc=WebBrowser1.document

'±éÀúËùÓÐÁ¬½Ó
for each objlink in objdoc.links
    if instr(1,objlink.tostring,"¹ÜÀí") then
        objlink.click()
        exit for
    endif
next

---

ûÓÐÓÃŶ£¬ËãÁË¡£
×ÔÒÑÕÒ±ðÈË°ì·¨£¬Ð»Ð»ÄãÃÇ°¡