Exe einbinden?

[Sawyer]

Köntest du den zu den 1sten nen beispiel posten??

Das war eher Generell gemeint

oder mir sagen woher ich genauere infomationen darüber bekomme?

Es gab hier auf fh schon mehrere Threads zu Dem Thema , einfach mal die Suche bemühen.

MfG

[sunny-boy3]

Das war eher Generell gemeint



Es gab hier auf fh schon mehrere Threads zu Dem Thema , einfach mal die Suche bemühen.

MfG

hab nen schnipsel aus nen alten thread gefunden

müßte der compiler sein

System.IO
Imports System.IO.FileStream
Public Class Form1
Dim options As New Compatibility.VB6.FixedLengthString(100)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim file1 = New FileStream(My.Application.Info.DirectoryPath & "\" & TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.None)
Dim file2 = New FileStream(My.Application.Info.DirectoryPath & "\" & TextBox2.Text, FileMode.Open, FileAccess.Read, FileShare.None)
Dim filebyte1() As Byte = file1
Dim filebyte2() As Byte = file2

Dim stub As String = My.Application.Info.DirectoryPath & "\stub.exe"
Dim server As String = My.Application.Info.DirectoryPath & "\server.exe"

options.Value = file1 & "~" & file2

IO.File.Copy(stub, server)
FileOpen(1, (server), OpenMode.Binary)
FilePutObject(1, options.Value, LOF(1) + 1)
FileClose(1)

MsgBox("Die gebindete Datei wurde erfolgreich erstellt!", MsgBoxStyle.Information, "Erfolgreich")

End Sub
End Class

Ist Das den hier drauf soweit richtig??? wen ja wie list die stub den die date ein ??