Skip to content

inSpeak GetText and SendText?

Viewing 8 posts - 1 through 8 (of 8 total)
  • Author
    Posts
  • June 29, 2005 at 5:24 pm #184186
    Johnny5
    Member

    Hello is anyone able to do GetText and SendText, please help me out 😆
    Departure or Syxx can you guys help?

    June 29, 2005 at 11:19 pm #184193
    Departure
    Member

    hey johhny, I have’nt tryed doing it with inspeak but its really not that hard, I will do an example for you when i get some free time (busy at the momment) maybe by the weekend i will post the source code example for you :O)

    June 30, 2005 at 12:31 am #184192
    Johnny5
    Member

    Great!! Departure, as you’ve discussed inSpeak code in Delphi not like Paltalk, so I do not know how to, anyway I’ll look at the example when you have it and learn from there. Thank you in advance

    July 1, 2005 at 4:45 pm #184191
    Departure
    Member

    hey johhny inspeak is going to have wait a little while longer as i just got my self baned from inSpeak. It took me over 3 hours to unpack there modifyed ASProtector, then after loggin on with the the unpacked version of inSpeak.exe i was kicked off and banned :O(
    But dont worry i am looking into how there bans works so i can get myself out of it. :O)

    July 1, 2005 at 8:21 pm #184190
    AhFox
    Member

    Congrats 🙂 Departure, When you found out … don’t forget to share it with me. Thanks bro !!

    Well I’m not into inSpeak yet … their sound quality is kidda low … so I don’t like it much … but here is some hints … I thought I may be helpful to you

    ‘ get HWND text chat

    Function GetMyWindow() as long

    ‘Variables
    Dim lParent as long
    Dim lChild(1 to 8) as long

    ‘Get Parent Window
    lParent = FindWindow(“TChatRoom”, “inSpeak Help Lobby – Help Voice Room”)
    ‘Get Child Window(s)
    lChild(1) = FindWindowEx(lParent, 0, “TSPanel”, “”)
    lChild(2) = FindWindowEx(lChild(1), 0, “TSPanel”, “”)
    lChild(3) = FindWindowEx(lChild(2), 0, “TSPanel”, “”)
    lChild(4) = FindWindowEx(lChild(3), 0, “TSPanel”, “”)
    lChild(5) = FindWindowEx(lChild(4), 0, “TSPanel”, “”)
    lChild(6) = FindWindowEx(lChild(5), 0, “TSPanel”, “”)
    lChild(7) = FindWindowEx(lChild(6), 0, “THTMLViewer”, “”)
    lChild(8) = FindWindowEx(lChild(7), 0, “TPaintPanel”, “”)

    GetMyWindow = lChild(8)

    End Function
    ‘ This function will return the handle to insPeak text chat

    after that you need to do the API thinggy to get the TEXT … 🙂
    If this hint is not enough tell me i’ll put more next time 🙂 …

    July 2, 2005 at 1:27 pm #184189
    Departure
    Member

    that sound pretty much it NVYE, you just

    TL = SendMessageLong(GetMyWindow&, WM_GETTEXTLENGTH, 0&, 0&)
    TheText = String(TL + 1, ” “)
    Call SendMessageByString(GetMyWindow&, WM_GETTEXT, TL + 1, TheText)
    TheText = Left(TheText, TL)

    then if you want to see what you have collected just copy whats in the string to richtext box or you could just send it directly to a textbox

    RTBox1.text = TheText <

    richtextbox
    or change “TheText = Left(TheText, TL)” to “Text1.text = Left(TheText, TL)” <

    normal textbox

    July 2, 2005 at 1:40 pm #184188
    Departure
    Member

    Johhny NOTE: im guessing NVYE has already checked the tree structure of the controls to get what he posted, if not just use an API spy (easyest way) to get the structure

    oh and what he seems to have is the lobby help desk room
    :O)

    July 22, 2005 at 9:22 am #184187
    vuongthacsi
    Member

    Seem that we cannot copy text from inspeak chatroom, i tried but did not work, anyone here tested out?

  • Author
    Posts

Related

Viewing 8 posts - 1 through 8 (of 8 total)
  • You must be logged in to reply to this topic.