IT Gets so far and then vb just freeses
im using a timer to send the message to the window but
when it gets to the proceed to ban it cant see it
Dim x As Long, editx As Long, button As Long
Dim console As Long
If (Text38 = “”) Then
PalAdmin
Text38 = Trim(AdmnConsole)
Else
DoEvents
Timer8.Enabled = False
console = FindWindow(“#32770”, Text38)
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&)
DoEvents
PalBan
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&)
Text38 = “”
End If
BanWindow is called from From function PalBan for some reason it freeses just b4 the palban funciton is called
.
.