2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

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

  • #1517 Des1gnR őstag martonx #1516
    Új Válasz #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 :)

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