Mic Holder for Paltalk 8.1

@ibeeback wrote:

Hello to everyone!!!
Here you are one Mic Holder for Paltalk 8.1

1. Modul1

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_KEYDOWN = &H100

Public Const WM_KEYUP = &H101

Public Const WM_COMMAND = &H111

Public Const VK_RETURN = &HD

Public Const WM_SETTEXT = &HC

2. Make a Button with name –> [ (Name) fgTalk and Caption Merre Mikrofonin !!!

Private Sub fgTalk_Click()

Dim window As Long

Dim x As Long, editx As Long

Dim Button As Long



On Error Resume Next

window = FindWindow("my window class", vbNullString)

PostMessage window, WM_COMMAND, 33239, 0



DoEvents

x = FindWindow("#32770", vbNullString)

editx = FindWindowEx(x, 0&, "Edit", vbNullString)





DoEvents

x = FindWindow("#32770", vbNullString)

Button = FindWindowEx(x, 0&, "button", "Lock Microphone")

Select Case fgTalk.Caption

Case "Merre Mikrofonin"

fgTalk.Caption = "Leshoje Mikrofonin"

Call SendMessage(Button, WM_KEYDOWN, VK_SPACE, 0&)

Case "Leshoje Mikrofonin"

fgTalk.Caption = "Merre Mikrofonin"

Call SendMessage(Button, WM_KEYUP, VK_SPACE, 0&)

End Select

End Sub

Have you fun!!!
Kosovari from FG PTD NET FORUM

wow this looks like a leech and modifyed code of mine shame shame shame. PTD people leeching other peoples code lol… hmmmm perhaps you should look at the dated they posted that code and the date i posted it it’s a damn shame lol…. Kosovari from FG = leecher/lamer

i can tell you why i know he leeched my code LOL… but i’ll wait and tell later.. just so alot of people see this. by the way im not mad just think its funny the guy leeched asource code i made and then modifed it and tryed to take credit for making it then this guy comes along and posts it hurr. 😆 😆 😆 by the way this code is on my forum to the day day i made a exsample i put just the code part on my forum. some people i tell yeah have no respect and they pounder why i dont release my codes is this type of reason. roflmfaoatl heh.

heh its the best way to catch people in the act by adding non needed code into it i want him if he didn’t leech it to explain how he figured out the…

PostMessage window, WM_COMMAND, 33239, 0

x = FindWindow("#32770", vbNullString)

Button = FindWindowEx(x, 0&, "button", "Lock Microphone")

if he didn’t really leech it im not mad im just poundering how he knows this not very many people know what method to take to find this even Departure had to tell me how to do this type of method. im all ears now.

by the way aint no API spy going to show you this lol…

and another thing i went to the PTD forum and signed up and that person “Kosovari from FG” posted the code two times im sure i’ll be ban from there by one of there admins but then again a site ban is nothing. 😉

@Johnny5 wrote:

I think this one work too

Function HoldCtrl8()
Dim mywindowclass As Long, wtlsplitterwindow As Long, atlfe As Long
Dim atlfee As Long, wtlbitmapbutton As Long
mywindowclass = FindWindowWild(“*- Voice Room”, False)
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, “wtl_splitterwindow”, vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, “wtl_splitterwindow”, vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, “wtl_splitterwindow”, vbNullString)
atlfe = FindWindowEx(wtlsplitterwindow, 0&, “atl:004fe680”, vbNullString)
atlfee = FindWindowEx(atlfe, 0&, “atl:004fe6e8”, vbNullString)
wtlbitmapbutton = FindWindowEx(atlfee, 0&, “wtl_bitmapbutton”, vbNullString)
wtlbitmapbutton = FindWindowEx(atlfee, wtlbitmapbutton, “wtl_bitmapbutton”, vbNullString)
Call SendMessageLong(wtlbitmapbutton, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(wtlbitmapbutton, WM_LBUTTONUP, 0&, 0&)
End Function

I click the Lock button instead

may way doesn’t need to be updated like yours unless paltalk changes this thing in there code kinda like this part…….

atl:004fe6e8

mine is

33239

Heres a pm that this fruit sent me in a PM on my forum

From: ibeeback
To: PaltalkAdminS
Posted: Aug 08 2005 10:57 pm
Subject: Source code!!!
Hello!

Can you do please to helping me, so that I can learn programming, with Visual basic. I will be pleased if you me thereby to help can!. I cannot speak so well English. I translate everything over Google!!

Greetings from
Ibee back

heheh “the case of the stolen Vb code has been solved” by detective syxx, and the evidence has clearly showed ibee has stolen this code from syxx’s forum.

Its ashame people steal code then post it at other forums, when it would have been much easyer just posting a link to the original forum with credits to the original author, instead of misleading people into beliving that he/she has written this code by them selfs.

Hi to all

I have a problem when Visual Basic compile the code… (when i try run)

Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_COMMAND = &H111
Public Const VK_RETURN = &HD
Public Const WM_SETTEXT = &HC

This is the Error message.

“COMPILE ERROR;

“Constants, Fixed-lenght strings, arrays, user-defined types and declare statments not allowed as public members of object modules”

What can i do?? 😳 ❓

THANKS FOR READ THIS.

😀

@frank_75 wrote:

Hi to all

I have a problem when Visual Basic compile the code… (when i try run)

Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_COMMAND = &H111
Public Const VK_RETURN = &HD
Public Const WM_SETTEXT = &HC

This is the Error message.

“COMPILE ERROR;

“Constants, Fixed-lenght strings, arrays, user-defined types and declare statments not allowed as public members of object modules”

What can i do?? 😳 ❓

THANKS FOR READ THIS.

😀

The problem I could think of is that … maybe you decalre the same constant 2 or more times … in different modules …