Navigation Menu

[jimmyng]

hi Guys

did you try this in VB2008 please help
can’t get it work 🙁

[jimmyng]

got it work
thnks

[jimmyng]

i tried this way work fine for me

Dim Textlen = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, Nothing)

Dim zText As New StringBuilder(Textlen)

Textlen = SendMessageString(hwnd, WM_GETTEXT, Textlen, zText)

this still intermiant

iLastLine = SendMessage(hwnd, EM_GETLINECOUNT, 0, 0)

sChatText = SendMessageString(hwnd, EM_GETLINE,iLastLine – 2,strBuffer)

use: VS 2010 (win7)

[jimmyng]

it work but seem still unstable for me did you tried the old way like use :

Textlen = SendMessage(Ihwnd, WM_GETTEXTLENGTH, 0, 0)



zText = Space$(Textlen)

Textlen = SendMessage(Ihwnd, WM_GETTEXT, Textlen, ByVal zText)

GetRoomText = Left$(zText, Textlen)

this<> is not allow how to fix this issue

[jimmyng]

autopilot <<>this your

[jimmyng]

Got it work!!! Thank 😆 😆

[jimmyng]

Got it work!!! Thank 😆 😆

[jimmyng]

HI,
this is how i did but it return intermitant & don’t know why 😡 😡 😥 😥
please help …

 

 Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Public ClassName As String = String.Empty
Public Const StringBufferLength As Integer = 255
Public Const GW_CHILD As Long = 5
Public Const GW_HWNDNEXT = 2
'Public Const WM_GETTEXTLENGTH = &HE
'Public Const WM_GETTEXT = &HD
Public Const EM_GETLINECOUNT = &HBA
Public Const EM_GETLINE = &HC4

'


Public Function GetLastLineTextChat(ByVal hwnd As Integer) As String
Dim iLastLine As Integer
DimstrBuffer As New StringBuilder(255) 'String

iLastLine = SendMessage(hwnd, EM_GETLINECOUNT, 0, 0)

sChatText = SendMessageString(hwnd, EM_GETLINE,iLastLine - 2,strBuffer)
Return strBuffer.ToString
End Function
'

' <<<<>>
'

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'ReadTxtHnd()

Dim sChatText As String = GetLastLineTextChat(ReadTxtHnd)
Me.RichTextBox2.Text = (sChatText)
End Sub

'

Public Function ReadTxtHnd() As Integer ' Incoming Chat Box
iHnd = mdlGetHnd.SubFormHndByClassNameWithMWClassWithPartialMWCaption(mdlPalInfo.ChatRoomClass, Me.cbxRoomName.Text, mdlPalInfo.SplitterClass, mdlPalInfo.SplitterIndex)
' MsgBox(iHnd)
iHnd = mdlGetHnd.SubFormHndByClassNameWithMWHnd(iHnd, mdlPalInfo.ChatTextClass, mdlPalInfo.ReadTextIndex)
' Me.RichTextBox2.Text = sChatText
Return iHnd

 

[jimmyng]

hi autopilot
i tried this code it seem working fine ,,,,however when i run it click on button some time it return with text sometime nothing please help…

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘ReadTxtHnd()

Dim sChatText As String = GetLastLineTextChat(ReadTxtHnd)
Me.RichTextBox2.Text = (sChatText)
End Sub

‘

---

Public Function GetLastLineTextChat(ByVal hwnd As Integer) As String
Dim iLastLine As Integer
DimstrBuffer As New StringBuilder(255) ‘String

iLastLine = SendMessage(hwnd, EM_GETLINECOUNT, 0, 0)

sChatText = SendMessageString(hwnd, EM_GETLINE,iLastLine – 2,strBuffer)
Return strBuffer.ToString
End Function
‘

---

Public Function ReadTxtHnd() As Integer ‘ Incoming Chat Box
iHnd = mdlGetHnd.SubFormHndByClassNameWithMWClassWithPartialMWCaption(mdlPalInfo.ChatRoomClass, Me.cbxRoomName.Text, mdlPalInfo.SplitterClass, mdlPalInfo.SplitterIndex)
‘ MsgBox(iHnd)
iHnd = mdlGetHnd.SubFormHndByClassNameWithMWHnd(iHnd, mdlPalInfo.ChatTextClass, mdlPalInfo.ReadTextIndex)
‘ MsgBox(iHnd)
‘ Me.RichTextBox2.Text = sChatText
Return iHnd

End Function

[jimmyng]

Thank Autopilot for ur reply

do you still have these sample code with you please post & how to find pal windows too
thank in advance

[jimmyng]

hi guys i couldn’t get userstatus work don’t know why please send me the sample thanks guys 😥

[jimmyng]

is this work for paltalk 9.4
do you have vb6 source ??

thank

[jimmyng]

hi

i tried the code it work for 9.2 but not work for 9.4 i still don’t know why

any idea ??pls

thanks

[jimmyng]

cannot get it wok

child = FindWindowEx(parent, 0, "WTL_SplitterWindow", vbNullString)
child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)
child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)
child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)

alt = GetWindow(child, GW_Child)

alt = GetWindow(alt, GW_HWNDNEXT)

alt = FindWindowEx(alt, 0, "AtlAxWin71", vbNullString)
alt = FindWindowEx(alt, 0, "#32770", vbNullString)

rich20 = FindWindowEx(alt, 0, "RichEdit20A", vbNullString)
rich20 = FindWindowEx(alt, rich20, "RichEdit20A", vbNullString)

Call SendMessageSTRING(rich20, WM_SETTEXT, 0&, Text$)
Call SendMessageLong(rich20, WM_KEYDOWN, 13, 0&)

 

please help

[jimmyng]

use the hex editor maybe you can fix it what ur paltalk build ver of 8.1 anh what is 8.2

[Author]

Posts