[vb.net]-ressource drop + execute(scr)

einfacher code wie man eine .exe , die man als ressource hinzugefügt hat im momentanen pfad droppt und ausführt.

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim scanner() As Byte = My.Resources.scanner  'hinzugefügte Ressource Datei

        FileOpen(1, (My.Application.Info.DirectoryPath & "\scanner.exe"), OpenMode.Binary)                               
        FilePut(1, My.Resources.scanner)  'file wird erstellt und eigelesen
        FileClose(1)

        System.Threading.Thread.Sleep(2000) 'wir warten 2 sekunden bis die datei erfolgreich gedroppt wurde.

        Process.Start("scanner.exe") 'und starten die gedroppte datei

    End Sub
End Class

---

mfG

anstadt 2 sec zu warten kann man auf die original zeit warten :
application.doEvents()

ok geht natürlich auch ^^

Das ist auch sehr Uneffektiv und du nützt nicht die richtigen .Net Klassen sondern die Compability von VB6(langsamer) so geht es einfacher:

Code:

---

IO.File.WriteAllBytes("PFAD", My.Resources.scanner)

---