ÈçºÎÓÃ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ÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......