Jump to content
Sign in to follow this  
Lakes

Get user List from Chat Room

Recommended Posts

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

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...