Bu konudaki kullanıcılar: 2 misafir, 1 mobil kullanıcı
10
Cevap
0
Tıklama
0
Öne Çıkarma
Visual Basic Net hakkında yardım istiyorum (FileDownload)

U
UgurSirin Konu Sahibi
2 ay (206 mesaj)
Arkadaşlar merhaba, VBNet 2008 Express Edition kullanıyorum. Kendi çapımda bir program yazdım. Ancak takıldığım bir nokta var.
Bir sitede 17.000 adet çizim var. Hepsi ücretsiz, indirmeye yönelik bir program yazdım.
Webbrowser'da Click olayı yaparak "Download" butonuna basıyorum. 5 Saniye geriye doğru sayıp indirme yapıyor. Ancak ben bana Dosya Yükleme ekranı sormadan direk kaydetmesini istiyorum. Bir türlü beceremedim. Belki çok basittir ama forumlarda da çare bulamadım. Yardımcı olabilecek var mı?
1. My.Computer.Network.DownloadFile yöntemini kullandım ancak işe yaramıyor. Google Api var. Download 5 saniye saydıktan sonra indirmeye izin veriyor ve bir kere indiriyor.
2.Macro ile kaydetmeyi denedim ama uzun sürüyor.
Şu anda tek ihtiyacım WBrowser1 componentinden 5 saniye sonra kendiliğinden gelen linki yakalayıp Download Manager programına göndermek veya "Kaydet" uyarısı gelmeden bilgisayara kaydetmesini sağlamak. Bana yardımcı olur musunuz?




U
UgurSirin Konu Sahibi
2 ay (206 mesaj)
Webbrowser'da "Download" bağlantısını click olayı yapınca beş saniye sonra bir dosya indirme linki geliyor. Bunu yakalayıp My.Computer.FileDownload yöntemiyle indirmeye de razıyım. Yöntemi var mı bilgisi olan bana yardım edebilir mi ?




U
UgurSirin Konu Sahibi
2 ay (206 mesaj)
quote:

Orijinalden alıntı: Gökşen PASLI

https://stackoverflow.com/questions/42860707/download-file-without-save-dialog
Bu dediğiniz çözüme girmiştim. Ancak benim sitemde "Download" click olayından sonra 5 saniye bekletiyor. Bu nedenle bu yöntem işime yaramıyor. Buradaki kod işime yaramamıştı.

Çünkü benim indirme bağlantımı site kendisi üretiyor. benim üretilip Webbrowser'a gelen linki yakalamam gerek.





< Bu mesaj bu kişi tarafından değiştirildi UgurSirin -- 1 Nisan 2020; 17:47:4 >


U
UgurSirin Konu Sahibi
2 ay (206 mesaj)

G
Gökşen PASLI
2 ay (3697 mesaj)
yok o kodu vb.nete çevirirsin eğer istediğin o koddaki gibi bişeysehttps://converter.telerik.com/


Bu mesaja 1 cevap geldi.

U
UgurSirin Konu Sahibi
2 ay (206 mesaj)
quote:

Orijinalden alıntı: Gökşen PASLI

yok o kodu vb.nete çevirirsin eğer istediğin o koddaki gibi bişeysehttps://converter.telerik.com/

Dim elements As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelement As HtmlElement In elements
If webpageelement.GetAttribute("id") = "dl-button" Then
webpageelement.InvokeMember("click")
End If


bende URL yok. Ben InvokeMember yöntemiyle "Click" yapıyorum. Javascript linki oluşuturup bana indirme bağlantısı veriyor. Aslında derdimiz benziyor ama ben bunu nasıl kullanıcam bilmiyorum.




G
Gökşen PASLI
2 ay (3697 mesaj)
ona bakılması lazım belki selenium gibi frameworke ihtiyaç duyulabilir sitenin adresi vb yok mu




U
UgurSirin Konu Sahibi
2 ay (206 mesaj)
3axis.co




G
Gökşen PASLI
2 ay (3697 mesaj)
sitenin dosya yapısı karmaşık gelmedi sadece ismini ve uzantıyı okuyacan dosyanınhttps://files.3axis.co/docs/cdr/rastegeisim.cdr
sen sadece rastgele isimi birde cdr dxf hangi tip dosyaysa bunu okuyacan vb.net ile sonra adresi oluşturacan


Bu mesaja 1 cevap geldi.

U
UgurSirin Konu Sahibi
2 ay (206 mesaj)
quote:

Orijinalden alıntı: Gökşen PASLI

sitenin dosya yapısı karmaşık gelmedi sadece ismini ve uzantıyı okuyacan dosyanınhttps://files.3axis.co/docs/cdr/rastegeisim.cdr
sen sadece rastgele isimi birde cdr dxf hangi tip dosyaysa bunu okuyacan vb.net ile sonra adresi oluşturacan
javascript ile kontrol var. 403 Forbidden hatası dönüyor. Bu nedenle hepsini "Download" click olayından sonra 5 saniye beklemeden indirmiyor. Çözümü yine makro ile devam ederek yapıyorum. Şimdiye kadar 2500 adet indi. 3 bilgisayar aralıksız çalışıyor. daha 17.000 adet var.

Çözüm bulamadık yanı kısacası arkadaşlar.



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.