elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Codigo sobre mi duda anterior (crear server desde exe)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Codigo sobre mi duda anterior (crear server desde exe)  (Leído 3,525 veces)
fede_cp


Desconectado Desconectado

Mensajes: 527


"porque pensar nunca fue entender"


Ver Perfil WWW
Codigo sobre mi duda anterior (crear server desde exe)
« en: 8 Julio 2009, 03:22 am »

Bueno gente , postee hace muy poco mi duda sobre como hacer para que de un exe poniendo los datos en variables se impriman en el otro codigo (server) osea un edit server como hizo cobain, pero como estoy empezando estoy con algunos problemas

se trata de un form con tres textbox un command para que el archivo pruebas.exe cambie sus valores a otro tres text.

y los mas cómica no es eso sino que cuando llegan los datos el primer text llega un extraño MZ  :o y los otros dos en blanco, la verdad ni idea.

buen aca el code del primer form:

Código
  1. Private Sub Command1_Click()
  2. Open "C:\prueba.exe" For Binary As #1
  3. Seek (1), LOF(1) + 1
  4. Put #1, , a
  5. Put #1, , b
  6. Put #1, , c
  7. Close #1
  8. End Sub
  9.  
  10. Private Sub Form_Load()
  11. Dim a As String * 25
  12. Dim b As String * 25
  13. Dim c As String * 25
  14. a = Text1.Text
  15. b = Text2.Text
  16. c = Text3.Text
  17. End Sub

muy simple jajaj

 y ahora el prueba.exe

Código
  1. Private Sub Form_Load()
  2. Dim a As String * 25
  3. Dim b As String * 25
  4. Dim c As String * 25
  5. Dim d As String * 25
  6. Dim ap As String
  7. Dim bp As String
  8. Dim cp As String
  9. Open "C:\prueba.exe" For Binary As #1
  10. Get #1, , a
  11. Get #1, , b
  12. Get #1, , c
  13. Seek (1), LOF(1) - 74
  14. Close #1
  15. ap = Trim(a)
  16. bp = Trim(b)
  17. cp = Trim(c)
  18. Text1.Text = ap
  19. Text2.Text = bp
  20. Text3.Text = cp
  21. End Sub

tengan en cuenta que para mi es esto nuevo, igualmente busque bastante, pero postee la duda antes y no se no contestaron mucho.

gracias (post 100 ;D)


En línea

somos lo que hacemos para cambiar lo que somos

http://elhackerblog.blogspot.com el blog de elhacker.net!!
el_c0c0


Desconectado Desconectado

Mensajes: 307


Ver Perfil
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #1 en: 8 Julio 2009, 03:32 am »

... llega un extraño MZ  :o  ...

sabes que pasa, eso es la cabecera de los archivos ejecutables. si estas obteniendo eso es que estas leyendo la primera parte del archivo, y no la ultima.

proba con For Binary Access Read Write, asi funciona el LOF

saludos.


En línea

'-     coco
"Te voy a romper el orto"- Las hemorroides
fede_cp


Desconectado Desconectado

Mensajes: 527


"porque pensar nunca fue entender"


Ver Perfil WWW
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #2 en: 8 Julio 2009, 04:03 am »

No funciona con For Binary Access Read Write As, debe ser algo muy bobo seguro ejje

adios
En línea

somos lo que hacemos para cambiar lo que somos

http://elhackerblog.blogspot.com el blog de elhacker.net!!
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #3 en: 8 Julio 2009, 04:06 am »

No funciona con For Binary Access Read Write As, debe ser algo muy bobo seguro ejje

adios

no va el Read es..

Código
  1. Open App.Path & "\programatonto.exe" For Binary Access Write As #1

saludos.
En línea

fede_cp


Desconectado Desconectado

Mensajes: 527


"porque pensar nunca fue entender"


Ver Perfil WWW
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #4 en: 8 Julio 2009, 04:21 am »

Bueno probe con For Binary Access Write As #1 en los dos forms despues probe en uno For Binary Access read As #1 y en el otro For Binary Access Write As #1 y despues probe en los dos For Binary Access read As #1

de la forma de los dos For Binary Access Write As #1 me dice permission dennied en la linea Get #1, , a

me esta dando dolor de cabeza y no me quiero imaginar poniendolo en el troyano :(

adios y gracias por la paciencia
En línea

somos lo que hacemos para cambiar lo que somos

http://elhackerblog.blogspot.com el blog de elhacker.net!!
el_c0c0


Desconectado Desconectado

Mensajes: 307


Ver Perfil
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #5 en: 8 Julio 2009, 04:29 am »

Bueno probe con For Binary Access Write As #1 en los dos forms despues probe en uno For Binary Access read As #1 y en el otro For Binary Access Write As #1 y despues probe en los dos For Binary Access read As #1

de la forma de los dos For Binary Access Write As #1 me dice permission dennied en la linea Get #1, , a

me esta dando dolor de cabeza y no me quiero imaginar poniendolo en el troyano :(

adios y gracias por la paciencia

digo, a mi tambien me causo dolores de pinga esto.
podes usar la clase de cobein... o ver por lo menos como lee los datos. (usa una PropBag)

saludos
En línea

'-     coco
"Te voy a romper el orto"- Las hemorroides
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #6 en: 8 Julio 2009, 04:43 am »

Código
  1. Dim NFile As Integer, Datos As String
  2.  
  3. NFile = FreeFile
  4.  
  5. Open SrcFile For Binary As NFile
  6.    Get NFile, LOF(NFile) - 100, Datos ' Notese que aca se cogen la X cantidad de Caracteres al final del archivo.
  7. Close NFile
  8.  
  9. I = 1
  10.  
  11. a = Mid(Datos, I, I + 25): I = I + 25
  12. b = Mid(Datos, I, I + 25): I = I + 25
  13. c = Mid(Datos, I, I + 25): I = I + 25
  14. d = Mid(Datos, I, I + 25): I = I + 25
  15.  
  16. MsgBox a
  17. MsgBox b
  18. MsgBox c
  19. MsgBox d
« Última modificación: 8 Julio 2009, 05:02 am por BlackZeroX » En línea

The Dark Shadow is my passion.
fede_cp


Desconectado Desconectado

Mensajes: 527


"porque pensar nunca fue entender"


Ver Perfil WWW
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #7 en: 8 Julio 2009, 04:47 am »

blackzero, gracias por la ayuda pero los msgbox salen "en blanco", la verdad no se porque a mi no me funcionaaa, es mas segui un tutorial de por ahi al par de la letra :-[ ahora si 100 posts

adios y gracias
En línea

somos lo que hacemos para cambiar lo que somos

http://elhackerblog.blogspot.com el blog de elhacker.net!!
fede_cp


Desconectado Desconectado

Mensajes: 527


"porque pensar nunca fue entender"


Ver Perfil WWW
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #8 en: 9 Julio 2009, 02:56 am »

ayuda por favor, intente las cosas que postearon ym as y no funca nada  :-\


saludos
En línea

somos lo que hacemos para cambiar lo que somos

http://elhackerblog.blogspot.com el blog de elhacker.net!!
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Codigo sobre mi duda anterior (crear server desde exe)
« Respuesta #9 en: 11 Julio 2009, 04:37 am »

ayuda por favor, intente las cosas que postearon ym as y no funca nada  :-\


saludos

Perdona el codigo anterior no funciona almenos que la llenes con Espacion con Space()

Código
  1.  
  2. Option Explicit
  3.  
  4. Sub Main()
  5.    Dim Archivo As String
  6.    Archivo = App.Path & "\" & App.EXEName & ".exe"
  7.    If MsgBox("Escribir=>(Si) / Leer=>(No)", vbApplicationModal + vbYesNo, "Selecciona la opción deseada") = vbYes Then
  8.        If EscribirDatos(Archivo) Then MsgBox "Escrito en archivo con exito"
  9.    Else
  10.        MsgBox LeerConfig(Archivo)
  11.    End If
  12. End Sub
  13.  
  14. Function LeerConfig(Archivo As String) As String
  15.    On Error GoTo e:
  16.    Dim NFile As Integer
  17.    Dim DatosServer As String
  18.    Dim ByteI As Long
  19.  
  20.    NFile = FreeFile
  21.    Open Archivo For Binary As NFile
  22.        'Primero Leemos la longitud de los Datos de Configuración
  23.        ByteI = Val(LOF(NFile)) - 4 'El numero 4 es segun se espesifique en Format, es decir la longitud del texto predeterminado en Format()
  24.        DatosServer = Space(4) 'Hay que redimencionar la variable para obtener la longitud de configuración.¡!
  25.        Get NFile, ByteI + 1, DatosServer
  26.        ByteI = Val(LOF(NFile)) - 4 - Val(DatosServer)
  27.        DatosServer = Space(Val(DatosServer)) ' Redimencionamos para obtener ahora el Rango deseado
  28.        Get NFile, ByteI + 1, DatosServer 'Lo obtenemos
  29.        LeerConfig = DatosServer
  30.    Close NFile
  31.    Exit Function
  32. e:
  33.    LeerConfig = "Error:" & Err.Description
  34.    Err.Clear
  35. End Function
  36.  
  37. Function EscribirDatos(Archivo As String) As Boolean
  38.    On Error GoTo e:
  39.    Dim Datas As String
  40.    Dim NFile As Integer
  41.    NFile = FreeFile
  42.    Datas = InputBox("Datos Formato--->   IP:Puerto:TiempoReconección", "Configurador", "")
  43.    Datas = Datas + Format(Len(Datas), "000#") ' Segun sea este formato abajo se sustituye el numero 4 por otro valor segun la longitud.
  44.    Open Archivo For Binary As NFile
  45.        Seek (NFile), LOF(NFile) + 1 'Escribirmos al final del archivo
  46.        Put NFile, , Datas
  47.    Close NFile
  48.    EscribirDatos = True
  49.    Exit Function
  50. e:
  51.    EscribirDatos = False
  52.    Err.Clear
  53. End Function
  54.  
  55.  
« Última modificación: 11 Julio 2009, 04:47 am por BlackZeroX » En línea

The Dark Shadow is my passion.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines