ejecutar una aplicacion dentro de otra

[abel_c_b]

como siempre alguien hablando demas y no colaborando.

[krackwar]

Si estoy colaborando ,t e estoy diciendo que no seas un flojo lammer y estudies a ver si hasi logras hacer tu el programa.

[abel_c_b]

y tu crees que no lo he hecho? nisiquiera te imaginas cuanto tiempo llevo trabajando en esto.

[krackwar]

y tu crees que no lo he hecho? nisiquiera te imaginas cuanto tiempo llevo trabajando en esto.

Estudia mas tiempo no mas si no eres tonto vas a aprender =.

[abel_c_b]

Si te concideras que sabes mucho, demuestralo, deja de hablar tanto

[seba123neo]

quiero que al momento de ejecutar mi proyecto, actue inmediatamente sobre la aplicacion que le inclui en el boton INICIAR

pone el codigo del boton en el Form_Load,asi de simple.........

actue sobre el boton PARAR y se termine la ejecucion del
proyecto

pone el codigo del segundo boton en el Form_Unload,asi de simple....

como ves los codigos no es que NO ANDAN ,vos los tenes que adaptar a lo que queres hacer,y eso que fue un copy y paste del codigo,no me inmagino si es crearlo vos al codigo...

pero pasa lo siguiente, la tecla que quiero simular su pulsación es la de la aplicacion que se incrusta

otra vez en lo mismo...el codigo que te puso Cobein es para eso,clickear un boton segun su nombre de clase..averigua el nombre de clase del boton que queres clickear y listo...

saludos.

[krackwar]

Si te concideras que sabes mucho, demuestralo, deja de hablar tanto

jajaja , Yo no le tengo que demostrar a nada a nadie yo se muy bien lo que se y lo que no se.
edit:jajaj , empiesa aprendiendo que es esto:

Código (vb) [Seleccionar] Expandir

Private Sub mensaje(titulo As String, msg As String)
MsgBox msg, , titulo
End Sub

Private Sub Form_Load()
mensaje "ola", "hola mundo"
End Sub


[abel_c_b]

si busco ayuda es porque obviamente estoy confundido y no hallo la respuesta, pero si tu sabes como resolver el problema, postealo, a la final esa es la idea del foro, ayudarnos a resolver los problemas que se nos presentan.

[abel_c_b]

bueno posteo parte del code para ver en que me pueden ayudar:

Private Sub Timer1_Timer()

PosX = 70
PosY = 236
l = SetCursorPos(PosX, PosY)
lpRect.Left = 26
lpRect.Top = 216
PosXY = (PosY - lpRect.Top) + (PosX - lpRect.Left)



l = PostMessageBynum(El_Hwnd_Programa, WM_LBUTTONDOWN, 0&, PosXY)
l = PostMessageBynum(El_Hwnd_Programa, WM_LBUTTONUP, 0&, PosXY)

End Sub


lo que ven en la parte de arriba es la forma de colocar el puntero del mouse sobre el boton Iniciar para luego con la funcion "PostMessageBynum" simular el click y ejecute las funciones del boton, tambien utilice "Call SendMessage" en vez de "PostMessageBynum" pero en los 2 casos se ubica sobre el moton pero no simula el click, agradezco toda la ayuda posible, saludos

[seba123neo]

haber ,haber...proba este codigo que medio lo arme.use 2 codigos distintos uno para centrar el mouse en un objeto y el otro para hacer click,lo uni en uno solo para que centre y haga click,probalo en un proyecto nuevo para que entiendas como funciona,pone un boton y un timer y este codigo:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long, lRect As RECT)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Sub CentrarYHacerClick(ByVal Objeto As Object)
Dim r As RECT, ret As Long
ret = GetWindowRect(Objeto.hwnd, r)
SetCursorPos r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2), 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2), 0, 0)
End Sub

Private Sub Command1_Click()
Call Beep
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call CentrarYHacerClick(Command1)
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub

eso es para hacer click en un boton de tu aplicacion ,pero para hacer click en uno de aplciacion externa tenes que saber su nombre de clase y caption...para eso esta el que puso cobein...

saludos.