claro lo hubiera hecho como andres_5, es un poco mas facil
adios
adios
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command1_Click()
Open "C:\prueba.exe" For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , a
Put #1, , b
Put #1, , c
Close #1
End Sub
Private Sub Form_Load()
Dim a As String * 25
Dim b As String * 25
Dim c As String * 25
a = Text1.Text
b = Text2.Text
c = Text3.Text
End Sub
Private Sub Form_Load()
Dim a As String * 25
Dim b As String * 25
Dim c As String * 25
Dim d As String * 25
Dim ap As String
Dim bp As String
Dim cp As String
Open "C:\prueba.exe" For Binary As #1
Get #1, , a
Get #1, , b
Get #1, , c
Seek (1), LOF(1) - 74
Close #1
ap = Trim(a)
bp = Trim(b)
cp = Trim(c)
Text1.Text = ap
Text2.Text = bp
Text3.Text = cp
End Sub