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

• fluxion őstag

  #1519

  #1518 martonx

  2011-11-22 22:53:29

  Új Válasz

  Ú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

  

  fluxion

  őstag

  #1518 martonx

  Köszönöm a segítséget, ez nagyon korrekt válasz volt.
  Ezt a verziót választottam:
  Dim mettől As Integer = TextBox4.Text
  Dim meddig As Integer = TextBox2.Text
  Dim i As Integer
  Dim a As String
  For i = mettől To meddig
  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")
  WebBrowser1.Document.GetElementById("next").InvokeMember("click")
  My.Computer.Network.DownloadFile(sourceURL, filedir)
  
  Next

  De nem várja meg, hogy letöltsön a kép, és már megy is tovább a for ciklus.

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