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

[inmate]

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


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

[Code-C4]

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

[inmate]

ok geht natürlich auch ^^

[alexj]

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



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