- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- Magga: PLEX: multimédia az egész lakásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- Gurulunk, WAZE?!
- Brogyi: CTEK akkumulátor töltő és másolatai
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Új hozzászólás Aktív témák
-
válasz
martonx #1516 üzenetére
Ezt a szinkron-aszinkron dolgot nem teljesen értem.
Erről az oldalról töltenék le: https://familysearch.org/pal:/MM9.3.1/TH-1951-20648-29594-35?cc=1452460&wc=12890478És itt a teljes forráskód:
Imports System.Net
Public Class Form1
Private WithEvents download As WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim download As New WebClient
download = New WebClient
Dim i As Integer
Dim a As String
'For i = 1 To 3
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")
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Try
download.DownloadFileAsync(New Uri(sourceURL), (filedir))
Catch ex As Exception
MsgBox("Failed" + ErrorToString(), MsgBoxStyle.Critical)
End Try
WebBrowser1.Document.GetElementById("next").InvokeMember("click")
' Next
End Sub
Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
End ClassEz még változni fog itt-ott annyiban, hogy lehessen mappát választani és lehessen megadni más url-t is, de most csak az a lényeg hogy működjön
Új hozzászólás Aktív témák
- PlayStation 5
- Android alkalmazások - szoftver kibeszélő topik
- gban: Ingyen kellene, de tegnapra
- ThinkPad (NEM IdeaPad)
- Luck Dragon: Asszociációs játék. :)
- Formula-1
- Nvidia GPU-k jövője - amit tudni vélünk
- Kertészet, mezőgazdaság topik
- Mibe tegyem a megtakarításaimat?
- iPhone topik
- További aktív témák...
- INGYEN POSTA - ÚJ GAMER PC V50 - i5-12400F - RTX 4060Ti - 16GB RAM - 1TB SSD - www.olcsogamerpc.hu
- INGYEN POSTA - ÚJ GAMER PC V3 - i5-10400F -1660 SUPER 6GB -16GB RAM -500GB SSD - www.olcsogamerpc.hu
- INGYEN POSTA - ÚJ GAMER PC V2 - i3-14100F -1660 SUPER 6GB -16GB RAM -500GB SSD - www.olcsogamerpc.hu
- Bitmain Antmimer K7 63.5th ckbminer
- INGYEN POSTA - ÚJ GAMER PC V4 - R5 5500 -1660 SUPER 6GB -16GB RAM -500GB SSD - www.olcsogamerpc.hu
- Gamer PC-Számítógép! Csere-Beszámítás! R7 2700 / RX 5500XT 8GB / 16GB DDR4 / 256SSD + 1TB HDD
- DELL PowerEdge R730xd 16LFF 160TB+400GB 2U rack - 2xE5-2683v4 (16c/32t),256GB RAM,2x10G NET,HBA330
- 122 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 (48 hónap garancia!)
- Bomba ár! HP Elitebook 850 G3 - i7-6GEN I 16GB I 256GB SSD I RadeonI 15,6" FHD I Cam I W11 I Gari!
- 12 GB-os DDR5 SODIMM laptop memória - garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest