İlginç bir sorun

LegendM · 15 Nis 2013

Arkadaşlar wallpaper programı yapıyorum baya kaliteli birşey yaptım,otomatik arkaplan yapma çözünürlük algılama vs vs

En sona download işini bırakmıştım çünkü kolay iş diye işin ilginç tarafı çalışmıyor

Kullandığım site wallpaperswide.com

http://wallpaperswide.com/download/tropical_paradise_beach-wallpaper-1600x900.jpg

Örneğin bu linki tarayıcıda açarsanız sayfasına yönlendiriyor tamam kabul fakat idm'de ekleyince direk indirilmeye hazır oluyor

Ben ekleyince ise 159 kb civarında bir veri çekiyor ve takılıyor

En basit yöntemle verileri çekmeyi denedim

My.computer.download file dedim olmadı

Public WithEvents download As New WebClient
download.DownloadFileAsync(New Uri(link.Text), "c:\deneme.jpg")

Dedim yine olmadı (async sız hali de olmadı)

Sizce neden olabilir 1 saattir kafa yoruyorum fakat anlam veremedim

Dentrax · 15 Nis 2013

IDM ekleyince demişsin nasıl IDM ekleyince ?
WebClient ile denedinmi ?

Dim adres as string = "http://www................/images"
Dim dosyaismi as string = "Dosya.gif"
Dim kaynak as string = Nothing
Dim web as new webclient

kaynak = kaynak + dosyaismi
kaynak.downloadFile (kaynak, dosyaismi)

msgbox("Ok")

''Public Sub DownloadFile (adres as string,dosyaadı as string)

LegendM · 15 Nis 2013

_DeaLyDeviL_' Alıntı:
IDM ekleyince demişsin nasıl IDM ekleyince ?
WebClient ile denedinmi ?

Denedim denedim

Kod:

        Dim adres As String = TextBox1.Text
        Dim dosyaismi As String = "C:\deneme.jpg"
        Dim kaynak As String = Nothing
        Dim web As New WebClient

        kaynak = kaynak + dosyaismi
        web.DownloadFile(adres, dosyaismi)

        MsgBox("Ok")

Senin kodu düzelttim yanlış yazmışsın böyle denedim yine çare yok

http://wallpaperswide.com/download/aston_martin_m310_vanquish-1600x900.html

Denediğim linkte bu

Dentrax · 15 Nis 2013

Şuan denedim çalışıyor.

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Dim web As New WebClient
Dim adresyeni As New TextBox
adresyeni.Text = "http://wallpaperswide.com/download/aston_martin_m310_vanquish-wallpaper-1280x1024.jpg"
Dim adres As String = adresyeni.Text
Dim kaynak As String = Nothing

If adres.EndsWith(".jpg") Then

If adres.Contains("1280x1024") Then
Dim dosyaismi As String = "D:\ResimAdı[1280x1024].jpg"
kaynak = kaynak + dosyaismi
web.DownloadFile(adres, dosyaismi)
End If

If adres.Contains("1024x768") Then
Dim dosyaismi As String = "D:\ResimAdı[1024x768].jpg"
kaynak = kaynak + dosyaismi
web.DownloadFile(adres, dosyaismi)
End If

'

End If

If adres.EndsWith(".gif") Then

If adres.Contains("1280x1024") Then
Dim dosyaismi As String = "D:\ResimAdı[1280x1024].gif"
kaynak = kaynak + dosyaismi
web.DownloadFile(adres, dosyaismi)
End If

If adres.Contains("1024x768") Then
Dim dosyaismi As String = "D:\ResimAdı[1024x768].gif"
kaynak = kaynak + dosyaismi
web.DownloadFile(adres, dosyaismi)
End If

'

End If

If adres.EndsWith(".bmp") Then

If adres.Contains("1280x1024") Then
Dim dosyaismi As String = "D:\ResimAdı[1280x1024].bmp"
kaynak = kaynak + dosyaismi
web.DownloadFile(adres, dosyaismi)
End If

If adres.Contains("1024x768") Then
Dim dosyaismi As String = "D:\ResimAdı[1024x768].bmp"
kaynak = kaynak + dosyaismi
web.DownloadFile(adres, dosyaismi)
End If

'

End If

MsgBox("İndirme işlemi başarılı.")

End Sub

LegendM · 15 Nis 2013

_DeaLyDeviL_' Alıntı:
Şuan denedim çalışıyor.

Bendemi sorun var yine 167 kb indirdi

----------

Şu benim programı test edebilecek varmı göndereyim özel mesajla

İlginç bir sorun

LegendM

Dentrax

LegendM

Dentrax

LegendM