Mensajes

No te entendí la pregunta o el errror

SetWindowPos no tiene nada que ver en el código, la usé en los dos exes solamente para que queden los dos Form en primer plano y los puedas ver mas facil .

PD: los mensajes al segundo ejecutable van a llegar igual, aun si esta minimizado u oculto ya que estan llegando por Handdle. (no por posicion)

compila y ejecuta el Proyecto1

http://rs355.rapidshare.com/files/290951605/Enviar.zip

Perdon, es el contenido String de los text del exe2 el que debes usar
El bufer es no hace falta


Dim Hwndl As Long
Dim LsTexto1 As Long
Dim LsTexto2 As Long
Dim LsTexto3 As Long
Hwndl = FindWindow(vbNullString, "Alberto Olvera")

LsTexto1 = FindWindowEx(Hwndl, 0, vbNullString, "Text1") ' contenido strng de Text1 en el exe2
LsTexto2 = FindWindowEx(Hwndl, 0, vbNullString, "Text2") '  contenido strng de Text2 en el exe2
LsTexto3 = FindWindowEx(Hwndl, 0, vbNullString, "Text3") '  contenido strng de Text3 en el exe2

Call SendMessage(LsTexto1, WM_SETTEXT, 0, ByVal Text1.Text) ' no hace falta bufer para enviar
Call SendMessage(LsTexto2, WM_SETTEXT, 0, ByVal Text2.Text) ' no hace falta bufer para enviar
Call SendMessage(LsTexto3, WM_SETTEXT, 0, ByVal Text3.Text) ' no hace falta bufer para enviar


PD: así me estan llegando los tres mensajes perfectamente

  Hwndl = FindWindow(vbNullString, "Alberto Olvera")

 LsTexto1 = FindWindowEx(Hwndl, 0, vbNullString, "Text1") ' Text1 es el nombre del control en el exe2
 LsTexto2 = FindWindowEx(Hwndl, 0, vbNullString, "Text2") ' Text2 es el nombre del control en el exe2
 LsTexto3 = FindWindowEx(Hwndl, 0, vbNullString, "Text3") ' Text3 es el nombre del control en el exe2

 Call SendMessage(LsTexto1, WM_SETTEXT, 0, ByVal Text1.Text) ' no hace falta bufer para enviar
 Call SendMessage(LsTexto2, WM_SETTEXT, 0, ByVal Text2.Text) ' no hace falta bufer para enviar
 Call SendMessage(LsTexto3, WM_SETTEXT, 0, ByVal Text3.Text) ' no hace falta bufer para enviar

Mira si esto te ayuda

http://foro.elhacker.net/programacion_vb/pasar_variables_por_memoria_src-t244803.0.html

si no encontrás alguna funcion que lo haga podes  usar un Shape1.BorderWidth = 5 de borde

Si metes el WebBrowser dentro de un picture y le recortas los extremos ?

Código [Seleccionar] Expandir


Private Sub Form_Load()
  Picture1.BorderStyle = 0
  WebBrowser1.Left = -50
  WebBrowser1.Top = -50
  WebBrowser1.Width = Picture1.Width + 50
  WebBrowser1.Height = Picture1.Height + 50
End Sub


El left y el top del WebBrowser1 son regidos por el Picture1 por estar contenido por el mismo

S2

Hola, tambien revisa esto

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/informacion-pc.htm

S2

Para encontrar un valor en el registro sigue estos pasos :

• Lista todas las claves del registro
  
• Lee todas las subclaves ( o no me acuerdo como se llaman las que tienen datos )
  
• Usa Instr para comprobar si existe la string dentro de la SubClave
  
  

canario77 : Ya te han indicado los pasos a seguir