Hilfe. Downloader FTP-Ordner bzw. Datei

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von faxe1008.

    Hilfe. Downloader FTP-Ordner bzw. Datei

    Guten Tag @all
    Ich habe hier ein kleines Prob und bin fest der hoffnung ihr könnt mir helfen.
    Zwar wollte ich einen Downloader erstellen der einen ganzen Ordner auslesen tut und diesen dann samt allen Daten herunterladen tut, aber dazu sind meine Fähigkeiten leider nicht ausreichend.
    Nun habe ich mal ein bissel gebastelt und das ist rausgekommen.
    Mein Prob ist nun folgendes.
    Der Downloader hängt sich leider auf bzw. es kommt keine Rückmeldung, erst wenn der Download beendet ist kommt eine Fehlermeldung und der Downloader funktioniert wieder.
    Auch die Datei hat er heruntergeladen.

    Nun meine Frage an Alle:
    1: Wie kann ich das umgehen das der Downloader sich nicht mehr aufhängt.
    2: Wie kann ich eine Progressbar einbauen die auch den Fortschritt anzeigt?
    3: Ist es möglich statt eine .rar Datei auch einen ganzen Ordner herunterzuladen?
    4: Wie kann der Benutzer zb das Verzeichnis selber wählen, wo die heruntergeladene Datein bzw Datein reingeladen werden?

    Entschuldigt bitte 100000 mal, ich befasse mich erst seit etwa 6 Tagen damit, deswegen habe ich soviele Frage.
    MFG
    Herbert Witze

    VB.NET-Quellcode

    1. Imports System.Net
    2. Public Class Form1
    4. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    6. CheckForUpdate()
    8. End Sub
    10. Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    11. If (e.Button = Windows.Forms.MouseButtons.Left) Then
    12. Me.Capture = False
    13. Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))
    15. Else : End If
    16. End Sub
    18. Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs)
    19. PictureBox1.BackgroundImage = My.Resources.ohell
    20. End Sub
    22. Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs)
    23. PictureBox1.Parent = Me
    24. PictureBox1.BackgroundImage = Nothing
    25. End Sub
    27. Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
    28. PictureBox3.BackgroundImage = My.Resources.cooltext1846290262df
    29. End Sub
    31. Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
    32. PictureBox3.BackgroundImage = My.Resources.cooltext1846290262
    33. End Sub
    35. Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
    36. Application.Exit()
    37. End Sub
    39. Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
    40. Me.WindowState = FormWindowState.Minimized
    41. End Sub
    43. Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
    44. spende.Show()
    45. Me.Hide()
    46. End Sub
    48. Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox4.MouseEnter
    49. PictureBox4.BackgroundImage = My.Resources.cooltext1849029364klick
    50. End Sub
    52. Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox4.MouseLeave
    53. PictureBox4.BackgroundImage = My.Resources.cooltext1849029364
    54. End Sub
    56. Private Sub PictureBox4_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox4.Layout
    57. PictureBox4.BackgroundImage = My.Resources.cooltext1849029364
    58. End Sub
    60. Private Sub PictureBox6_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox6.MouseEnter
    61. PictureBox6.BackgroundImage = My.Resources.cooltext1849034924klick
    62. End Sub
    64. Private Sub PictureBox6_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox6.MouseLeave
    65. PictureBox6.BackgroundImage = My.Resources.cooltext1849034924
    66. End Sub
    68. Private Sub PictureBox6_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox6.Layout
    69. PictureBox6.BackgroundImage = My.Resources.cooltext1849034924
    70. End Sub
    72. Private Sub PictureBox5_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox5.Layout
    73. PictureBox5.BackgroundImage = My.Resources.cooltext1849031666
    74. End Sub
    76. Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
    77. PictureBox5.BackgroundImage = My.Resources.cooltext1849031666
    78. End Sub
    80. Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
    81. PictureBox5.BackgroundImage = My.Resources.cooltext1849031666klick
    82. End Sub
    84. Private Sub PictureBox3_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox3.Layout
    85. PictureBox3.BackgroundImage = My.Resources.cooltext1846290262
    86. End Sub
    88. Private Sub PictureBox2_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox2.Layout
    89. PictureBox2.BackgroundImage = My.Resources.cooltext1846295722
    90. End Sub
    92. Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
    93. PictureBox2.BackgroundImage = My.Resources.cooltext1846295722
    94. End Sub
    96. Private Sub PictureBox2_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter
    97. PictureBox2.BackgroundImage = My.Resources.cooltext1846295722df
    98. End Sub
    100. Private Sub PictureBox1_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox1.Layout
    101. PictureBox1.BackgroundImage = My.Resources.StaEp
    102. End Sub
    104. Private Sub PictureBox1_MouseLeave_1(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
    105. PictureBox1.BackgroundImage = My.Resources.StaEp
    106. End Sub
    108. Private Sub PictureBox1_MouseEnter_1(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
    109. PictureBox1.BackgroundImage = My.Resources.StaEpok
    110. End Sub
    112. Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
    113. hilfe.Show()
    114. Me.Hide()
    115. End Sub
    117. Private Sub Label1_Paint(sender As Object, e As PaintEventArgs) Handles Label1.Paint
    118. Dim web As New WebClient
    119. Dim News As String = web.DownloadString("www.xxxxx.com"") '<---- DEIN_FTP_SERVER_+PFAD
    120. Label1.Text = News
    121. End Sub
    123. Private Sub PictureBox7_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox7.MouseEnter
    124. PictureBox7.BackgroundImage = My.Resources.cooltext1849991977klick
    125. End Sub
    127. Private Sub PictureBox7_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox7.MouseLeave
    128. PictureBox7.BackgroundImage = My.Resources.cooltext1849991977
    129. End Sub
    131. Private Sub PictureBox7_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox7.Layout
    132. PictureBox7.BackgroundImage = My.Resources.cooltext1849991977
    133. End Sub
    135. Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
    136. info.Show()
    137. Me.Hide()
    138. End Sub
    140. Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
    141. Process.Start("www.xxxxx.com") '<---- DEINE_HOMEPAGE
    142. End Sub
    144. Public Sub CheckForUpdate()
    146. Process.Start("steam://rungameid/107410// -xxxxx1 -port=2302") '
    147. Application.Exit()
    148. End Sub
    150. Private Sub PictureBox8_Layout(sender As Object, e As LayoutEventArgs) Handles PictureBox8.Layout
    151. PictureBox8.BackgroundImage = My.Resources.StaAl
    152. End Sub
    154. Private Sub PictureBox8_MouseLeave_1(sender As Object, e As EventArgs) Handles PictureBox8.MouseLeave
    155. PictureBox8.BackgroundImage = My.Resources.StaAl
    156. End Sub
    158. Private Sub PictureBox8_MouseEnter_1(sender As Object, e As EventArgs) Handles PictureBox8.MouseEnter
    159. PictureBox8.BackgroundImage = My.Resources.StaAlok
    160. End Sub
    162. Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
    164. CheckForUpdatee()
    166. End Sub
    168. Public Sub CheckForUpdatee()
    170. Dim file As String = Application.StartupPath & "\xxxxx.com.rar" '<-- Hier wird der name der versions datei erstellt (wo sich der Launcher befindet, umbenennen möglich)
    171. Dim fileneu As String = Application.StartupPath & "\xxxxx.com.rar" '<-- Hier wird der name der Update datei erstellt (wo sich der Launcher befindet, umbenennen möglich)
    172. Dim MyVer As String = My.Application.Info.Version.ToString
    174. If My.Computer.FileSystem.FileExists(file) Then
    175. My.Computer.FileSystem.DeleteFile(file)
    176. End If
    177. If My.Computer.FileSystem.FileExists(fileneu) Then
    178. My.Computer.FileSystem.DeleteFile(fileneu)
    179. End If
    181. My.Computer.Network.DownloadFile("ftp://ftp.xxxxx.com/file.-", file) '<-- Hier wird auf deinem FTP Server die version abgefragt
    182. Dim lastver As String = My.Computer.FileSystem.ReadAllText(file)
    184. If Not MyVer = lastver Then
    186. MsgBox("Update verfügbar!")
    187. MsgBox("Achtung: Abbrechen des Update könnte zu Fehlern führen!")
    188. MsgBox("Starte NICHT das Spiel während des Update, dies führt zu Fehlern und kann eine Neuinstallation mit sich ziehen!")
    190. ' **** Falls Benötigt ****
    191. ' Ab hier wird das Update gestartet.
    192. ' Die Update/Download Variante musst du bestimmen/Schreiben da es viele verschiedene varianten gibt (Über FTP,Web Host, Root sonst was)
    194. Else
    195. Process.Start("steam://xxxxxxxxxxxxxxxxxx") '
    196. Application.Exit()
    197. End If
    198. End Sub
    200. Private Sub ProgressBar1_Click(sender As Object, e As EventArgs)
    202. End Sub
    204. Private Sub Label2_Click(sender As Object, e As EventArgs)
    206. End Sub
    208. Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
    210. End Sub
    212. Private Sub PictureBox9_Click_1(sender As Object, e As EventArgs) Handles PictureBox9.Click
    213. Process.Start("www.xxxxx.com"") '<---- DEINE_HOMEPAGE
    214. End Sub
    216. Private Sub Label2_Click_1(sender As Object, e As EventArgs)
    218. End Sub
    219. Private Sub PictureBox10_Click_1(sender As Object, e As EventArgs) Handles PictureBox10.Click
    220. Process.Start("https://www.xxxxx.com"") '<---- DEINE_HOMEPAGE
    221. End Sub
    222. Private Sub PictureBox11_Click_1(sender As Object, e As EventArgs) Handles PictureBox11.Click
    223. Process.Start("https://www.xxxxx.com"") '<---- DEINE_HOMEPAGE
    224. End Sub
    225. Private Sub PictureBox12_Click_1(sender As Object, e As EventArgs) Handles PictureBox12.Click
    226. Process.Start("https://www.xxxxx.com") '<---- DEINE_HOMEPAGE
    227. End Sub
    229. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    231. End Sub
    232. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Herbert Witze“ ()

    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    FTP ist ziemlich gefährlich und unsignierte Archive, die dann weiter behandelt werden, auch. Aber wenn Du Dir sicher bist, dass Du das so möchtest:
    Vermische nicht den My-Namespace mit den System.Net-Klassen, sondern nutze erstere nicht, sondern stattdessen einen WebClient oder WebRequest. Dann kannst Du asynchrone Methoden verwenden, die Events zur Verfügung stellen, mit denen Du auch den Fortschritt behandeln kannst. Noch besser wäre natürlich das TAP.

    Und bitte benenne Deine Controls richtig, so verlierst Du den Überblick.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ok Danke für die Info.. Da muss ich mich noch bissel belesen um zu verstehen was du meinst :( wie schon gesagt bin absoluter neuling :( aber mit Stolz ;)

    Kurze Frage. Ist das sowas hier? vbarchiv.net/tipps/tipp_1926.html
    hoffe ich darf hier sowas posten

    Beiträge zusammengefügt. ~Trade

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

    Ja, das nutzt den WebClient entsprechend.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ja das ist besser. Btw. der Code ist so wie er da oben steht nicht vernünftig wartbar, es sieht danach aus als würdest du dir eigene Buttons o.ä. mit Pictureboxen zusammenbasteln. Bau dir doch einfach ein eigenes Control, in dem du das selbst zeichnest (wenn nicht allzu kompliziert) oder du übergibst dem Control als Properties die einzelnen Bilder für die States. Das würde deinen Code um 3/4 reduzieren.

    Mal noch was anderes: Der VB-Syntaxhighlighter scheint wieder/immer noch Fehler zu produzieren.

    8-) faxe1008 8-)

    Habe schon länger nichts mehr mit VB.NET gemacht und grade keine IDE zur Hand, aber hier mal der Ansatz:

    Du erstellst ne Klasse die von Button erbt:

    VB.NET-Quellcode

    1. Public Class CustomButton
    2. Inherits Button
    4. Public Enum State
    5. Normal
    6. Hover
    7. Clicked
    8. End Enum
    10. Private currentState as State = State.Normal
    12. Public Property StateNormal as Image
    14. Public Property StateHover as Image
    16. Public Property StateClick as Image
    18. Protected Overrides Sub OnPaint(ByVal pEvent As PaintEventArgs)
    19. With pEvent.Graphics
    21. ' Hier Dinge wie Rahmen oder Text zeichnen
    23. Select Case currentState
    25. Case State.Normal
    26. .drawImage(dein_ressourcen_bild,x,y) 'Hier Position des Bildes einsetzen
    28. ' Für die übrigen States die Bilder zeichnen
    30. End Select
    32. End With
    33. End Sub
    35. Private Sub MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MouseDown
    36. currentState = State.Click
    37. End Sub
    39. Private Sub MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MouseUp
    40. currentState = State.Normal
    41. End Sub
    43. End Class


    So sieht das DIng grob aus. Wenn nicht alles auf Anhieb klappt, dann lese dich bei MSDN ein. Hier gibt es wirklich alles :D

    8-) faxe1008 8-)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „faxe1008“ ()

Facebook
Telefonspende