[AutoIt Release] Download UDF

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • [AutoIt Release] Download UDF

      Da viele bei AutoIt immer rummeckern, dass bei Vista/7 InetGet soviel rumspinnt,
      hab ich mich mal an eine gescheite UDF fürs downloaden gesetzt. In der UDF
      ist eig alles erklärt, daher brauch ich hier im Thread nicht viel dazu sagen.
      Man kann die Downloaddaten (% und Geschwindigkeit) entweder per GUI-Objekt
      oder Progress anzeigen lassen, genaueres in der UDF, außerdem ist ein Beispiel
      dabei.

      Viel Spaß beim anschauen/nutzen.

      Download: Mirror 1, Mirror 2, Mirror 3

      LG Dawn.

      Quelltext only
      Source

      Quellcode

      1. Func _download ($url, $savepath, $handle = False, $label = "", $overwrite = 1)
      2. $bytes = InetGetSize ($url)
      3. $sec1 = @SEC
      4. $sec2 = @SEC
      5. $sec3 = @SEC
      6. $sec4 = @SEC
      7. $dl_proc = 0
      8. $old_calc = 0
      9. $speed = "Wird berechnet"
      10. $stop = False
      12. If FileExists ($savepath) Then
      13. If $overwrite = 1 Then
      14. FileDelete ($savepath)
      15. Else
      16. $stop = True
      17. EndIf
      18. EndIf
      20. If $bytes = 0 Then
      21. Return 2
      22. ElseIf $stop = True Then
      23. Return 3
      24. Else
      25. $main = InetGet ($url, $savepath, 0, 1)
      26. $info = InetGetInfo ($main)
      28. If $handle = False Then
      29. $progress = ProgressOn ("Download", "Download wurde gestartet!")
      30. Else
      31. GUICtrlSetData ($handle, 0)
      32. EndIf
      34. Do
      36. $info = InetGetInfo ($main)
      37. $calc = Round ($info[0] / ($bytes /100))
      39. $sec1 = @SEC
      40. If $sec1 <> $sec2 Then
      41. #cs ### only works on XP ###
      42. $size = FileGetSize ($savepath)
      43. $speed = ($size - $dl_proc) / 1024
      44. $dl_proc = $size
      45. #ce ### only works on XP ###
      46. $speed = ($info[0] - $dl_proc) / 1024
      47. $dl_proc = $info[0]
      48. $sec2 = @SEC
      49. EndIf
      51. If $handle = False Then
      52. If $old_calc <> $calc Then
      53. $old_calc = $calc
      54. ProgressSet ($calc, "Download wurde zu " & $calc & "% abgeschlossen." & @CRLF & "Aktuelle Downloadgeschwindigkeit: " & $speed & "kb/s.")
      55. EndIf
      56. Else
      57. $sec3 = @SEC
      58. If $sec3 <> $sec4 Then
      59. $sec4 = @SEC
      60. GUICtrlSetData ($label, "Download wurde zu " & $calc & "% abgeschlossen." & @CRLF & "Aktuelle Downloadgeschwindigkeit: " & $speed & "kb/s.")
      61. EndIf
      62. GUICtrlSetData ($handle, $calc)
      63. EndIf
      65. Until $info[2] = True
      67. If $handle = False Then
      68. ProgressOff ()
      69. Else
      70. GUICtrlSetData ($label, "Download wurde erfolgreich abgeschlossen!")
      71. EndIf
      73. Return 1
      74. EndIf
      75. EndFunc
      Alles anzeigen


      OT: Unbanned yay, Taser du bistn NOOB.

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • OT: Unbanned yay, Taser du bistn NOOB.
      <3 Thanks- wert. ;'3

      Zum Tool:

      Wieder mal ein sinnloses Tool aus Hause Dawn ....


      Dein Screenmaker ist das bisher beste Tool den Rest kannst du in die Tonne werfen! ...

      Egal welche Inspirationen oder Gedanken du während des Schreibens von dem Screenmaker hattest, schnappe sie wieder auf und setzt dich ans Schreibe!

    • Cheas3r;220102 schrieb:

      <3 Thanks- wert. ;'3

      Zum Tool:

      Wieder mal ein sinnloses Tool aus Hause Dawn ....


      Dein Screenmaker ist das bisher beste Tool den Rest kannst du in die Tonne werfen! ...

      Egal welche Inspirationen oder Gedanken du während des Schreibens von dem Screenmaker hattest, schnappe sie wieder auf und setzt dich ans Schreibe!

      1. lass mich :<
      2. meine tools entstehen meist zum eigengebrauch, teile sie aber dann gerne mit anderen
      3. ich habe keine inspiration, das geschieht alles durch den computeralltag xD