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

1. Modul1

Code: Select all

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 !!!

Code: Select all

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

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

1. Modul1

Code: Select all

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 !!!

Code: Select all

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.

its leeched for sure, I mean it has the same code in it that does nothing

DoEvents
x = FindWindow("#32770", vbNullString)
editx = FindWindowEx(x, 0&, "Edit", vbNullString)

if you took this code out it would'nt change a thing, Plus im pretty sure you only need PostMessage window, WM_COMMAND, 33239, 0 but dont quote me untill I check to make sure thats the right WM Command. And i know this has been leeched from syxx's site

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...

Code: Select all

PostMessage window, WM_COMMAND, 33239, 0

Code: Select all

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.

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

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.......

Code: Select all

atl:004fe6e8

mine is

Code: Select all

33239

Johnny5 nice to see you are using my FindWindowWild Function :O) because that there is the anwser to you question about clicking the send text to the room instead of to the PM window.. I had made that function about 2 and half years ago and it still rocks.

ohh and yeah syxx is right , he does'nt need to update every time paltalk does because its not that oftern paltalk changes that part of the code, So more im guess the paltalk mic holder syxx made will work for a long time to come with out any modifacations

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

heres another PM from him on locohackers forum......

From: ibeeback
To: Syxx
Posted: Mon Aug 08, 2005 8:41 pm
Subject: Mic holder
LOL this Programming isnt mein Programming Sory!!!

Dont mistake me pls!!! Lol!!!

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.

Syxx wrote: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

Syxx wrote:heres another PM from him on locohackers forum......

From: ibeeback
To: Syxx
Posted: Mon Aug 08, 2005 8:41 pm
Subject: Mic holder
LOL this Programming isnt mein Programming Sory!!!

Dont mistake me pls!!! Lol!!!

YOU ARE AN IDIOT!!! M4Th3eR FuCK3R !!!

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?? :oops: :?:

THANKS FOR READ THIS.

:D

ibeeback wrote:

Syxx wrote: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

Syxx wrote:heres another PM from him on locohackers forum......

From: ibeeback
To: Syxx
Posted: Mon Aug 08, 2005 8:41 pm
Subject: Mic holder
LOL this Programming isnt mein Programming Sory!!!

Dont mistake me pls!!! Lol!!!

YOU ARE AN IDIOT!!! M4Th3eR FuCK3R !!!

Yes, i AM ! ! ! NOOB! AND YOUR A LEECHER!!!!!

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 ...

try taking "Public" out or put code in module