Hirdetés
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- Olcsóbb fajtájúnak ígérkező Team Group SSD a PCI Express 5.0-s halmazban
- Több memóriát kapott az RTX PRO 5000 új kiadása
- Obsbot blog: 4K-s produkciós kamera professzionális babérokra törőknek
- Felszállni készülő drón? Nem, nyitott In Win "ház"!
- Milyen notebookot vegyek?
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Hobby elektronika
- DUNE médialejátszók topicja
- Házimozi haladó szinten
- Vezetékes FEJhallgatók
- Milyen NETbookot vegyek?
- OLED TV topic
- Különleges és kompakt Maxsun deszka jön az AMD platformon
Ú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
- Battlefield 6
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- exHWSW - Értünk mindenhez IS
- World of Tanks - MMO
- Milyen notebookot vegyek?
- A szaúdiaknál keres újabb befektetőket az Intel
- Black Friday november 29. / Cyber Monday december 2.
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- AliExpress tapasztalatok
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- További aktív témák...
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3716
- LG L192WS monitor eladó: 19" 1440 900
- Akció! Hordozható GAMER Monitor! MSI MAG162V ! 15.6 1920x1080 FULLHD! Bolti ár fele!
- Keresünk dokkolókat
- MÉG OLCSÓBB 10.21. !!! Új elekrtomos rollerek 2/3 áron és e-bike dobozban, 1 év garanciával:
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest