|
| Autor |
Nachricht |
ZiG
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 421
|
[B] Updater-Source (Easy version)
Verfasst am: 18.06.2009, 13:01 |
|
|
Autor: DFJ
hi, da ich in letzen tag lange weile hatte habe ich mal ein easy updater geschrieben .
| Code: | | Dim versioninfo As String<br />Public versionneu As String<br />Dim Ftpadresse As String<br /><br /><br />Private Declare Function URLDownloadToFile Lib "urlmon" Alias _<br />"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _<br />szFileName As String, ByVal dwReserved As Long, ByVal ipfnCB As Long) As Long<br /><br />Private Sub Form_Load()<br /><br />pl_version.Text = App.Major & "." & App.Minor & "." _<br />' zeig die version an z.b 1.0 , <br />pl_download.Visible = False<br /><br />End Sub<br /><br /><br />Private Sub pl_download_Click()<br /><br />Returnvalue = URLDownloadToFile(0, Ftpadresse, "Tut-Uploader.exe", 0, 0)<br />MsgBox ("Update erfolgreich , Starten sie das Programm neu")<br /><br />End Sub<br /><br /><br />Private Sub pl_updater_Click()<br /><br />Returnvalue = URLDownloadToFile(0, "....versionnew.txt", "versionnew.txt", 0, 0)<br /><br />' pfad ein geben für download und speicher ort<br />Open "versionnnew.txt" For Input As #1<br />Line Input #1, versionneu<br />Line Input #1, Ftpadresse<br />Close #1<br /><br />pl_neueversion.Text = versionneu<br /><br />If pl_neueversion.Text = pl_version.Text Then<br />MsgBox (" Kein neuere Version , verfügbar ")<br />pl_download.Visible = False<br />Else<br />MsgBox ("Neue Version verfügbar , klicken Sie auf Download")<br />pl_download.Visible = True<br />End If<br /><br />End Sub |
Jor sollte klar sien ist kein schwerer code 
gruß
DFJ |
|
| |
|
 |
|
|
Registrieren
Login
