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

ÈçºÎÓÃVBʵÏÖÏÂÔØ¹¦ÄÜ


ÔÚÍøÉÏÕҵĺܶ඼Ū²»À´£¬Õâ¸ö¹¦ÄÜÊDz»ÊǺÜÄÑʵÏÖ°¡£¿
ÍøÉÏÏֳɵijÌÐòºÜ¶à£¬¶¼¿ÉÒÔʵÏÖµÄ

Ò»¸öÓÃInet¿Ø¼þÏÂÔØµÄº¯Êý,µÚÒ»¸ö²ÎÊýÊÇÏÂÔØµØÖ·,µÚ¶þ¸ö²ÎÊýÊDZ£´æÂ·¾¶.
VB code:
Private Function downFile(ByVal Url As String, ByVal savefolder As String) As String
Dim bytes() As Byte
' °ÑÎļþµÄ×Ö½Ú¶Áµ½Ò»¸öByteÊý×éÖÐ
' On Error Resume Next
bytes() = Inet1.OpenURL(Url, icByteArray)
If Err.Number = 35764 Then Exit Function
'µÃ³öÎļþÃû
Dim tempS
tempS = Split(Url, "/")
Dim fname As String
fname = tempS(UBound(tempS))
fname = App.Path & "\" & savefolder & "\" & fname
Open fname For Binary Access Write As #1
Put #1, , bytes()
Close #1
downFile = fname
End Function




ÀÏÕÅÄúºÃ£¬ÎÒ²»ÖªµÀÔõôŪ°¡£¬¿Ø¼þŪÀ´ÁË£¬¿ÉÎÒ°Ñ´úÂë·ÅÔÚ°´Å¥ÖУ¬Ò²²»ÄÜʵÏÖ°¡£¬¶¼¹ÖÎÒ»ù´¡Ì«²îÁË£¬Äܲ»ÄÜÐÁ¿àÄúÔÙÉÔ΢½âÊÍһϰ¡£¿

ÐÁ¿àÄúÁËÀ²¡£¡£¡£

ʹÓÃWinSocket¿Ø¼þ£¬ÊµÏÖ¶àÏ̵߳ÄÏÂÔØ·½Ê½

ÀÏÕŵĴúÂëºÜ¾«¸É

urldownloadfile
Õâ¸öAPIº¯Êý²»ÖªµÀÓÐûÓÐÆ´´í

http://www.m5home.com/blog/article.asp?id=395



°¡¹þ,ͼƬ´ò¿ª·ÀµÁÁ´ÁË,ÍüÁË......

Option Explicit
Private Declare Function URLDownloadToFile Lib "url


Ïà¹ØÎÊ´ð£º

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ