Autor
|
Tema: Como indetificar la secuencia de objetos de un .exe en vb 6.0 (Leído 8,213 veces)
|
olve
Desconectado
Mensajes: 55
|
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...
|
|
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
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)
|
|
« Última modificación: 10 Octubre 2009, 06:26 am por Dessa »
|
En línea
|
Adrian Desanti
|
|
|
olve
Desconectado
Mensajes: 55
|
realizando otra prueba dejando en blanco la opcin text en blanco no le anecuentra
text1 text1.tex = ""
Otra opcion,
Saludos y GRacias
|
|
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
No te entendí la pregunta o el errror
|
|
« Última modificación: 10 Octubre 2009, 20:00 pm por Dessa »
|
En línea
|
Adrian Desanti
|
|
|
olve
Desconectado
Mensajes: 55
|
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
|
|
|
En línea
|
|
|
|
seba123neo
|
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
no puede ser, yo lo pruebo, borro todo lo que hay en los textbox del exe2 y me manda los datos igual...
|
|
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
A ver, a mi igual que a Seba, los mensajes me llegan en todos los casos y no me tira ningun error.
Olve, si lo que queres (creo) es borrar el contenido de los 3 Text del segundo ejecutable cuando este se inicia:
Deja (en diseño del segundo ejecutable) la propiedad Text tal cual, "Text1" "Text2" y "Text3" (para que lleguen los mensajes), luego en en load (tambien del del segundo Ejecutable) agregas estas tres lineas:
Text1.Text = "" Text2.Text = "" Text3.Text = ""
Nota: en el primer ejecutable no cambias nada, los mensajes siguen siendo para "text1" "Text2" y "text3"
Era eso ???
|
|
« Última modificación: 11 Octubre 2009, 03:44 am por Dessa »
|
En línea
|
Adrian Desanti
|
|
|
olve
Desconectado
Mensajes: 55
|
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 ???
|
|
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
ejemplo 1) cambias la propiedad Text del Text1 (en diseño del segundo exe) por y
En este tambien tenes que cambiar el mensaje del primer exe: LsTexto1 = FindWindowEx(Hwndl, 0, vbNullString, "y") ' contenido strng de Text1 en el exe2
ejemplo 2) cambias la propiedad Text del Text1 (en diseño del segundo exe) por "y"
En este otro tambien tenes que cambiar el mensaje del primer exe: LsTexto1 = FindWindowEx(Hwndl, 0, vbNullString, """y""") ' contenido strng de Text1 en el exe2
|
|
|
En línea
|
Adrian Desanti
|
|
|
olve
Desconectado
Mensajes: 55
|
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
|
|
|
En línea
|
|
|
|
|
|