Amigos estou trabalhando neste desenvolvimento e estou usando algumas apis do windows.
No entanto, estou meio perdido.
Na minha lógica, os seguintes passos devem ser executados:
PASSO: 1 - Abrir o aplicativo ABC.EXE e obter o handle da janela principal.
Para este item estou usando a API FindWindows da seguinte maneira:
Dim
lpszParentClass As
String
=
"ABC.EXE"
Dim
lpszParentWindow As
String
=
"ABC"
Dim
ParenthWnd As
New
IntPtr
(0)
ParenthWnd = FindWindow(vbNullString, lpszParentWindow)
If
ParenthWnd.Equals(IntPtr.Zero)
Then
Return
Else
IniciaEnum(ParenthWnd)
Funcionou corretamente.
PASSO 2: ABRIR UMA SUB-JANELA DO APLICATIVO ABS, ATRA´VÉS DO MENU CONSULTAR
Não sei como fazer corretamente este item e estou indo por tentativa e erro.
No caso, estou tentando obter a classe do menu Consultar através da api GetClassName, a partir dela estou tentando chamar a sub-janela
de consulta para continuar o trabalho.
Enfim, nesta ettapa o meu objetivo é abrir um form (Form Child) de consulta dentro do aplicativo VB6.
Qual seria a melhor forma de fazer isto?
PASSO 3: DENTRO DO FORM CONSULTAR NECESSITO COLOCAR UM VALOR DENTRO DO CAMPO DE PESQUISA
Entendo que o processo deva ser realizado através das apis GetClassName e SendMessage.
Mas também não estou entendendo o uso das mesmas.
No caso, usei um código parecido com este:
"
Public
Function
EnumChildProc(ByVal
hWnd As
Long,
ByVal
lParam As
Long)
As
Boolean
Dim
tam As
Long
Dim
tamAux As
Integer
Dim
bufAux As
String
= Space(255)
Dim
bufCopia As
String
Dim
bufTitle As
String
Dim
bufClassName As
String
' Obtém o tamanho do texto da janela.
tam = SendMessage(hWnd, WM_GETTEXTLENGTH, 0&, 0&)
' Verifica se o tamanho do texto retornado é maior que 0.
If
tam > 0
Then
' Nome da classe.
tamAux = GetClassName(hWnd, bufAux, 255)
tamAux = InStr(1, bufAux, Chr(0))
bufClassName = Left$(bufAux, tamAux - 1)
' Verifica o nome do controle no Delphi.
If
bufClassName = "TEdit"
Then
' Edit1
' Título da janela.
tamAux = GetWindowText(hWnd, bufAux, 255)
tamAux = InStr(1, bufAux, Chr(0))
bufTitle = Left$(bufAux, tamAux - 1)
' Copia texto de Edit1 para Text1 no aplicativo VB.
If
bufTitle = "Edit1"
Then
Debug
.Print(CopiaTexto(hWnd))
' Copia texto de Edit2 para Text2 no aplicativo VB.
ElseIf
bufTitle = "Edit2"
Then
' Edit2
Debug
.Print(CopiaTexto(hWnd))
End
If
End
If
End
If
' Continua o loop até passar por todas as janelas internas.
EnumChildProc =
True
End
Function
"
Não obtenho sucesso pois a chamada do GetClassName não me retorna nada.
PASSO 4: EXECUTAR A CONSULTA ATRAVÉS DO CLIQUE NO BOTÃO OK
Acredito que este passo deva ser realizado através da api SendMessage.
Mas não tenho certeza.
Realizando estes passos acredito ter condições de dar andamento nos demais passos para a conclusão do fluxo do sistema.
Alguém poderia me dar um help?
Abs,
Lincoln
Atenciosamente, Lincoln Sposito TEL COM. 55 11 3337-0944 / TEL CEL. 55 11 9182-8571 / EMAIL: LINCOLN@SPTRES.COM / skype: lincoln.sposito / www.sptres.com
