This is the code to a program i made to close cam windows faster for green nick users sense people like me who are green can have unlimited cam windows this will close it faster. if you use this give me credit some place or be shamed of how lame you are.

Code: Select all

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click()
Dim mywindowclass As Long
Dim X As Long

mywindowclass = FindWindow("my window class", vbNullString)
X = FindWindow("#32770", vbNullString)
Call SendMessageLong(X, WM_CLOSE, 0&, 0&)

If X = 0 Then
MsgBox "No! Cam Windows Open or This is a Older or Newer Version of Paltalk!", vbCritical, "Error!"
    Exit Sub
End If
End Sub

place this in the Command1 button and compile it thats all.

well ... I think if you exit the room ... all cams will closed ...

why close the room? if you only wanna close a few cams?

why using a software if you're closing few cams ... unless you have like 20 of them on the screen.

You have a very good idea though ... it takes more steps to load up the software and click on CLOSE wait for a few seconds for the program to go through and close ... why not exit the room and come back ..

say what you will i like this better then closing the room and rejoining it its dumb to leave just to close cams what if you miss a girl who is getting nude on cam? you leave for a sec you miss a good seen.

It was nice if this program could open all cams in room too in click of a button!! Hope to see it soon!