Modificar .RES desde Builder

[illuminat3d]

Bueno esto ya lo pedi antes en el Fake MesSage pero no entendi muy bien a SetH ahora por ejempl lo que hice fue crear el servidor a .exe luego lo pase a RES desde el VB y agregue el REs al Builder. Al darle a Crear server puse esto :

Dim File() As Byte
File = LoadResData(101, "CUSTOM")
Open "Server.exe" For Binary As #1
    Put #1, , File
Close #1

En el Servidor de antes que lo que quiero cambiar seria esto :

WB.Navigate (RutaWeb & "?value=" & Text1.Text)

Modificar el RutaWeb por un txt del builder..
Haber si me explique

Saludos y gracias de ante mano!

[illuminat3d]

Nadie me hecha una manoO? 

Saludos!..

[& eDu &]

Creo que seria mejor utilizar el modulo de COBEIN.

Generic Server Editor Class

Si necesitas ayuda postea

[illuminat3d]

Bueno no se como ponerlo.. puse el modulo que me pasastes Moja =D

y psue dos opciones :

Dim File() As Byte
File = LoadResData(101, "CUSTOM")
Open "Server.exe" For Binary As #1
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    Debug.Print c.ReadProp("RutaWeb")
Close #1

y la otra :

    c.ExeFile "Server.exe"
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    c.ExeFile "Server.exe"
    Debug.Print c.ReadProp("RutaWeb")

Aunque aui necesitaria que este el Server.exe al lado.. y me gustaria que se genere desde el Builder

Saludos y gracias por conetstas!

[& eDu &]

Bueno no se como ponerlo.. puse el modulo que me pasastes Moja =D

y psue dos opciones :

Dim File() As Byte
File = LoadResData(101, "CUSTOM")
Open "Server.exe" For Binary As #1
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    Debug.Print c.ReadProp("RutaWeb")
Close #1

y la otra :

    c.ExeFile "Server.exe"
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    c.ExeFile "Server.exe"
    Debug.Print c.ReadProp("RutaWeb")

Aunque aui necesitaria que este el Server.exe al lado.. y me gustaria que se genere desde el Builder

Saludos y gracias por conetstas!

Mira olvidate de todo.
El modulo que te pase ponlo en un modulo de clase que tiene que ser llamado cEditSvr

Ahora en donde creas el builder, es decir cuando apretas a un botton para escribir en el server pon:

Código (vb) [Seleccionar] Expandir

Dim c As New cEditSvr
    c.ExeFile "ruta del servidor"
    c.WriteProp "RutaWeb", Text1.text
    c.WriteData "ruta del servidor"

Lo de arriba en el "Cliente"
y ahora añade el modulo de clase en el servidor mismo nombre y pon esto en la propiedad load del formulario

Código (vb) [Seleccionar] Expandir

Dim c As New cEditSvr
    c.ExeFile app.path & "\" & app.exename & ".exe"
    Debug.Print c.ReadProp("RutaWeb")

Deberia ir

[aaronduran2]

Este es un post donde ErMoja tenía un problema con el módulo de clase de cobein, y aparece como utilizarlo:

http://foro.elhacker.net/programacion_vb/problema_con_el_codigo_de_cobein-t230535.0.html

Saludos.

[illuminat3d]

Bueno no se como ponerlo.. puse el modulo que me pasastes Moja =D

y psue dos opciones :

Dim File() As Byte
File = LoadResData(101, "CUSTOM")
Open "Server.exe" For Binary As #1
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    Debug.Print c.ReadProp("RutaWeb")
Close #1

y la otra :

    c.ExeFile "Server.exe"
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    c.ExeFile "Server.exe"
    Debug.Print c.ReadProp("RutaWeb")

Aunque aui necesitaria que este el Server.exe al lado.. y me gustaria que se genere desde el Builder

Saludos y gracias por conetstas!

Mira olvidate de todo.
El modulo que te pase ponlo en un modulo de clase que tiene que ser llamado cEditSvr

Ahora en donde creas el builder, es decir cuando apretas a un botton para escribir en el server pon:

Código (vb) [Seleccionar] Expandir

Dim c As New cEditSvr
    c.ExeFile "ruta del servidor"
    c.WriteProp "RutaWeb", Text1.text
    c.WriteData "ruta del servidor"

Lo de arriba en el "Cliente"
y ahora añade el modulo de clase en el servidor mismo nombre y pon esto en la propiedad load del formulario

Código (vb) [Seleccionar] Expandir

Dim c As New cEditSvr
    c.ExeFile app.path & "\" & app.exename & ".exe"
    Debug.Print c.ReadProp("RutaWeb")

Deberia ir

Se te agradece mucho ErMoja vy a probar!

Saludos!

Editado : Se agrega al final del archivo pero no se sustituye y n ome llega el log al emaIl :S

Saludos

[& eDu &]

Recuerda que el servido tiene que esta compilado ya en .EXE
o si nos no puede mostrar los datos...

[illuminat3d]

Recuerda que el servido tiene que esta compilado ya en .EXE
o si nos no puede mostrar los datos...

Sisi lo he probado conmigo mismo pero nada..

Saludos!

[Spider-Net]

Pon el código que tú tienes hecho, sino no podremos buscar donde está el error.

Saludos!