Navigation Menu

[light 2012]

What’s the reason?

[light 2012]

Does that mean you will stop upgrade your programs??@Admin

[light 2012]

Where is wrong? Does this happen with you?

[light 2012]

?

[light 2012]

Yes i tried and get this code, but still doesn’t get names tO list box.
Don’t appear me any error message but the code not work

' path to Pal registry entry containing version info
Const PalVerRegLoc As String = "HKLMSOFTWAREMicrosoftWindowsCurrentVersionUninstallPalTalk8.2"
Const PalVerRegLoc10Beta As String = "HKLMSOFTWAREMicrosoftWindowsCurrentVersionUninstallPaltalk Messenger"
Const PalVerRegLocBuildNumber As String = "HKCUSoftwarePaltalk"
' PalTalk v10.2 beta build 450
Const SendTxtIndex10Beta450 As Integer = 3
Const ChaTxtIndex10Beta450 As Integer = 4
Const NicListIndex1010Beta450 As Integer = 5
' PalTalk v10
Const Outbound_InboundTextClass10 As String = "RichEdit20W"
Const SendTxtIndex10 As Integer = 2
Const ChaTxtIndex10 As Integer = 3
Const NicListIndex10 As Integer = 5
Const SplittrWindow10 As String = "SplitterWindowEx"
Const SplittrIndex10 As Integer = 4
Const SysListCtrlClass10 As String = "atl:00a2cff0"

Function NickGet()
Dim iHnd As Long
If Len(Combo1.Text) > 1 Then
FindTheWindow (Combo1.Text)
End If
'get nicks
iHnd = SystenViewHandle
Call GetListviewItem(iHnd)
End Function
Private Function SystenViewHandle() As Long
Dim iPHnd As Long
iPHnd = getPalSubForm(WindowClass, Combo1.Text, SplittrWindow10, SplittrIndex10)
SystenViewHandle = GetTheClassHnd(iPHnd, SysListView32index, "atl:00a2cff0")
Debug.Print ("SystenViewHandle- " & SystenViewHandle) ' for testing
End Function
Public Function GetTheClassHnd(ByVal ParentTargethwnd As Long, ByVal TargetIndex As Long, TargetCls As String) As Long
'Returns a class's handle
Dim retVal As Long
mTargetSubClass = TargetCls
mTargetSubClassIndex = TargetIndex
retVal = EnumChildWindows(ParentTargethwnd, AddressOf EnumChildProc, TargetIndex)
GetTheClassHnd = mSubFormHnd
End Function

[light 2012]

thanks

[light 2012]

i can get it by using PAT or JK’s API SPY 51

Function NickGet()
Dim dlggroupchatwindowclass As Long, splitterwindowex As Long, classcpanecontainerex As Long
Dim atlffdd As Long, syslistview As Long
dlggroupchatwindowclass = FindWindow("dlggroupchat window class", Form1.Combo1.Text)
splitterwindowex = FindWindowEx(dlggroupchatwindowclass, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString)
If classcpanecontainerex = 0 Then
cwndmembertree = FindWindowEx(splitterwindowex, 0&, "cwndmembertree", vbNullString)
syslistview = FindWindowEx(cwndmembertree, 0&, "syslistview32", vbNullString)
Else
classcpanecontainerex = FindWindowEx(splitterwindowex, classcpanecontainerex, "classcpanecontainerex", vbNullString)
atlffdd = GetWindow(classcpanecontainerex, GW_CHILD)
syslistview = FindWindowEx(atlffdd, 0&, "syslistview32", vbNullString)
End If
Call GetListviewItem(syslistview)
End Function

but i need to get it by same code string

[light 2012]

vb.net ?
what about vb6? please string

[light 2012]

Good work
how to get the names from a room to a listbox? in your example

[light 2012]

YES STRING

[light 2012]

When last comment consisting of two lines
If I used TextBox to display the last comment appear only the first line of the comment

[light 2012]

 

Call SendMessageStr(hwnd, EM_GETLINE, lngCount - 2, ByVal strBuffer2)
If InStr(1, strBuffer2, ": ", vbTextCompare) = 0 Then
Call SendMessageStr(hwnd, EM_GETLINE, lngCount - 3, ByVal strBuffer)
GetLastLineTextChat = strBuffer & vbNewLine & strBuffer2
Else
GetLastLineTextChat = strBuffer2
End If

Public Function GetLastLine()
On Error Resume Next

Dim splitterwindowex As Long, classcpanecontainerex As Long, atlaae As Long
Dim atlabb As Long, atlaxwin As Long, x As Long
Dim richeditw As Long
Dim mywindowclass As Long

mywindowclass = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
splitterwindowex = FindWindowEx(mywindowclass, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString)
atlaae = FindWindowEx(classcpanecontainerex, 0&, "atl:00a1ae40", vbNullString)
atlabb = FindWindowEx(atlaae, 0&, "atl:00a1b3b0", vbNullString)
atlaxwin = FindWindowEx(atlabb, 0&, "atlaxwin90", vbNullString)
atlaxwin = FindWindowEx(atlabb, atlaxwin, "atlaxwin90", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
richeditw = FindWindowEx(x, 0&, "richedit20w", vbNullString)

Form1.Text.Text = GetLastLineTextChat(richeditw)

when i used this code

Form1.Text.Text = GetLastLineTextChat(richeditw)

Why text1=first line not first and second line in last comment?

[light 2012]

How can I get nick without using PAT or JK’s api spy?

[light 2012]

I found the problem in my code and solved it 🙂
thanks autopilot and chike

[light 2012]

i don’t now
i need to get highlight the nicks in paltalk listview
i couldn’t modify my old code which was for paltalk 10.2 build 474
i used PAT or JK’s to find the code but not work

[Author]

Posts