visual Basic Paltlalk ban

Its hard to say without seeing the rest of code, but just out of a long shot i would add buttonX or something like that for the second window that appears?

you have

x = FindWindow(“#32770”, BanWindow)
button = FindWindowEx(x, 0&, “button”, “Yes”)
Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0&)

But this proberly no big issue and maybe wont make any diffrence, but you already set x and button on the previouse findwindow API, but like i said its hard to tell without seeing the functions that have been called. Also this only a guess because I have’nt actually tryed it, but I will look at finding the console window and placing ban now and ill post the code I get from making such a routine

hmmm I use a slightly diffrent method of getting handel of a window with knowen text…

the following code is what i use for ALL my paltalk programs and has never failed me and works with out a problem….
Place in a module

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function GetParent& Lib "user32" (ByVal hWnd As Long)

Public Declare Function IsWindowVisible& Lib "user32" (ByVal hWnd As Long)

Public Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)



Public Const GW_HWNDNEXT = 2

Public Const GW_Child = 5



Dim sPattern As String

Dim hFind As Long

Public Function FindWindowWild(sWild As String, Optional bMatchCase As Boolean = True) As Long

sPattern = sWild

If Not bMatchCase Then sPattern = UCase(sPattern)

EnumWindows AddressOf EnumWinProc, bMatchCase

FindWindowWild = hFind

End Function



Function EnumWinProc(ByVal hWnd As Long, ByVal lParam As Long) As Long

Dim k As Long

Dim sName As String



If IsWindowVisible(hWnd) And GetParent(hWnd) = 0 Then

sName = Space$(128)

k = GetWindowText(hWnd, sName, 128)

If k > 0 Then

sName = Left$(sName, k)

If lParam = 0 Then sName = UCase(sName)

If sName Like sPattern Then

hFind = hWnd

EnumWinProc = 0

Exit Function

End If

End If

End If

EnumWinProc = 1

End Function

Then i would use the code like this

Yourbanwindow = FindWindowWild("*Text on ban window", False)

the astrix (*) means a wild card and is VERY usful for chat rooms in paltalk like this…

x = FindWindowWild("*Voice Room", False)

This will find the handel of the voice room your currently in, as you can see it does not need to know the full string of the text on the window for example “Paltalk Help lobby – Voice Room” because the astrix acts as a wild card, Also its a lot less coding than other methods paltalk programmers use.

If you want I can write you a demo code to show how I would get the ban window

@Snoopy1968 wrote:

This is probley a simply quesiton
but how do you tell visual basic you want the Yes with the special character under the “Y”
?

Please explain what you mean bu “Y” I dont get what your asking

if you mean on buttons and stuff you use the “&” for example &Yes and &No, I hope this is what you meant ….

Actually I have tryed it and have the same problem, I have a feeling this is due to emulatewinproc because it seems that vb apps is waiting for a yes or no to clicked before it continues and searches for the Ban User window, Admin seem to got around this by creating another app that clicks yes for him, This ofcause means that the main vb app does’nt have to wait.

The work around:
Well I have few ideas , but to get it working straigh away would be to call a second app to do the clicking on Yes button for you, But in mean while Im going to test a couple of ideas I have to get around this problem , and ill report back to you with a soloution.

P.s I even tryed a pause function to make sure the code was’nt executing before the window appeared, thats how i worked out that it actually waits for user to click yes or no

And here is my solution code that works 100% and no need to make a second app and its all done in the same function

You would use the following function like this
Bannick(“yournickname“)

Or use a string or textbox like this
Bannick(Yourstring)

Public Function Bannick(nickname As String) ‘nickname as string will make it easyer to use this function
Dim x As Long
Dim xx As Long
Dim xxx As Long
Dim xxxx As Long
Dim xxxxx As Long
Dim xxxxxx As Long
Dim xxxxxxx As Long
Dim xxxxxxxx As Long

x = FindWindowWild(“*Voice Room”, False) ‘find the current room your talking in
PostMessage x, WM_COMMAND, 32998, 0 ‘Send the command to open Admin Console

Pause (0.2) ‘ Pause for 200 millisecs to give time for the window to open before executing next peice of code

xx = FindWindowByPartialTitle(“Administrative”) ‘Find the admin console by the first part of title captions
xxx = FindWindowEx(xx, 0&, “Combobox”, vbNullString) ‘Find combo box
xxxx = FindWindowEx(xxx, 0&, “edit”, vbNullString) ‘Find edit field
Call SendMessageByString(xxxx, WM_SETTEXT, 0&, nickname$) ‘Send the text to edit field
xxxxx = FindWindowEx(xx, 0&, “button”, “Ban Selected User”) ‘Find Button called Ban selected user

Do
DoEvents
Call PostMessage(xxxxx, WM_LBUTTONDOWN, 0&, 0&) ‘Send a virutal Left mouse click down
Call PostMessage(xxxxx, WM_LBUTTONUP, 0&, 0&)
‘Send a virutal Left mouse click Up [/colour]
<span style="color: #0040BF]Loop Until xxxxx 0 [/color”> ‘Keep doing this untill completed (just incase)

Pause (0.2) ‘Pause for 200 millisecs to give time for the Ban User window to open before executing next peice of code

xxxxxxx = FindWindowByPartialTitle(“Administrative”) ‘Find admin console from the first part of title caption
xxxxxxx = FindWindow(“#32770”, “Ban User?”) ‘Find child ban window
xxxxxxxx = FindWindowEx(xxxxxxx, 0&, “button”, vbNullString) ‘Find The Yes button
Call PostMessage(xxxxxxxx, WM_LBUTTONDOWN, 0&, 0&) ‘Send a virutal Left mouse click down
Call PostMessage(xxxxxxxx, WM_LBUTTONUP, 0&, 0&) ‘Send a virutal Left mouse click Up
End Function

Yeap sure can, paltalk uses a listbox for holding the banned users and bounced users, here is Demo source code to show you how eay it can be done, Plus you will find the Public functions I have included VERY useful for other projects also :O)

This is for bannéd users but easy to change either 1 line of code or add 1 line of code to get bounced users list