Updater aus Ressourcen entpacken

mrwebber · 8. Juni 2013, 14:39

Hi,

ich packe einen Updater aus den Ressourcen. Dieser soll die eigentliche Applikation löschen, die neue laden und wieder starten.
Das Problem ist jetzt allerdings, dass ich keinen Zugriff zum Löschen der alten Applikation bekomme ...
Starte ich den entpackten Updater dann von Hand, klappt alles problemlos ...

Kann es sein, dass es daran liegt, dass der Updater ein Kindprozess der Applikation ist? Kann er dann die Applikation nicht löschen, obwohl diese beendet wurde?
Ich habe das Starten des Updaters mit Process.Start() sowie Shell() versucht. Beides mal das gleiche Phänomen ...

Bitte helft mir ... sowas ist echt hart für die Nerven

Edit by der_Kurt:
Gehört nicht zu den VB-Grundlagen
* Topic verschoben *

Gonger96 · 8. Juni 2013, 14:42

Vielleicht läuft der Prozess einfach noch. Versuch mal im Updater das Programm zu beenden und dann zu löschen. Was für ein Fehler kommt denn ?

mrwebber · 8. Juni 2013, 14:48

Ich lasse das Programm von selbst beenden, sowie vom Updater killen falls es noch da ist ...

EDIT: Fehler: Zugriff auf Pfad verweigert: "C:\usw\Applikation.exe"

enIking1998 · 8. Juni 2013, 14:51

Versuch's mal mit Admin-Rechten...

Mfg.eniking1998

mrwebber · 8. Juni 2013, 14:53

Hab ich auch, selber Mist ...
Ich möchte nochmal betonen, dass es von Hand problemlos klappt, auch ohne Adminrechte oder sonstiges ... soll heißen ich starte einfach den entpackten Updater von Hand und alles funzt wie es soll ...

Gonger96 · 8. Juni 2013, 14:59

Dann kann nur der Prozess noch laufen. Wie beendest du ihn im Updater ?

enIking1998 · 8. Juni 2013, 15:01

Überschreib es doch direkt...

Mfg.eniking1998

mrwebber · 8. Juni 2013, 15:07

Ich zeige euch mal beide Codes:

Applikation: (diese lädt ehrlich gesagt die neue Applikation runter, damit die Wartezeit verkleinert wird)

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Diagnostics 'Für Process
Public Class UpdateManager
Public Structure Referenzen 'Hier werden die Referenzen der Ordnung halber gespeichert
Dim refController As Controller
Dim refEncoder As Encoder
Dim refGUIMaster As GUIMaster
End Structure
Public refReferenzen As Referenzen 'In diesem Referenzen-Objekt werden die Referenzen vom Controller eingespeichert
Private sUpdaterDateiName As String = "Updater.exe"
Private sDateiNameUpdate As String = "Aktuell" 'Name der Datei, die als Update heruntergeladen wird. Sie wird vor der Nutzung wieder in "Runtime 2 Panamon.exe" umbenannt
Public Sub updateAngekommen(ByVal sVersion As String, ByVal sLink As String)
If sVersion <> Tools.sVersion Then 'Versionen sind ungleich, dh. neuere Version gibt es zum Download.
If ladeUpdateRunter(sLink) Then
entpackeUpdater()
starteUpdaterUndBeendeClient()
Else
'Das Update ist gescheitert, da der Download nicht funktioniert hat ...
End If
End If
End Sub
Public Sub checkObGeupdated()
If DateiZugriff.pruefeVorhanden(sUpdaterDateiName, False) Then 'Es wurde ein Update gemacht, da der Updater noch da ist
beendeUpdater()
loescheUpdater()
macheMeldungUpdateErfolgreichInstalliert()
End If
End Sub
Private Function ladeUpdateRunter(ByVal sLink As String) As Boolean
DateiZugriff.loescheDatei(sDateiNameUpdate, False)
Return DateiZugriff.ladeHerunter(sLink, sDateiNameUpdate, False)
End Function
Private Sub entpackeUpdater()
System.IO.File.WriteAllBytes(sUpdaterDateiName, My.Resources.runtime2panamonUpdater)
End Sub
Private Sub starteUpdaterUndBeendeClient()
Shell(My.Application.Info.DirectoryPath & "\" & sUpdaterDateiName)
refReferenzen.refController.runtimeBeenden()
End Sub
Private Sub beendeUpdater()
For Each p In Process.GetProcesses
If p.ProcessName = "Updater" Then
p.Kill()
End If
Next
End Sub
Private Sub loescheUpdater()
DateiZugriff.loescheDatei(sUpdaterDateiName, False)
End Sub
Private Sub macheMeldungUpdateErfolgreichInstalliert()
refReferenzen.refGUIMaster.zeigeTooltip(Tools.strSprachTexte.sUpdateInstalliertTitel, Tools.strSprachTexte.sUpdateInstalliertText)
End Sub
End Class

Updater: (Zeile 6 bzw 15 beendet den Client)

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Private sProgrammname As String = "Applikation"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Visible = False
Try
beendeClient()
loescheClient()
benenneDownloadUm()
starteNeuenClient()
Catch ex As Exception
MsgBox("UPDATE FEHLER:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Bitte teile diesen Fehler dem Entwickler-Team mit!", MsgBoxStyle.Critical)
End Try
Me.Close()
End Sub
Private Sub beendeClient()
System.Threading.Thread.Sleep(3000) '3 Sekunden warten, damit auf jeden Fall die Applikation normal beendet werden konnte
For Each p In Process.GetProcesses
If p.ProcessName = sProgrammname Then
p.Kill()
End If
Next
End Sub
Private Sub loescheClient()
My.Computer.FileSystem.DeleteFile(sProgrammname & ".exe")
End Sub
Private Sub benenneDownloadUm()
My.Computer.FileSystem.RenameFile("Aktuell", sProgrammname & ".exe")
End Sub
Private Sub starteNeuenClient()
Process.Start(sProgrammname & ".exe")
End Sub
End Class

EDIT: Vielleicht kommt der Fehler ja gar nicht beim Löschen, sondern beim Versuch, die Applikation zu killen?

Das klingt doch logsich, oder? Es ist ein Kindprozess und darf das deshalb nicht?
Wie könnte ich vorgehen, damit der Updater nicht von der Applikation aus gestart wird, sondern von Windows oder so was? Updater immer laufen lassen ist keine Option da das Programm z.B. auch von USB-Sticks aus laufen wird.

Gonger96 · 8. Juni 2013, 15:12

Ladt mal die Prozesse in ein Array per Process.GetProcessByName("Applikation"), oder ähnlich, und setz n Haltepunkt drauf. Wenn keine Prozesse drin sind und einer läuft wirst du den Namen falsch geschrieben haben.

mrwebber · 8. Juni 2013, 15:18

Es wird immer seltsamer. Jetzt habe vor und nach dem .kill() eine MsgBox gemacht und ... es ging einfach. Kann es sein dass das Kill() im Hintergrund noch Zeit braucht, bis die .exe wirklich gekillt ist, aber mein Programm (Updater) gleich weiter läuft. Durch die MsgBox vergeht die notwendige Zeit und alles funktioniert? Dann werde ich jetzt mal prüfen, ob die .exe weg ist bevor ich mit löschen und co. starte. Melde mich wieder.

Gonger96 · 8. Juni 2013, 15:20

.Kill sollte den Prozess sofort abwürgen

mrwebber · 8. Juni 2013, 15:23

Hm. Also jetzt hat es so funktioniert. Ob meine Erklärung jetzt zu 100% stimmt kann natürlich nicht sagen, aber kann ja sein dass kill() einfach Windows mitteilt, das Ding zu killen und mein Updater munter weiter läuft ...

Codeänderung im Updater:

VB.NET-Quellcode

Private Sub beendeClient()
System.Threading.Thread.Sleep(3000)
For Each p In Process.GetProcesses
If p.ProcessName = sProgrammname Then
p.Kill()
End If
Next
Dim bNochDa As Boolean = True
Do
bNochDa = False
For Each p In Process.GetProcesses
If p.ProcessName = sProgrammname Then
bNochDa = True
Exit For
End If
Next
System.Threading.Thread.Sleep(1000)
Loop Until bNochDa = False
End Sub

Gonger96 · 8. Juni 2013, 15:28

Process.WaitForExit wäre etwas kürzer^^

thefiloe · 8. Juni 2013, 15:29

Zur Info: Du solltest nicht die Kill() Methode verwenden, da dies das Selbe wie "Prozess beenden" ist und somit zu Datenverlust etc. führen kann. Beende den Prozess normal und warte mit process.WaitForExit() darauf, dass der Prozess beendet wird.

mrwebber · 8. Juni 2013, 15:33

Ich beende das Programm ja schon von der Applikation selbst aus normal. Dann lasse ich den Updater 3 s warten. So lange sollte die Applikation niemals zum Beenden brauchen. Danach lasse ich sie killen falls noch da.

Updater aus Ressourcen entpacken

Updater aus Ressourcen entpacken

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben