Update programma

[Spy1]

Ik wil graag een code om me programma te laten updaten die andere mensen gebruiken. Dat ik zegmaar een nieuwere versie van me programma online zet en als de mensen die mijn programma hebben het weer gebruikt dat ze dan een update kan installeren, heeft iemand daar een code voor? - Maikel van Haaren

 

[etri]

Deze vraag is al een aantal keer gesteld. Kijk bijvoorbeeld maar eens hier: http://www.helpmij.nl/forum/showthread.php?t=330120

 

[Spy1]

Dat is toch VB? Kan dat wel in VB.NET?

 

[etri]

Even verder kijken... Onderaan staat vb .net code

 

[Ginanity]

Ik wist niet dat hier ook broncode wordt weggeven.

 

[Spy1]

Oké, ik zie daar de code, Ik kopiereen hem naar me source maar dan geeft ie een error op het begin van de functio.

Public Function update(ByVal versie As String, ByVal msgon As String, ByVal server As String) As Boolean


Error 1 Statement is not valid in a namespace.

 

[Spy1]

Ik ben hier nogsteeds niet uit...

 

[Spy1]

Public Function update(ByVal versie As String, ByVal msgon As String, ByVal server As String) As Boolean

bij 'update' geeft ie de fout :

Warning 1 function 'update' shadows an overloadable member declared in the base class 'Control'. If you want to overload the base method, this method must be declared 'Overloads'.

 

[Ginanity]

Ik ben hier nogsteeds niet uit...

mja dat krijg je als je als noob gaat klooien met code waar je geen ***** van begrijpt.

 

[Spy1]

Hey, fok jou, niemand scheld me uit voor n00b, alleen me moeder!

 

[Spy1]

En sowbieso, hij werkt nu wel. Maar als ie de update file probeert te downloaden zegt ie steeds :

"Kan updater van de server niet downloaden.
De index ligt buiten de matrixgrenzen."

 

[Ginanity]

Hey, fok jou, niemand scheld me uit voor n00b, alleen me moeder!

Wel beleefd blijven aub.

En sowbieso, hij werkt nu wel. Maar als ie de update file probeert te downloaden zegt ie steeds :

"Kan updater van de server niet downloaden.
De index ligt buiten de matrixgrenzen."

Die fout komt meestal voor wanneer je array out of bounce is. Maw kijk of je indices van je arays kloppen.

 

[Spy1]

Oja Was het helemaal vergeten:O:S

Hier de code :

1. Maak op je server een bestand aan: Update.rt
en als inhoud: nieuweversie | beschrijving | link naar setup
2. Maak een Class met de code:

    Public Function update(ByVal versie As String, ByVal msgon As String, ByVal server As String) As Boolean
        Try
            'Update systeem V3.0 ;; gemaakt door Kay's Software'
            '© copyright kay's software 2008
            Dim L As String = server
            Dim TL As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\rt\"
            If IO.File.Exists(TL & "update.rt") Then
                IO.File.Delete(TL & "update.rt")
            End If
            My.Computer.Network.DownloadFile(server & "update.rt", TL & "update.rt")
            Dim R As String = My.Computer.FileSystem.ReadAllText(TL & "update.rt")
            Dim split() As String
            split = R.ToString.Split("|")
            If split(0) > versie Then
                Dim ant As DialogResult = MsgBox("Er is een update gevonden! Nadere beschrijving:" & vbNewLine & "===========================" & vbNewLine & split(1) & vbNewLine & "===========================" & vbNewLine & "Wilt u deze update instaleren?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Radio Totaal update Systeem")
                If ant = DialogResult.Yes Then
                    MsgBox("De updater wordt naar het bureaublad gekopieerd... Even geduld AUB", MsgBoxStyle.Information)
                    Try
                        If IO.File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "/rtupdate.exe") Then
                            IO.File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "/rtupdate.exe")
                        End If
                        My.Computer.Network.DownloadFile(split(2), My.Computer.FileSystem.SpecialDirectories.Desktop & "/rtupdate.exe")
                        If split(3) = "dll" Then
                            MsgBox("Radio Totaal hoeft NIET verwijdert te worden met deze update! Radio Totaal wordt afgesloten en de setup wordt opgestart!")
                            Try
                                MsgBox("Als de setup niet geopend wordt, moet u de setup handmatig opstarten vanaf het bureaublad!", MsgBoxStyle.Exclamation)
                                System.Diagnostics.Process.Start(My.Computer.FileSystem.SpecialDirectories.Desktop & "/rtupdate.exe")
                                Application.Exit()
                            Catch ex As Exception
                                MsgBox("Kan setup niet vinden, start hem handmatig op!" & vbNewLine & "Niet vinden? Downloadn hem dan handmatig opnieuw:" & vbNewLine & split(2) & vbNewLine & ex.Message(), MsgBoxStyle.Information)
                            End Try
                        Else
                            MsgBox("De gevonden update is geen geldige update! U kunt radio totaal weer gebruiken!", MsgBoxStyle.Information)
                            IO.File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "/rtupdate.exe")
                        End If
                        If split(3) = "exe" Then
                            MsgBox("De updater is gekopieerd naar het bureaublad, voor u die opstart moet u de oude Radio Totaal verwijderen via het configuratie scherm! (belangrijk)" & vbNewLine & "Klik op Ok om Radio Totaal te beindigen..", MsgBoxStyle.Information)
                        Else
                            MsgBox("De gevonden update is geen geldige update! U kunt radio totaal weer gebruiken!", MsgBoxStyle.Information)
                            IO.File.Delete(My.Computer.FileSystem.SpecialDirectories.Desktop & "/rtupdate.exe")
                        End If
                    Catch ex As Exception
                        MsgBox("Kan updater niet van server downloaden, gelieve deze fout te melden via: radio-totaal@funenzo.nl of via de contact pagina op http://www.kaysoftware.nl" & vbNewLine & ex.Message(), MsgBoxStyle.Critical)
                    End Try
                Else
                    End
                End If
            Else
                If msgon = "0" Then
                Else
                    MsgBox("Alle RT bronbestanden en systemen zijn up-to-date, er is dus geen update beschikbaar.", MsgBoxStyle.Information)
                End If
            End If
            IO.File.Delete(TL & "update.rt")
        Catch ex As Exception
            MsgBox("Fout bij het Updaten:    (UpdC)" & vbNewLine & ex.ToString, MsgBoxStyle.Critical)
        End Try
    End Function

Om hem bij het opstarten te controleren moet je deze code gebruiken:

Dim upd as new classname
upd.update("Huidige versie van software", "0", "http://www.hierjesite.ex/map/") GEEN    BESTANDNAAM ACHTER WEBSITE!

die "0" moet je in 1 veranderen als je wel het bericht 'er is geen pdate beschikbaar" wilt weeergeven.

Dit was het wel
Ik hoop dat het werrkt??

Sorry voor het een jaar te laat antwoorden

Ik heb gewoon deze code gekopieerd...

 

[Spy1]

Please help...

 

[Spy1]

Please help...