Jump to content
Sign in to follow this  
RiCK_420_333

Get Text from Stickam.com chatroom

Recommended Posts

I need to get the chatroom text from the stickam chatroom Music Chat

(a link to my chatroom is provided here: http://www.HeavensDaemon.com/MusicChat.php )

I want to be able to retrieve the text sent to the room, so I can use it for various actions.

Global $WindowTitle = "http://www.stickam.com - Chatroom - Music Chat - Mozilla Firefox"
;Global $WindowClass = "MozillaWindowClass5"
Global $WindowClass = "[CLASSNN:MozillaWindowClass5]"
Global $WindowHandle
Global $TheText

Func Start()
    $StatusCheckBox1 = GUICtrlRead($CheckBox1)
    $StatusCheckBox2 = GUICtrlRead($CheckBox2)
    $StatusCheckBox3 = GUICtrlRead($CheckBox3)
    GUISetState(@SW_HIDE)
    WinSetState($WindowTitle, "", @SW_MINIMIZE)
    sleep(1333)
    WinSetState($WindowTitle, "", @SW_RESTORE)
    sleep(1333)
    WinActivate($WindowTitle)
    sleep(3333)
    WinWaitActive ($WindowTitle)
    If $StatusCheckBox3 = 4 Then    _Say('Program is now running!')
    ;ControlGetHandle("Title", "", "[CLASSNN:Edit1]")
    ;$WindowHandle = ControlGetHandle($WindowTitle, "", $WindowClass)
    $TheText = ControlGetText($WindowTitle, "", $WindowClass)
    ConsoleWrite($TheText)
    If $StatusCheckBox3 = 4 Then    _Say($TheText)
    MsgBox(0, "Text read was:", $TheText)
EndFunc

Any help or suggestion will be very much appreciated!! Thank you all!!

~RiCK

Share this post


Link to post
Share on other sites

Might I ask why you need this? Please do not see me asking this as an insult, but a lot of people are into making bots these days, and we cannot be to careful.


Spoiler

 

"If a vegetarian eats vegetables,What the heck does a humanitarian eat?"

"I hear voices in my head, but I ignore them and continue on killing."

"You have forced me to raise the indifference warning to beige, it's a beige alert people. As with all beige alerts please prepare to think about the possibility of caring."

An optimist says that giving someone power DOESN'T immediately turn them into a sadist. A pessimist says that giving someone power doesn't IMMEDIATELY turn them into a sadist.

 

 

Share this post


Link to post
Share on other sites

Func Start()
    $StatusCheckBox1 = GUICtrlRead($CheckBox1)
    $StatusCheckBox2 = GUICtrlRead($CheckBox2)
    $StatusCheckBox3 = GUICtrlRead($CheckBox3)
    GUISetState(@SW_HIDE)
    WinActivate($WindowTitle)
    $WindowHandle = WinGetHandle("http://www.stickam.com - Chatroom -", "")
    MsgBox(0, "Window Handle:", $WindowHandle)
    $WindowTitle = ControlGetText("", "", $WindowHandle)
    MsgBox(0, "Window Title", $WindowTitle)
        ; Down to this point I have successfully found my main windows handle, and also retrieved it's full title dynamically.
        ; Now I need to Enum the Child Windows or Controls to find my edit box for typing, and edit control for displayed text. 
        ; This is where I seem to be stuck, and could use some enlightenment.  I need FindWindowEx ?
EndFunc

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...