ÇëÎÊÌâÓÃVBÔõô´¥·¢µã»÷ÈçÉÏ´úÂë¡°¹ÜÀí¡±Á´½Óлл!!!ûÓÐÈ˻شðÂ𣿠¼± ÒýÓÃ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 ûÓÐÓÃŶ£¬ËãÁË¡£ ×ÔÒÑÕÒ±ðÈ˰취£¬Ð»Ð»ÄãÃǰ¡
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......