Skip to content
Home > Programming > Help need in sending text to room searchbox and ban textbox

Help need in sending text to room searchbox and ban textbox

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #188797
    method
    Member

    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
Viewing 1 post (of 1 total)
  • You must be logged in to reply to this topic.