- PHP programozás
- Mikrotik routerek
- Van, amit nehéz lett megtalálni a Google keresőjével
- Kaspersky Antivirus és Internet Security Fórum
- A Sony szerint Japánon kívül is hódíthat az anime
- Szilárdtest-akkumulátorokat fejleszt Kína, jöhet az áttörés?
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Windows 11
- A választási tévinformációk ellen küzd a Meta
- SQL kérdések
Új hozzászólás Aktív témák
-
Des1gnR
őstag
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
[ Szerkesztve ]
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
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen