hi all i am trying to send text to room list search textbox but it does not work. could any one tell me what i am doing wrong?Thanks

Code: Select all


Private Sub Command13_Click()
Dim window As Long
Dim X As Long, editx As Long
Dim Button As Long
Dim combobox As Long
On Error Resume Next

window = FindWindow("ATL:0053E390", "Rooms List")



'DoEvents
X = FindWindow("#32770", "Rooms List")
editx = FindWindowEx(X, 0&, "Edit", vbNullString)
Call SendMessageByString(editx, WM_SETTEXT, 0&, Text4)
DoEvents
X = FindWindow("#32770", "Rooms List")
Button = FindWindowEx(X, 0&, "button", "Search")
Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
End Sub