Tema destacado: Recuperar cuenta de Google, GMail, Youtube
 Autor
|
Tema: [SOLUCIONADO] Server Builder VB6 (Leído 1,596 veces)
|
TinchoHack
 Desconectado
Mensajes: 12
|
Necesito ayuda con esto estuve intentando mas de 2 meses pero no puedo lograr el exe con la informacion de otro no se si entienden aver lo que quiero hacer yo es un programa que al tocar un boton del form1 se cree un exe con la informacion del text1.text porfavor necesito ayuda ! no me llego a dar cuenta a donde esta el error ! gracias espero que me hayan entendido.
|
|
|
|
« Última modificación: 22 Abril 2011, 21:38 por TinchoHack »
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Deja lo q ya has echo entonces asi intentan corregirte tu error. Mira este: 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: 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.
|
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
|
|
|
|
|
En línea
|
|
|
|
|
Seritx
|
Puedes crear el server a partir de un recurso o a partir del EOF  |
|
|
|
|
En línea
|
|
|
|
TinchoHack
Desconectado
Mensajes: 12
|
Muchisimas gracias por las respuestas  Amo este foro |
|
|
|
|
En línea
|
|
|
|
TinchoHack
Desconectado
Mensajes: 12
|
Mira estos son los codigos: BUILDER: Option Explicit
Private Sub command1_click()
Dim code As String
code = txtCode.Text
FileCopy App.Path & "\stub.exe", App.Path & "\server.exe" 'copiamos el stub para no escribir sobre el propio stub que debe estar limpio para la proxima vez
Open App.Path & "\server.exe" For Binary As 1 'abrimos el stub
Put #1, LOF(1) + 1, code 'al final, esdecir, al tamaño más uno (logicamente) escribimos la variable textt
Close #1 'cerramos el fichero
End Sub
STUB: Option Explicit
Private Sub form_load()
Dim code As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As 1 'nos autoleemos
Get #1, LOF(1), code 'nos vamos al final del stub, es decir la longuitud total ahora menos lo que hemos puesto menos uno (logicamente), y estando ahi leemos la variable textt que tendrá muchos espacios
Close #1
MsgBox "escribiste: " & "code", vbInformation, "Lo logre"
End Sub 'server terminado
|
|
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
No entiendo en algunas cosas q te complicas, no es mas facil el codigo q te deje?
|
|
|
|
|
En línea
|
|
|
|
TinchoHack
Desconectado
Mensajes: 12
|
Deja lo q ya has echo entonces asi intentan corregirte tu error. Mira este: 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: 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. Este crea el exe al guardarlo lo guarda pero al ejecutarlo se abre el stub no entiendo 
|
|
|
|
|
En línea
|
|
|
|
TinchoHack
Desconectado
Mensajes: 12
|
No entiendo en algunas cosas q te complicas, no es mas facil el codigo q te deje?
Exacto pero como ya te dije el exe que guarda es igual al stub no logro entenderlo. Me pasas el msn y hablamos por ahi ?
|
|
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Ya quedo solucionado, dentro del main no andaba pero dentro de formload si, esq nunca compile ese codigo lo puse al vuelo
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
.
Otra cosa que se puede hacer es almacenar una variable Dummy y editar dicho Offset con la función Open pero antes deberán saber cual es el offset Dummy esta técnica la uso para mi Administrador Remoto...
Dulces Lunas!¡.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Edit Server ,Server Builder vb.Net
.NET
|
Robokop
|
3
|
2,804
|
25 Junio 2007, 22:13
por surfrio
|
|
|
|
No funciona el server. Solucionado!!
Análisis y Diseño de Malware
|
KHio
|
4
|
1,108
|
8 Enero 2007, 14:53
por YaTaMaS
|
|
|
|
[Duda]Enviar y Recibir archivos en segundo plano[Threads-Solucionado(Builder)]
Programación C/C++
|
sulrun
|
7
|
1,083
|
30 Abril 2007, 23:26
por Ragnarok
|
|
|
|
Problema con Server Builder en VB.net y C++
Programación General
|
Kasi
|
8
|
1,761
|
17 Septiembre 2009, 22:41
por Kasi
|
|
|
[SOLUCIONADO]Agregar registro a sql server
Bases de Datos
|
diego_lp
|
6
|
3,754
|
12 Septiembre 2009, 21:04
por diego_lp
|
 |
