Mensajes

Dessa,

Si lo modifico


te envio este codigo al parecer ya lo hace en orden lo unico q hice es cambiar el orden de la asignacion de los textos:


sera lo correcto ?????


  Hwndl = FindWindow(vbNullString, "AA")

  LsTexto1 = FindWindowEx(Hwndl, 0, "ThunderRT6TextBox", vbNullString)
  LsTexto2 = FindWindowEx(Hwndl, LsTexto1, "ThunderRT6TextBox", vbNullString)
  LsTexto3 = FindWindowEx(Hwndl, LsTexto2, "ThunderRT6TextBox", vbNullString)
  LsTexto4 = FindWindowEx(Hwndl, LsTexto3, "ThunderRT6TextBox", vbNullString)
 
  Call SendMessage(LsTexto1, WM_SETTEXT, 0, ByVal Text4.Text)
  Call SendMessage(LsTexto2, WM_SETTEXT, 0, ByVal Text3.Text)
  Call SendMessage(LsTexto3, WM_SETTEXT, 0, ByVal Text2.Text)
  Call SendMessage(LsTexto4, WM_SETTEXT, 0, ByVal Text1.Text)

Hola,

Dessa me marca un error al ejecutar este ejemplo  espero me puedan apoyar

http://support.microsoft.com/kb/113475/es


este es el error

"No se ha encontrado el archivo: User"

Gracias, saludos

alguien q me oriente com funciona FindWindowLike

SALUDOA

Gracias,

Alguna funcion de la cual pueda obtener el ID del objeto

Alguien puede orientarme de como funciona  de la API Enumchildproc para vb 6.0


Saludos y Gracias.

Lo q pasa, es q le quiero mandar mensajes a un exe de vb 6.0 del cual no tengo codigo fuente y la unica opcion es atravez de otro (este q estoy tratando de hacer)

lo primero q tengo q hacer es tener el orden de los text, los cuales  esta en blanco lo se por medio del SPY++ de Microsof es por eso el primer codigo q te envie

a la mejor lo estoy haciendo mal y existe otra forma de hacer ???

podras orientarme ??????


Gracias x el tiempo

El detalle q te comento es cuando en dieño (segundo ejecutable) dejo en blanco la propiedad text ya no llegan los nemsajes este es el detalle

como tu lo mancionas:
Deja (en diseño del segundo ejecutable) la propiedad Text tal cual, "Text1" "Text2"  y "Text3" (para que lleguen los mensajes),

pero si yo dejo:

En (en diseño del segundo ejecutable) la propiedad Text  "" ""  y "" (asi ya NO llegan los mensajes)


porque ???

No me explique, aver si ahora si 


Hwndl = FindWindow(vbNullString, "Alberto Olvera")

LsTexto1 = FindWindowEx(Hwndl, 0, vbNullString, "Text1") ' contenido string de Text1 en el exe2

En el objeto Text1 del exe2, si le asigno a la propiedad text nada(text1.text = "")no encuentra el Hwndl

a q se debe ????


espero ser claro

realizando otra prueba dejando en blanco la opcin text en blanco no le anecuentra

text1    text1.tex = ""


Otra opcion,

Saludos y GRacias

Dessa gracias x el ejemplo y eso es lo q quiero pero veo q utilizas la api SetWindowPos, el exe al que le quiero mandar los textos no tiene programada esta api y no tengo los ejecutables como lo puedo lograr ???????



Saludos...