Sign in to follow this  
Followers 0
Lakes

Get user List from Chat Room

8 posts in this topic

I am trying to read a list of users in a chat room at www.meetcam.com

The control I am trying to read is :

Control ID: 204

ClassNameNN: SysTreeView321

Heres the test code I have tried:

-------------------------------------------------------------------

#include <GUIConstants.au3>

GUICreate("AForm1", 180, 75, 192, 139)

$Ok = GUICtrlCreateButton("OK", 16, 24, 57, 25)

$Cancel = GUICtrlCreateButton("Cancel", 104, 24, 57, 25)

GUISetState(@SW_SHOW)

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

GUIDelete()

Exit

Case $msg = $Ok

ControlfOCUS ("Chat :: MeetCam.com - Microsoft Internet Explorer","",204)

$Text = ControlGetText ("Chat :: MeetCam.com - Microsoft Internet Explorer","",204)

MsgBox(64, "Test Read",$Text)

Case $msg = $Cancel

ExitLoop

EndSelect

WEnd

-------------------------------------------------------------------

As you can see its not returning any text.

Thanks for any help supplied.


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites



I am trying to read a list of users in a chat room at www.meetcam.com

The control I am trying to read is :

Control ID: 204

ClassNameNN: SysTreeView321

Heres the test code I have tried:

-------------------------------------------------------------------

{SNIP}

As you can see its not returning any text.

Thanks for any help supplied.

I think you might want to do some research here.

http://www.autoitscript.com/forum/index.php?showtopic=13398

Share this post


Link to post
Share on other sites

I think you might want to do some research here.

http://www.autoitscript.com/forum/index.php?showtopic=13398

I don't know if this works for IE, but I got a similar control to work, SysListView321. Here's a snippet of my code:

;Options
Opt("WinTitleMatchMode", 4) ;1=start, 2=subStr, 3=exact, 4=advanced

Local $title = "Services"
Local $control = "SysListView321"
Local $sub = "McAfee"

Run(@COMSPEC& " /c Start c:\windows\system32\services.msc")
WinWaitActive("Services","Services (Local)")

;Find currently running McAfee Services
$count = 0
Dim $services[10]
$numItems = ControlListView($title,"",$control,"GetItemCount")
For $i = 0 To $numItems - 1
    If StringInStr(ControlListView($title,"",$control,"GetText",$i), $sub) <> 0 Then
        If ControlListView($title,"",$control,"GetText",$i,2) = "Started" Then
            $services[$count] = $i
            $count = $count + 1
        EndIf
    EndIf
Next

[u]My UDFs[/u]Coroutine Multithreading UDF LibraryStringRegExp GuideRandom EncryptorArrayToDisplayString"The Brain, expecting disaster, fails to find the obvious solution." -- neogia

Share this post


Link to post
Share on other sites

USE CODE WINDOWS PLEASE !!!!


-jaenster

Share this post


Link to post
Share on other sites

USE CODE WINDOWS PLEASE !!!!

Sorry, How do I do this?


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites

Sorry, How do I do this?

like this

[ code] ; no spaces

; post code

[ /code] ; no spaces

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

It opens Full Screen with no way for me to shink it and it freezes\crashes on me when I try to the get web page I want to look at.

I`ll have to learn how to use the IE libary...

Thanks for your help anyway.


2015 - Still no flying cars, instead blankets with sleeves.

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  
Followers 0