VBÖÐinetËÀÑ»·Çë½Ì[û·ÖÁËÖ»Óз¢ÕâÀ¼ûÁÂ]
×î½üÓÃVBдÁËÒ»¸ö²Ù×÷ÍøÒ³µÄ³ÌÐò£¬
ÆäÖÐÓÐÒ»¶ÎÑ»·£¬´úÂëÈçÏÂ
VB code:
inet1.Execute("d_url")
Do until inet1.stillexecuting=False ËÀÑ»·
doevents
Loop
ÔÚÎÒ¼ÒµçÄԺ͵¥Î»µçÄÔÉÏÒ»ÇÐÕý³££¬µ«ÔÚÎÒͬʵçÄÔÉϾÍʼÖÕÌø²»³öÕâ¸öÑ»·£¬
inet1.stillexecutingÒ»Ö±ÊÇTrue
Ìý˵ÊÇij¸ö dll¿Ø¼þÓÐÎÊÌâ,ÎÒ³¢ÊÔ»»¹ý msinet.ocx¿Ø¼þÁË
µ«ÊÇ»¹ÊDz»ÐÐ
¶øÇÒÍøÉÏËÑË÷ÁËÏ ·¢ÏֺܶàÈ˶¼ºÍÎÒÅöµ½Ò»ÑùµÄÎÊÌ⣬
¸÷λһÆðÀ´°ïÏÂæ~ ¸Ð¼¤²»¾¡
Ïà¹ØÎÊ´ð£º
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÇëÎÊÒ»ÏÂvbºÍtcµÄÆÒëÓïÎÊÓÐʲô¾ßÌåµÄÇø±ð¡£
& ......