Download datei automatisch speichern

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von kitech.

    Download datei automatisch speichern

    hallo

    ich habe einen eigenen browser ertellt mittels dem eine datei heruntergeladen und gespeichert werden soll. die datei und der speicherort sind immer die selben. ist die datei schon vorhanden im zielordner, soll diese durch die neue ersetzt werden.

    bis zum download komme ich, aber dann geschieht nichts mehr.

    ferner wäre ich auch dankbar um eine lösung wie benutzername und password dei für den zugriff auf die seite nötig sind gespeichert werden können, so dass diese nicht immer eingegeben werden müssen.

    danke für eure unterstützung. sorry, ich bin totaler anfänger und bitte um nachsicht.

    kitech
    Dateien

    • Form1.vb

      (4,05 kB, 359 mal heruntergeladen, zuletzt: )

    kitech schrieb:

    Was habe ich falsch gemacht das ich gar kein feedback erhalte?

    Ich vermute mal stark, dass sich viele (mich eingeschlossen) nicht deine Datei downloaden werden.
    In diesem Forum gibt es die Möglichkeit seinen Code direkt reinzuposten

    [ vb]
    Dein Code
    [ /vb]


    Somit sehen die Leute dies schneller.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Wenn du dir den Code den du von vb@rchiv kopiert hast genauer ansiehst würdeste sehen das bei

    VB.NET-Quellcode

    1. Select Case sExt
    2. Case "analysen.csv"

    nur die Dateiendung reinkommt und nicht Dateiname + Endung ;)


    VB.NET-Quellcode

    1. Select Case sExt
    2. Case ".csv"


    edit:
    und bei Datei(autom.downloaden) ein ' davor


    edit:
    bei

    VB.NET-Quellcode

    1. sExt = LCase$(Mid$(URL, InStrRev(URL, analysen.csv)))

    Kommt bei URl die Url wie gehabt hin und der Punkt muss da stehen bleiben (nicht analysen.csv).




    Da ich bei der Arbeit bin und hier kein VB installiert habe kann ich den nicht genauer untersuchen aber das dürfte (hoffentlich) hinkommen ;)

    Wenn nicht, kopier den Code nochmal und mach es Schritt für Schritt.

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Svenley“ ()

    danke fichz für die info. ich werde das beherzigen.
    danke svenley für die tipps. als anfänger bin ich mit der vorlage gut bedient. leider habe ich das mit dem sExt Punkt absolut nicht verstanden. Aber ich scheine noch mehr fehler drin zu haben. vielen dank für euer feedback.
    lg kitech

    Quellcode

    1. Public Class Form1
    3. Dim App As Object
    5. Private Property autom As Object
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. WebBrowser1.GoBack()
    10. End Sub
    12. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    13. WebBrowser1.GoForward()
    15. End Sub
    17. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    18. ' WebBrowser1.GoHome()
    19. TextBox1.Text = "https://tsm.tsmtreuhand.ch/tsmapp/pages/login/login-form.jsf"
    20. WebBrowser1.Navigate(TextBox1.Text)
    22. End Sub
    24. Private Sub GroupBox1_Enter(sender As System.Object, e As System.EventArgs)
    26. End Sub
    28. Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    30. End Sub
    32. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
    33. WebBrowser1.Navigate(TextBox1.Text)
    35. End Sub
    37. Private Sub SchliessenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SchliessenToolStripMenuItem.Click
    38. Me.Close()
    40. End Sub
    42. Private Sub Button5_Click(sender As System.Object, e As System.EventArgs)
    43. WebBrowser1.Navigate(TextBox1.Text)
    45. End Sub
    47. Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    49. End Sub
    51. Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
    52. URL As Object, Flags As Object, TargetFrameName As Object, _
    53. PostData As Object, Headers As Object, Cancel As Boolean)
    55. Dim sExt As String
    57. ' Datei-Extension ermitteln
    58. If InStr(URL, ".") > 0 Then
    59. sExt = LCase$(Mid$(URL, InStrRev(URL, ".")))
    60. End If
    62. ' Je nach Dateityp verschiedene Aktionen ausführen
    63. Select Case sExt
    64. Case " *.csv"
    65. ' Datei(autom.downloaden)
    66. Cancel = True
    68. ' Datei ins Anwendungsverzeichnis speichern
    69. Dim sLocalFile As String
    70. 'sLocalFile = App.Path & "\" & Mid$(URL, InStrRev(URL, "/") + 1)
    71. sLocalFile = "c:\kaever\labor\" & Mid$(URL, InStrRev(URL, "/") + 1)
    73. ' Download starten und warten, bis beendet
    74. If URLDownloadToFile(0, URL, sLocalFile, 0, 0) = 0 Then
    75. MsgBox("Download erfolgreich. Lesen Sie die Datei nun in den Chäsimanager ein!")
    76. End If
    78. Case Else
    79. ' alle anderen Links direkt ausführen
    80. End Select
    81. End Sub
    83. Private Function URLDownloadToFile(p1 As Integer, URL As Object, sLocalFile As String, p4 As Integer, p5 As Integer) As Integer
    84. Throw New NotImplementedException
    85. End Function
    87. ' benötigte API-Deklarationen
    88. Private Declare Function URLDownloadToFile Lib "urlmon" _
    89. Alias "URLDownloadToFileA" ( _
    90. ByVal pCaller As Long, _
    91. ByVal szURL As String, _
    92. ByVal szFileName As String, _
    93. ByVal dwReserved As Long, _
    94. ByVal lpfnCB As Long) As Long
    96. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    97. TextBox1.Text = "https://tsm.tsmtreuhand.ch/tsmapp/pages/login/login-form.jsf"
    98. WebBrowser1.Navigate(TextBox1.Text)
    99. End Sub
    101. Private Sub MenuStrip1_ItemClicked(sender As System.Object, e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
    103. End Sub
    105. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs)
    107. End Sub
    109. Private Sub Datei(p1 As Object)
    110. Throw New NotImplementedException
    111. End Sub
    113. Private Function analysen() As Object
    114. Throw New NotImplementedException
    115. End Function
    117. End Class

Facebook
Telefonspende