Download Dosyası - VB6

Question

Bir dosyayı nasıl indireceğinizi (bir web sayfasını açmadan) ve Visual Basic 6.0'daki bir dizine kaydetmeyi bilen var mı?

Answer 1

Yalnızca kodla (Internet Aktarım Denetimi yok) yapmak istiyorsanız, VBNet.mvps.org URLDownloadToFile API çağrısı kullanan gerçekten iyi bir makaleye sahiptir. Makale

:

URLDownloadToFile API (Win3, WinNT3.x hariç), Windows işletim sisteminin tüm sürümlerinde mevcuttur. Uzak dosya adı ve yerel dosya yolu ve adı, geçirerek API, belirtilen dosyanın bitlerini hedef adı olarak kaydederek indirir. fonksiyon tüm dosya türleri ile çalışır -, düz metin, resim, html, mpg, wav ve zip dosyaları vb dosya için rutin veya endişe değiştirilmeden indiriliyor ne de görünürde herhangi boyut kısıtlama yoktur ya sınırlama.

Private Declare Function URLDownloadToFile Lib "urlmon" _ 
    Alias "URLDownloadToFileA" _ 
    (ByVal pCaller As Long, _ 
    ByVal szURL As String, _ 
    ByVal szFileName As String, _ 
    ByVal dwReserved As Long, _ 
    ByVal lpfnCB As Long) As Long 

Private Const ERROR_SUCCESS As Long = 0 
Private Const BINDF_GETNEWESTVERSION As Long = &H10 
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000 

Public Function DownloadFile(sSourceUrl As String, _ 
          sLocalFile As String) As Boolean 

    //'Download the file. BINDF_GETNEWESTVERSION forces 
    //'the API to download from the specified source. 
    //'Passing 0& as dwReserved causes the locally-cached 
    //'copy to be downloaded, if available. If the API 
    //'returns ERROR_SUCCESS (0), DownloadFile returns True. 
    DownloadFile = URLDownloadToFile(0&, _ 
            sSourceUrl, _ 
            sLocalFile, _ 
            BINDF_GETNEWESTVERSION, _ 
            0&) = ERROR_SUCCESS 

End Function 

Bilginize - Windows 7 üzerinde test, sadece önbelleğe alınmış sürümünü dönecekti, bu yüzden önce onu temizlemek için makalede belirtilen ekstra işlevi kullanmak zorunda kaldı (ve bu çalıştı).

Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _ 
    Alias "DeleteUrlCacheEntryA" _ 
    (ByVal lpszUrlName As String) As Long 

Sonra sadece önbelleği temizlemek için, ilk hedef URL'ye sahip yukarıdaki işlevini çağırın.

Answer 2

Ben Sen, internet Transferi kontrolünü kullanmak bir örnek için http://www.vb-helper.com/howto_get_file_from_web.html görmek gerek Internet Transfer Control

Answer 3

kullanarak öneririm. Kimlik bilgilerini belirtmeniz gerekiyorsa, http://support.microsoft.com/kb/173264'u da kontrol edin.

Answer 4

Internet Aktarım Denetimi'ni beğenmedim çünkü eşzamanlı. Bir indirme işlemini başlattığınızda, dosya indirilinceye veya bir hata atılana kadar uygulamanıza yanıt vermiyor. Eşzamansız yöntemler yazmak için WININET DLL kullanmanın iyi örnekleri vardır. Bu önemsiz değil, aynı zamanda çok yapılabilir. Here, yığın akışından bir örnektir.

Answer 5

API çağrılarına ihtiyacınız yoktur, İnternet Aktarım denetimine ihtiyacınız yoktur. Sadece yerel VB6 kodunu kullanarak kolay yolu yapın. İşte örnek kod ile mükemmel bir article by Karl Peterson.

Answer 6

Bu deneyin:

Örnek:

My.Computer.Network.DownloadFile _ 
("http://www.cohowinery.com/downloads/WineList.txt", _ 
"C:\Documents and Settings\All Users\Documents\WineList.txt") 

Answer 7

bu

Sub DownloadFile(url, path) 

    Dim objReq 
    Dim objStream 

    Set objReq = CreateObject("MSXML2.XMLHTTP") 
    objReq.Open "GET", url, False 
    objReq.send 

    If objReq.Status = 200 Then 
     Set objStream = CreateObject("ADODB.Stream") 
     objStream.Open 
     objStream.Type = 1 

     objStream.Write objReq.ResponseBody 
     objStream.Position = 0 

     objStream.SaveToFile path, 2 
     objStream.Close 
     Set objStream = Nothing 
    End If 

    Set objReq = Nothing 

End Sub 

deneyin

My.Computer.Network.DownloadFile (*File to download*, *What to save it as*) 

Gün içinde bir çok olarak kaydedin ne bir dosya adı vermelidir

daha fazla bilgi için bkz. http://smartreferences.blogspot.in