For example
i downloaded this file
i guess thie file will let me know a room code
anyway
i’ve download the file and it gave me a code like this
Attribute VB_Name = "modPaltalk"
Option Explicit
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
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 GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Global lngRhWnd As Long ' global to store handle
Global strWindowTitle As String ' global to store title
Global strClassname As String ' global to store class
Private Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hWnd)
sSave = Space(Ret)
GetWindowText hWnd, sSave, Ret + 1
If InStr(sSave, " Group") Then
lngRhWnd = Str$(hWnd)
strClassname = GetClass(lngRhWnd)
strWindowTitle = GetWinTitle(lngRhWnd)
End If
EnumWindowsProc = True
End Function
Public Function GetPalWindow(Optional strClassname As String) As Long
Dim retval As Boolean
retval = EnumWindows(AddressOf EnumWindowsProc, 0)
strClassname = GetClass(lngRhWnd)
GetPalWindow = lngRhWnd
End Function
Private Function GetClass(hWnd As Long)
Dim sSave As String, intLenRet As Integer
sSave = Space(256)
intLenRet = GetClassName(hWnd, sSave, 256)
GetClass = Left$(sSave, intLenRet)
End Function
Private Function GetWinTitle(hWnd As Long) As String
GetWinTitle = GetText(hWnd)
End Function
Private Function GetText(lnghWnd As Long) As String
Dim TheText As String, TL As Long, XT As Long
TL = GetWindowTextLength(lnghWnd)
TheText = String(TL + 1, " ")
XT = GetWindowText(lnghWnd, TheText, TL + 1)
TheText = Left(TheText, TL)
GetText = TheText
End Function
and this code is for paltalk
i want to know where do i have to put this code to work
it’s a VB code
do you undresyand?
thank you