Új hozzászólás Aktív témák

• #1517 Des1gnR őstag martonx #1516

  Új Válasz 2011-11-22 21:23:03 #1517

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Class

  Ez 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