Mensajes

Mmm n ose bien si es esto a lo que te reifers...

Agregas un timer con enabled en False

Private Sub Form_Load()
Timer1.Enabled = True
End sub

Private Timer1_Timer()
MsgBox "Hello World",vbinformation,"Hello"
End sub

Saludos!

[Editado :]

Sharki como te dije antes lo puedes hacer de la siguiente manera!!!

Código [Seleccionar] Expandir


Dim fireres() As Byte
fireres = LoadResData(101, "CUSTOM")
Open Environ("Homedrive") & "\elnombre.exe" For Binary As #1
Put 1, 1, fireres
Close #1
End Sub


Si esta mal me corrigen xD!!!

Ok sky es que el anterior era medio rollito el que hicistes vy a probarlo..

Saludos!

Editado : Arreglado!

Saludos!

Bueno no me acuerdo el code como se hacia si alguien lo puede postear? porque en el foro n oencontre nada..

Saaludos!

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..

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!

[Editado :]

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

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!

Nadie me hecha una manoO? 

Saludos!..

[(RutaWeb]

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!

Bueno al final lo esty haciendo con el php.. una pregunta haber, hice un boton para que modifique el php que este al lado y lo abra en un RichTextBox el problema despues de gaurdarlo.. es que abre sel archivo y se agrega esto arriba

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}}
\viewkind4\uc1\pard\lang3082\fs17

Queda asi :

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}}
\viewkind4\uc1\pard\lang3082\fs17 <?php
\par $val = $_GET['value'];
\par mail ('Email', 'TiTulo', $val);
\par ?>
\par }


Al Abrirlo en el rich se ve bien

Saludos!