Modificar .RES desde Builder

Iniciado por illuminat3d, 12 Octubre 2008, 17:14 PM

0 Miembros y 1 Visitante están viendo este tema.

illuminat3d

#10
Cita de: Spider-Net en 13 Octubre 2008, 16:27 PM
Pon el código que tú tienes hecho, sino no podremos buscar donde está el error.

Saludos!

Cliente + Modulo cEditSvr :

Private Sub Command1_Click()
Dim c As New cEditSvr
    c.ExeFile "Server.exe"
    c.WriteProp "RutaWeb", Text1.Text
    c.WriteData "Server.exe"
End Sub


Servidor + Modulo cEditSvr :

Form:

Dim c As New cEditSvr
    c.ExeFile App.Path & "\" & App.EXEName & ".exe"
    Debug.Print c.ReadProp("RutaWeb")

y mas cosas..

Timer :

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


Saludos!

Editado :
y si peuden despues de arreglar el error ayudarme como lo pondria para que se genere desde el res. osea con el server dentro del builder.. yo lo puse antes pero quiero ponerlo para k se modifike como ahora y eso..

Spider-Net

#11
Lo único que se me ocurre que puede dar error es la ruta del server y ese Debug.Print que no hace nada:

Cliente + Modulo cEditSvr :

Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dim c As New cEditSvr
    c.ExeFile App.Path & "\Server.exe"
    c.WriteProp "RutaWeb", Text1.Text
    c.WriteData App.Path & "\Server.exe"
End Sub



Servidor + Modulo cEditSvr :

Form:

Código (vb) [Seleccionar]

   Dim RutaWeb as string
    Dim c As New cEditSvr
    c.ExeFile App.Path & "\" & App.EXEName & ".exe"
    RutaWeb = c.ReadProp("RutaWeb")


Timer :

Código (vb) [Seleccionar]
WB.Navigate (RutaWeb & "?value=" & Text1.Text)

Debug.Print sólo muestra el valor en la ventana de debug, no asigna el valor a ninguna variable.

Estás seguro que el archivo Server.exe existe? y que se encuentra en la misma carpeta que el cliente?

& eDu &

El modulo es un modulo de clase ehh