vb.net get pal room name & send text

hi guy
anyone tried to findpalwindows & get text chat in vb.net please help
i tried to convert source from vb6 to vb.net but however it give alot off error please help

thnks

15 thoughts on “vb.net get pal room name & send text

  1. @jimmyng wrote:

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

    i dont have the samples or screen shots, so hopefully loco has good backups and restores them.

    all the code samples you need are in the posts i pointed you to before. i am done with those too lazy to read and learn for themselves.

  2. the only thing i see wrong with your code, and it should not cause intermitant working, is your sendmessage call

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

    SendMessage returns an integer and not a string, but VB should do the type convertion without causing any errors.

    show us your SendMessageString decleration

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

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

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

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

     

Leave a Reply

You must Register or Login to comment on vb.net get pal room name & send text