Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
ZiG
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 421
[B] Updater-Source (Easy version)
Verfasst am: 18.06.2009, 12: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 Wink

gruß
DFJ
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: string, urldownloadtofile

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Visual Basic Download ? 1743 03.05.2011, 07:38
Keine neuen Beiträge Api Download in Prozent + Kb anzeige + Progrezzbar 1345 21.10.2007, 13:03
Keine neuen Beiträge Download 1359 30.08.2007, 15:45
Keine neuen Beiträge Download mit Internet Explorer Object 923 18.08.2008, 19:00
Keine neuen Beiträge Visual Basic 6 download 3701 26.05.2007, 11:51
 




[ Time: 0.1197s ][ Queries: 81 (0.0137s) ][ GZIP on - Debug on ]