Új hozzászólás Aktív témák
-
Des1gnR
őstag
válasz martonx #1518 üzenetére
Köszönöm a segítséget, ez nagyon korrekt válasz volt.
Ezt a verziót választottam:
Dim mettől As Integer = TextBox4.Text
Dim meddig As Integer = TextBox2.Text
Dim i As Integer
Dim a As String
For i = mettől To meddig
a = i
Dim link As String = WebBrowser1.Document.GetElementById("save").GetAttribute("href")
TextBox1.Text = ("https://familysearch.org" + link)
Dim sourceURL = TextBox1.Text
Dim filedir = ("C:\" + a + ".jpg")
WebBrowser1.Document.GetElementById("next").InvokeMember("click")
My.Computer.Network.DownloadFile(sourceURL, filedir)
NextDe nem várja meg, hogy letöltsön a kép, és már megy is tovább a for ciklus.
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
Új hozzászólás Aktív témák
- Óvodások homokozója
- Fotók, videók mobillal
- WD HDD jelszót kér
- Crypto Trade
- Nvidia GPU-k jövője - amit tudni vélünk
- Samsung Galaxy S23 Ultra - non plus ultra
- Spórolós topik
- Autós topik látogatók beszélgetős, offolós topikja
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Diablo IV
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest