Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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µÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ