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
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
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
.
.