Hi all. i try to send text to room searchbox and admin ban textbox but it does not send any text. I used api spy but still doees not work. could any one tell me what i am doing wrong here.Thanks

Code: Select all


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
               
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                ByVal hWnd As Long, _
                ByVal wMsg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long) As Long

Private Sub Command18_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("wtl_splitterwindow", "Paltalk Messenger 8.3")



Dim wtlsplitterwindow As Long, atle As Long

wtlsplitterwindow = FindWindow("wtl_splitterwindow", vbNullString)
atle = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053e440", vbNullString)
x = FindWindowEx(atle, 0&, "#32770", vbNullString)
x = FindWindowEx(atle, x, "#32770", vbNullString)
x = FindWindowEx(atle, x, "#32770", vbNullString)
x = FindWindowEx(atle, x, "#32770", vbNullString)
x = FindWindowEx(atle, x, "#32770", vbNullString)
editx = FindWindowEx(x, 0&, "edit", vbNullString)


Call SendMessageByString(editx, WM_SETTEXT, 0&, Text7)

End Sub



problem sending text to room search box

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 - Search Results")



DoEvents
x = FindWindow("wtlsplitterwindow", "Rooms List - Search Results")
editx = FindWindowEx(x, 0&, "Edit", vbNullString)
Call SendMessageByString(editx, WM_SETTEXT, 0&, Text4)
DoEvents
x = FindWindow("wtlsplitterwindow", "Rooms List - Search Results")
Button = FindWindowEx(x, 0&, "button", "Search")
Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
End Sub