Skip to content

Ban from admin console

Viewing 15 posts - 1 through 15 (of 35 total)
1 2 3
  • Author
    Posts
  • October 7, 2005 at 7:52 pm #189272
    Newbie
    Member

    Why This code doesn’t work:
    Dim window As Long
    Dim X As Long, ban As Long, console As Long, editx As Long
    Dim Button As Long
    Dim banbutton As Long
    window = FindWindow(“my window class”, vbNullString)
    PostMessage window, WM_COMMAND, 32998, 0
    console = FindWindow(“#32770”, vbNullString)
    X = FindWindowEx(console, 0&, “ComboBox”, vbNullString)
    editx = FindWindowEx(X, 0&, “Edit”, vbNullString)
    Call SendMessageByString(editx, WM_SETTEXT, 0&, “abc”)
    Button = FindWindowEx(console, 0&, “button”, “Ban Selected User”)
    Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
    Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
    ban = FindWindow(“#32770”, “Ban User?”)
    banbutton = FindWindowEx(ban, 0&, “button”, “&Yes”)
    Call SendMessageLong(banbutton, WM_KEYDOWN, VK_SPACE, 0&)
    Call SendMessageLong(banbutton, WM_KEYUP, VK_SPACE, 0&)

    Kinda Hard to findout

    October 8, 2005 at 4:20 am #189306
    Crashypoo
    Member

    wtf is

    findwindow = “MY WINDOW CLASS”

    October 8, 2005 at 4:53 am #189305
    Admin
    Administrator

    @Crashypoo wrote:

    wtf is

    findwindow = “MY WINDOW CLASS”

    thats what i call the handle for that window

    October 11, 2005 at 11:37 pm #189304
    Admin
    Administrator

    aaaaaaaaaahhhhhhhhhh ahahahah i have been released that change my staus program seen here….

    ➡

    This Program was Released as Beta on September 23th 2005
    Change my Paltalk Status
    Last tested on PalTalk Messenger 8.1 Build 104
    For Options to pick from to change your Paltalk Status to.

    Download is Available at the link below.

    October 12, 2005 at 10:08 am #189303
    Admin
    Administrator

    when i released it i forgot to change the frame1 to options 😥 stop fighting.

    October 16, 2005 at 6:54 am #189302
    Admin
    Administrator

    hey Newbie 🙂 u trying to make a banner or bouncer 🙂

    October 16, 2005 at 1:11 pm #189301
    Newbie
    Member

    Yeah
    Trying To Make A Ban

    However doesn’t seem to work. Seem to be that findwindow(#32770,”Ban User?”) doens’t work. cannot find that handle

    October 17, 2005 at 3:41 pm #189300
    Admin
    Administrator

    umm i was working on sothing like this i give u the code tomorrow 🙂 today is a schoolday, check tomorrow it should be here 🙂

    October 18, 2005 at 3:31 pm #189299
    Admin
    Administrator

    Umm well I think I fix it :), but check this I could not make this code work lol dont know why

     banbutton = FindWindowEx(ban, 0&, "button", "&Yes")

    So I did this instead

    x = FindWindow("#32770", "Ban User?")
    
button = FindWindowEx(x, 0&, "button", vbNullString)
    
Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0&)
    
Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0&)

    So the final code would look like this

    Dim window As Long
    
Dim x As Long, ban As Long, console As Long, editx As Long
    
Dim button As Long
    
Dim banbutton As Long
    
window = FindWindow("my window class", vbNullString)
    
PostMessage window, WM_COMMAND, 32998, 0
    
console = FindWindow("#32770", vbNullString)
    
x = FindWindowEx(console, 0&, "ComboBox", vbNullString)
    
editx = FindWindowEx(x, 0&, "Edit", vbNullString)
    
Call SendMessageByString(editx, WM_SETTEXT, 0&, "abc")
    
button = FindWindowEx(console, 0&, "button", "Ban Selected User")
    
Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0&)
    
Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0&)
    
x = FindWindow("#32770", "Ban User?")
    
button = FindWindowEx(x, 0&, "button", vbNullString)
    
Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0&)
    
Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0&)

    Dont know why its weird cause when i try to use &Yes too it didnt work 🙁

    hey but that one works 🙂

    October 19, 2005 at 1:29 pm #189298
    Newbie
    Member

    Still Doesn’t work for me 🙁
    I already try to delay the findwindow cuz i think the code execute too fast. It find the window before it appears, but still….doesn’t work.Weird

    October 20, 2005 at 2:06 am #189297
    Admin
    Administrator

    lol same thing it happen to me,

    but hey i mean if u try

    x = FindWindow("#32770", "Ban User?")
    
button = FindWindowEx(x, 0&, "button", vbNullString)
    
Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0&)
    
Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0&)

    alone it works when the ban user box is open .

    and i havent try a time delay, did u put it before the ban user box comes up in the even procedure

    October 20, 2005 at 6:28 pm #189296
    Newbie
    Member

    I give up this project

    Don’t know why!!! IT DOESNT WORK

    October 20, 2005 at 9:02 pm #189295
    ibeeback
    Member

    Can you write this code and we can download it.

    source code…

    October 20, 2005 at 10:32 pm #189294
    Admin
    Administrator

    man dont give up lol, just keep on trying i think u got to do something with a time delay, or a loop to find window then ban, some crazy thing like that but dont give up 🙂

    ibeback, you want the source or exe ❓

    October 20, 2005 at 11:06 pm #189293
    Departure
    Member

    I used a time delay for the misconduct bomber, I had the same problem of the code running too fast

  • Author
    Posts

Related

Viewing 15 posts - 1 through 15 (of 35 total)
1 2 3
  • You must be logged in to reply to this topic.