Arama butonu
Bu konudaki kullanıcılar: 1 misafir
10
Cevap
755
Tıklama
0
Öne Çıkarma
Visual Basic Net hakkında yardım istiyorum (FileDownload)
U
5 yıl
Teğmen
Konu Sahibi

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?

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



U
5 yıl
Teğmen
Konu Sahibi

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 ?



G
5 yıl
Yarbay

U
5 yıl
Teğmen
Konu Sahibi

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
5 yıl
Teğmen
Konu Sahibi

G
5 yıl
Yarbay

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


Bu mesaja 1 cevap geldi.
U
5 yıl
Teğmen
Konu Sahibi

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
5 yıl
Yarbay

ona bakılması lazım belki selenium gibi frameworke ihtiyaç duyulabilir sitenin adresi vb yok mu



U
5 yıl
Teğmen
Konu Sahibi

3axis.co



G
5 yıl
Yarbay

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
5 yıl
Teğmen
Konu Sahibi

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.