[VisualBasic] updatemeldung

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von bacardi, 23. Dezember 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 23. Dezember 2006
    updatemeldung

    hallo,

    erstmal einen schönen guten morgen :]

    ich bin halt anfänger und wollte wissen, ob man mit visual basic eine updatemeldung zeigen kann, wenn eine neue version gibt.

    wenn es möglich ist, dann wäre auch eine anleitung super :)

    ps: ich habe die SuFu benutzt und noch gegooglet aber nichts gefunden :(

    mit freundlichen grüßen
    bacardi
     

  2. Anzeige
    Dealz: stark reduzierte Angebote finden.
  3. #2 23. Dezember 2006
    AW: updatemeldung

    Ja ist ganz einfach du brachst nur nen webspace und ne php datei die dir ne 1 oder null zurückgibt

    Code:
    Private Function WebDownload(URL As String) As String
     Dim targetFile As String
     Dim hFile As Long
     On Error Resume Next
     'Datei aus Cache leeren
     Call DeleteUrlCacheEntry(URL)
     'temporärer Dateiname auf der Festplatte
     targetFile = App.Path
     If Right(targetFile, 1) <> "\" Then targetFile = targetFile & "\"
     targetFile = targetFile & "download.tmp"
     If Dir(targetFile) <> "" Then Kill targetFile
     'Download staren
     If DownloadFile(URL, targetFile) Then
     hFile = FreeFile
     Open targetFile For Input As #hFile
     WebDownload = Input$(LOF(hFile), hFile)
     Close #hFile
     Kill targetFile
     Else
     WebDownload = "Error"
     End If
     If Err.Number <> 0 Then WebDownload = "Error"
     End Function
    ^^ das ist das die Dekleration und so benutze das dann z.b. :

    Code:
     Dim tmp As String
     tmp = WebDownload("http://knusperkeks.kn.ohost.de/update.php")
     If tmp <> "0.9.9.6" Then
     MsgBox "Neue Version verfügbar! Bitte Aktualisieren!"
     End If
    in dem bsp gibt er mir denn die aktuellste versionsnummer meines programmes wieder und wenn die benutzer ne ältere hat dann kommt halt ne msgbox

    Knusperkeks
     
  4. #3 23. Dezember 2006
  5. #4 23. Dezember 2006
    AW: updatemeldung

    viel zu umständlich...

    das was knusper geschrieben hat reicht vollkommen
    Code:
     Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias _
     "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
    
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
     "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
     ByVal szFileName As String, ByVal dwReserved As Long, _
     ByVal lpfnCB As Long) As Long
    Private Const ERROR_SUCCESS As Long = 0
    Private Function WebDownload(URL As String) As String
     Dim targetFile As String
     Dim hFile As Long
     On Error Resume Next
     'Datei aus Cache leeren
     Call DeleteUrlCacheEntry(URL)
     'temporärer Dateiname auf der Festplatte
     targetFile = App.Path
     If Right(targetFile, 1) <> "\" Then targetFile = targetFile & "\"
     targetFile = targetFile & "download.tmp"
     If Dir(targetFile) <> "" Then Kill targetFile
     'Download staren
     If DownloadFile(URL, targetFile) Then
     hFile = FreeFile
     Open targetFile For Input As #hFile
     WebDownload = Input$(LOF(hFile), hFile)
     Close #hFile
     Kill targetFile
     Else
     WebDownload = "Error"
     End If
     If Err.Number <> 0 Then WebDownload = "Error"
     End Function
    
    
    private sub command1_click
     Dim tmp As String
     tmp = WebDownload("http://server.de/dateiversion.txt")
     if tmp = "Error" then 
     msgbox "Bitte überprüfen Sie ihre Internetverbindung
     exit sub
     end if
     If tmp <> "1.0" Then
     MsgBox "Neue Version verfügbar! Bitte Aktualisieren!"
     End If
    end sub
     
  6. #5 23. Dezember 2006
    AW: updatemeldung

    knusper hat aber wieder mal die hälfte vergessen :(

    Code:
     Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias _
     "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
    
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
     "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
     ByVal szFileName As String, ByVal dwReserved As Long, _
     ByVal lpfnCB As Long) As Long
    Private Const ERROR_SUCCESS As Long = 0
    
     Private Function DownloadFile(ByVal sURL As String, _
     ByVal sLocalFile As String) As Boolean
     Dim lngRetVal As Long
     DownloadFile = URLDownloadToFile(0&, sURL, _
     sLocalFile, 0&, 0&) = ERROR_SUCCESS
     End Function
     
  7. #6 23. Dezember 2006
    AW: updatemeldung

    ok danke jungs hat sich erledigt !!

    ~closed~
     

  8. Videos zum Thema
Die Seite wird geladen...