Visual Basic Forum

lappen_ · Newbie Anmeldedatum: 05.09.2007 Beiträge: 18

Hey!

Habe wieder ein Problem :/
Ich möchte im Prinzip eine normale executable Datei an eine andere
anhängen,sodass sie noch verwendet werden kann (wieder in eine Datei geschrieben).
So stell ich mir das vor:
Man klickt in einem Builder auf einen Button -> eine Datei (auch in vb6 gecoded) wird geöffnet -> eine nicht in vb6 gecodete beliebige datei wird in diese datei gepackt -> beim ausführen der in vb6 gecodedeten zweiten datei wird diese angehängte datei wieder in eine neue datei geschrieben,sodass man die wieder verwenden kann.
Hoffe ihr könnt mir helfen und vielen Dank im vorraus Smile

_________________

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Binder Tutorial gibts in der Texte und Ebooks section.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

lappen_ · Newbie Anmeldedatum: 05.09.2007 Beiträge: 18

Bekomme das irgendwie mit einer Datei nichtmal hin bin total am verzweifeln ...
habe mir auch schon den Bindersource von Hamtaro angeschaut aber
bei der stub blicke ich das auchnicht und will kein copy paste kram machen!
Bekomme das mit dem splitten der einen Datei nicht hin

Hamtaro_ · Verfasst am: 06.10.2007, 16:37

wenn es nur um Eine Angehänte datei gehen soll, dann häng diese Datei einfach tutto completto an den Stub Dran und als Trennzeichen verwendest du das hier:⌂
ALT + 127, das kam bei mir noch in keiner EXE vor.
Dann liest du die exe ab dieser Stelle ein, speicherst sie in einer temporären Datei und führst die dann aus!
_________________

Wie findet ihr meine Sig?

lappen_ · Newbie Anmeldedatum: 05.09.2007 Beiträge: 18

oha das ist echt zu viel für mich... builder hab ich ja nun auch schon öfter verwendet aber ich bekomm das einfach nicht hin! mein momentaner code:

Builder:
[vb:1:129f72342c]Private Sub Command1_Click()
Dim buffer As String
Dim file As String

file = buffer & "¦"

Open "C:\stub.exe" For Binary As #1
Open Text1.Text For Binary As #2
buffer = Space(LOF(1))
Get #2, , buffer
Put #1, LOF(1) + 1, file

Close #2
Close #1

End Sub[/vb:1:129f72342c]

Stub:
[vb:1:129f72342c]Dim file As String
Dim cmd() As String
Dim file2 As String

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Open "C:\fertig.exe" For Binary As #2

Get #1, , file

cmd() = Split(file, "¦")

file2 = cmd(0)

Put #2, , file2

Close #2
Close #1

End Sub[/vb:1:129f72342c]

The-God-of-all_ · Verfasst am: 06.10.2007, 19:01

Ich glaube da sind ein paar kleine Fehler drinnen. Ein Fehler ist glaube ich file2 = cmd(0) weil die Angehängte Datei ja die zweite Datei ist und nicht die erste. Eine weitere Frage ist wie die Stub in den Buffer kommt.

Builder:

[vb:1:5dbb563370]Private Sub Command1_Click()
Dim buffer As String
Dim file As String

'hier die stub einladen (in die Variable buffer)

file = buffer & "¦"

Open "C:\stub.exe" For Binary As #1
Open Text1.Text For Binary As #2
buffer = Space(LOF(1))
Get #2, , buffer
file = file & buffer
Put #1, , file

Close #2
Close #1

End Sub[/vb:1:5dbb563370]

Stub:

[vb:1:5dbb563370]Dim file As String
Dim cmd() As String
Dim file2 As String

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Open "C:\fertig.exe" For Binary As #2

Get #1, , file

cmd() = Split(file, "¦")

if UBound(cmd) <> 1 Then
'es ist ein Fehler aufgetreten
exit sub
end if

file2 = cmd(1)

Put #2, , file2

Close #2
Close #1

End Sub[/vb:1:5dbb563370]
_________________

lappen_ · Newbie Anmeldedatum: 05.09.2007 Beiträge: 18

Edit:

Hat sich erledigt! Denkfehler drin gehabt^^