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

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔØÊÇÕý³£µÄ£¬Content-TypeÊÇÕýÈ·µÄ,ÊÇImage/jpeg;µ«ÊÇÒ»µ©ÏµÍ³µÄIE°æ±¾ÊÇ7»òÕß8µÄʱºò£¬ÏÂÔØ¾Í»á³ö´í£¬Content-Type¾Í»á³ö´í£¬»áÈ«²¿±ä³ÉHtml,È«²¿ÊÇÍøÒ³¸ñʽµÄ£¬ÏÂÔØ³ö´í£¡
  Õæ²»ÖªµÀÕâÊÇʲôÎÊÌ⣬¸ßÊÖ¸øÖ¸µ¼Ò»Ï£¡Ð»Ð»£¡£¡£¡
ÔõôûÓÐÈË»ØÄØ£¿


'State = 12 ʱ£¬Óà GetChunk ·½·¨¼ìË÷·þÎñÆ÷µÄÏìÓ¦¡£
  Dim RetCode As Long
   
  Dim vtData() As Byte
  Select Case State
  '...ûÓÐÁÐ¾ÙÆäËüÇé¿ö¡£
  Case icError '11
  '³öÏÖ´íÎóʱ£¬·µ»Ø ResponseCode ºÍ ResponseInfo¡£
  vtData = inet1.ResponseCode & ":" & inet1.ResponseInfo
  Case icResponseCompleted ' 12
  Dim bDone As Boolean: bDone = False
  'È¡µÃµÚÒ»¸ö¿é¡£
  vtData() = inet1.GetChunk(1024, 1)
  DoEvents
  Open SavePathTemp For Binary Access Write As #1 'ÉèÖñ£´æÂ·¾¶Îļþºó¿ªÊ¼±£´æ

  If Len(inet1.GetHeader("Content-Length")) > 0 Then ProDown.Max = CLng(inet1.GetHeader("Content-Length"))
  'Ñ­»··Ö¿éÏÂÔØ
  Do While Not bDone
  Put #1, Loc(1) + 1, vtData()
  vtData() = inet1.GetChun


Ïà¹ØÎÊ´ð£º

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / »ù´¡Àà

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

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

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

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

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ