Sub GetAttFromXML(strXML As String)
Dim XOMBuilder1 As XOMBuilder
XOMBuilder1.Initialize("XOMBuilder1")
XOMBuilder1.BuildFromString(strXML, "", Null)
End Sub
Sub XOMBuilder1_BuildDone(XOMDocument1 As XOMDocument, Tag As Object)
If XOMDocument1.IsInitialized Then
Dim RootElement As XOMElement
RootElement = XOMDocument1.RootElement
Log( RootElement.GetAttributeValueByName("IsAuthorisedDeviceResult"))
If RootElement.GetAttributeValueByName("IsAuthorisedDeviceResult") <> - 99999 Then
Main.DeviceAuthorised = True
End If
End If
End Sub