Deja lo q ya has echo entonces asi intentan corregirte tu error.
Mira este:
Eso seria el Builder.exe, pero el Stub.exe q va siempre en el mismo directorio del Builder.exe es este:
Lo hice rapido una vez no me acuerdo si funcionaba pero fijate y compara.
Mira este:
Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dim stub As String
With CD
.DialogTitle = "Elija donde guardar.."
.Filter = "Archivos ejecutables (*.exe)|*.exe"
.ShowSave
End With
If CD.FileName <> vbNullString Then
Open App.Path & "\Stub.exe" For Binary As #1
stub = Space$(LOF(1))
Get #1, , stub
Close #1
Open CD.FileName For Binary As #2
Put #2, , stub
Put #2, , "·$%&/" & Text1.Text
Close #2
End If
End Sub
Eso seria el Builder.exe, pero el Stub.exe q va siempre en el mismo directorio del Builder.exe es este:
Código (vb) [Seleccionar]
Sub Main()
Dim my As String
Dim data() As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
my = Space$(LOF(1))
Get #1, , my
Close #1
data() = Split(my, "·$%&/")
' ahora data(1) contiene el string q se le paso del builder ( el text1.text)
MsgBox data(1)
End Sub
Lo hice rapido una vez no me acuerdo si funcionaba pero fijate y compara.