Mensajes

Disculpa Dessa pero entonces como le envio los datos del text1 (exe1) al text1(exe2)
???????????

te envio el codigo seba123neo   saludos y gracias




Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Const WM_GETTEXT = &HD: Private Const WM_SETTEXT = &HC
Const BM_CLICK = 245 'Envía un clik al botón
Const WM_SETFOCUS As Long = 7 'Coloca el foco sobre una ventana



Private Sub Command1_Click()
Dim recibir As String
Dim Hwndl As Long
Dim LsTexto1 As Long
Dim LsTexto2 As Long
Dim LsTexto3 As Long
Dim LsFoco As Long
Dim LsFoco1 As Long
Dim LsCommand As Long
Dim LsCommand1 As Long


  Hwndl = FindWindow(vbNullString, "Alberto Olvera")

  LsTexto1 = FindWindowEx(Hwndl, 0, "ThunderRT6TextBox", vbNullString)
  LsTexto2 = FindWindowEx(Hwndl, LsTexto1, "ThunderRT6TextBox", vbNullString)
  LsTexto3 = FindWindowEx(Hwndl, LsTexto2, "ThunderRT6TextBox", vbNullString)
  LsCommand = FindWindowEx(Hwndl, 0, "ThunderRT6CommandButton",vbNullString)

  Call SendMessage(LsTexto1, WM_SETTEXT, Len(Text1.Text), ByVal Text1.Text)
  Call SendMessage(LsTexto2, WM_SETTEXT, Len(Text2.Text), ByVal Text2.Text)
  Call SendMessage(LsTexto3, WM_SETTEXT, Len(Text3.Text), ByVal Text3.Text)

  LsFoco = SendMessage(LsTexto1, WM_SETFOCUS, 0, vbNullString)
 
  LsFoco1 = SendMessage(LsCommand, BM_CLICK, 1, vbNullString)

End Sub

Deja checo,

Saludos y Gracias

Espero alguien me pueda ayudar

Lo que necesito saber si hay forma de identificar la secuencia de campos (text) de un porgrama exe echo en vb 6.0


Mi .exe tiene 4 text y el otro tambien cuando escribo en los 4 si le envia los datos pero en desorden es decir text1 (exe1) le escribe al text2(exe2)
Existe un API o algo para q los valores sean:
Text1 (exe1) a Text1 (exe2)
Text2 (exe1) a Text2 (exe2)
Text3 (exe1) a Text3 (exe2)

ya tengo su hwnd de cada objeto


Saludos y Muchas Gracias.