Description

Let’s say we need to retrieve a number of megabytes from under “Lots of space” category.

First, we need to explore the GUI implementation. If we’re lucky, this text node may have a unique class or ID value. Then it becomes a one-step search as in the code example below.

However, if the text node doesn’t have distinct identification properties we have to locate it through one of parents/grandparents that can be identified reliably. Then in the context of the parent we can locate the target text and extract it.

Implementation

 Dim PropNames, PropValues, IEProcess
 Dim objSpan1, objParent
 'Before running this code example make sure Google Mail Login page is up in IE
 PropNames = Array("processname", "index")
 PropValues = Array("iexplore", 1)
 Set IEProcess = Sys.FindChild(PropNames, PropValues, 1, True)
 If Not IEProcess.Exists Then
 'not found - exit
 End If
 '1 - Locating span by html ID
 PropNames = Array("ObjectType", "idStr")
 PropValues = Array("TextNode", "quota")
 Set objSpan1 = IEProcess.FindChild(PropNames, PropValues, 100, True)
 MsgBox objSpan1.contentText
 '2 - Locating span via parent object
 'Get parent
 PropNames = Array("ObjectType", "tagName", "className")
 PropValues = Array("Panel", "div", "product-info mail")
 Set objParent = IEProcess.FindChild(PropNames, PropValues, 100, True)
 'Get paragraph in parent
 PropNames = Array("tagName", "contentText")
 PropValues = Array("P", "*megabytes*")
 Set objSpan1 = objParent.FindChild(PropNames, PropValues, 100, True)
 'Little parsing to retrieve the number
 MsgBox Mid(Left(objSpan1.contentText, InStr(objSpan1.contentText, "megabytes")-1), 5)