Zero'ing in to a form

[Dayo312]

I need to Find the window "aol frame25"
Then in that window find a text box "Aoltext"
And Type "GoldenFinger" In it.
Could someone should me how??

Thankyou!

[Raydr]

Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Dim AOL As Long, TheBox as Long

AOL& = FindWindow("AOL Frame25", vbNullString)
TheBox& = FindWindowEx(AOL&, 0&, "aoltext", vbNullString)
Call SendMessageByString(TheBox&, &HC, 0&, "GoldenFinger")

This won't work completely. Why? Because
1.) AOL doesn't use "Aoltext" boxes. It uses "RICHCNTL".
2.) There is no text box right in the AOL Windows. It's in an MDI window.

Get your hands on Freespy, and any AOL bas and look at it.

[kedaman]

Thats a matter of using some apis to retrieve the window, there are several ways, like findwindow, then you need to find the childclass, you can enumerate the child windows or use getwindow to find the right childclass. Then you should use setwindowtext to put your text into it. This is a lot of work

[Dayo312]

oh I knew that
I just needed that basic code..
I have a spy program.. Im using it

I have a Question though..
Whats the & mean on the end of
the 0's

[kedaman]

& declares a variable or value to long
In this case 0 would have been automatically declared as integer.

[Dayo312]

Thanks Ill remember that..


But I still have this problem.
Im actually trying to focus
on the combobox to type in
a webadress and go there..

The Classnames are..

ieframe
rebarwindow32
combobox
edit

I tried to get focused on rebarwindow32
but it would do it.. what am I doing wrong??

The code im using..

------

Dim hwnd As Long
Dim Bar As Long
hwnd& = FindWindow("ieframe", vbNullString)
Bar& = FindWindowEx(hwnd&, 0&, "rebarwindow32", vbNullString)
If Bar = 0 Then
MsgBox "Couldnt Find ComboBox."
End
Else
MsgBox "Found IT!."
End
End If

------

Help?