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

wtf is

findwindow = "MY WINDOW CLASS"

Crashypoo wrote:wtf is

findwindow = "MY WINDOW CLASS"

thats what i call the handle for that window

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

http://www.paltalk-hacks.com/phpBB2/viewtopic.php?t=179

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.

http://www.paltalk-hacks.com/Beta/CMPS.zip

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

hey Newbie u trying to make a banner or bouncer

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

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

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

Code: Select all

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

So I did this instead

Code: Select all

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

Code: Select all

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

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

lol same thing it happen to me,

but hey i mean if u try

Code: Select all

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

I give up this project

Don't know why!!! IT DOESNT WORK

Can you write this code and we can download it.

source code...

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

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