NewWebClass.qfl


Public strRepPath, objFound, intContext
strRepPath = "Z:\TMD\TMD_OR\TMD_OR.tsr"
objFound = ""
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Class c_WebObject

	'------------------------------------------------------------------
	Private Sub Class_Initialize()
    Dim blnAlreadyInit
		On Error Resume Next    
		blnAlreadyInit = IsObject(Environment("OR"))
		If Err.Number <> 0 Then blnAlreadyInit = False 
		On Error Goto 0
		If blnAlreadyInit = True Then    
			If Environment("OR") Is Nothing Then 
				blnAlreadyInit = False
			End If
		End If
		If blnAlreadyInit = False Then   
			Environment("OR") = CreateObject("Mercury.ObjectRepositoryUtil")
			LoadOR
		End If
		
	End Sub
	'------------------------------------------------------------------
	Private Sub LoadOR()
	Dim strORPath
		strORPath = PathFinder.Locate(strRepPath)
		Environment("OR").Load(strORPath)
	End Sub
	'------------------------------------------------------------------
	Private Function g_GetChildObjects (ByVal node, ByRef str, ByVal parent, ByVal LogicalName, ByVal strClassName)
	Dim children
	Dim strTemp
	Dim icount
		icount = 0
		Set children = Environment("OR").GetChildren(node)
		If children.Count <> 0 Then
			For i = children.Count -1 To 0 Step -1
				If Environment("OR").GetLogicalName(children.Item(i)) = LogicalName Then
					If children.Item(i).GetToProperty("Class Name") = strClassName Then
						str = parent & "." & children.Item(i).GetToProperty("Class Name") & "(""" & Environment("OR").GetLogicalName(children.Item(i)) & """)"
						Set children = Nothing
						strTemp = Right (str, Len(str) -1)
						If objFound = "" Then
							Execute "Set thisObj = " & strTemp
							If thisObj.Exist(1) Then
								Do While thisObj.GetROProperty("disabled") <> 0
									Wait 1
									icount = icount + 1
									If icount > 30 Then
										Reporter.ReportEvent micFail, "Object Disabled", "Found [" & strClassName & "] object with name [" & LogicalName & "] but it has been disabled for more than 30 seconds. Cannot continue, please check application."
										ExitTest
									End If
								Loop
								objFound = thisObj.ToString
								objFound = strTemp
							End If
						End If
						Exit Function
					End If
				End If
			Next
			For i = children.Count -1 To 0 Step -1
				If objFound <> "" Then Exit Function
				parentStr = parent & "." & children.Item(i).GetToProperty("Class Name") & "(""" & Environment("OR").GetLogicalName(children.Item(i)) & """)"
                g_GetChildObjects children.Item(i), str, parentStr, LogicalName, strClassName
            Next
		End If
		       
	End Function
	'------------------------------------------------------------------
	Function g_GetChildObjects_Orig (ByVal node, ByRef str, ByVal parent, ByVal LogicalName)
	Dim children, i, parentStr, found
   
		Set children = Environment("OR").GetChildren(node)
		If children.Count <> 0 Then
			For i = children.Count -1 To 0 Step -1
				If Environment("OR").GetLogicalName(children.Item(i)) = LogicalName Then
					str = parent & "." & children.Item(i).GetToProperty("Class Name") & "(""" & Environment("OR").GetLogicalName(children.Item(i)) & """)"
					Set children = Nothing
					Exit Function
				End If
			Next
			For i = children.Count -1 To 0 Step -1
				parentStr = parent & "."& children.Item(i).GetToProperty("Class Name") & "(""" & Environment("OR").GetLogicalName(children.Item(i)) & """)"
				g_GetChildObjects_Orig children.Item(i), str, parentStr, LogicalName
			Next 
		End If
	End Function
	'------------------------------------------------------------------
	Public Function DoesObjectExist(strObjName, strObjType, iTimeout)
	Dim blnWait
	Dim iCount
	
	    '	Reset the global objFound variable
		objFound = ""
		iCount = 0
		Do
			strL = ""
			g_GetChildObjects Null, strL, "", strObjName, strObjType
			If objFound <> "" Then
				DoesObjectExist = True
				Exit Function
			Else
				Wait 1
				iCount = iCount +1
			End If 
		Loop Until iCount > iTimeout

		'	Return a false if we get here 
		DoesObjectExist = False
		
	End Function
	'------------------------------------------------------------------
	Public Function ReturnObject(strObjName, strObjType)
	    '	Reset the global objFound variable
		objFound = ""
		If DoesObjectExist(strObjName, strObjType, 5) = False Then
			Reporter.ReportEvent micFail, "Automation Error - [Return Object]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		Set ReturnObject = thisObj.Object
	End Function
	'------------------------------------------------------------------
	Public Function GetROProp(strObjName, strObjType, strProperty)
	    '	Reset the global objFound variable
		objFound = ""
		If DoesObjectExist(strObjName, strObjType, 5) = False Then
			Reporter.ReportEvent micFail, "Automation Error - [Get Object Property]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		GetROProp = thisObj.GetROProperty(strProperty)
	End Function
	'------------------------------------------------------------------
	Public Function SetObject(strObjName, strObjType)
	    '	Reset the global objFound variable
		objFound = ""
		If DoesObjectExist(strObjName, strObjType, 5) = False Then
			Reporter.ReportEvent micFail, "Automation Error - [Set Object]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			ExitTest
		Else
			Execute "Set SetObject = " & objFound
		End If  
	End Function
	'------------------------------------------------------------------
	Public Function ObjectWait(strObjName, strObjType, strProperty, strWaitValue, iWaittime)
	    '	Reset the global objFound variable
		objFound = ""
		If DoesObjectExist(strObjName, strObjType, 5) = False Then
			Reporter.ReportEvent micFail, "Automation Error - [Object Wait]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		ObjectWait = thisObj.WaitProperty(strProperty, strWaitValue, iWaittime)
	End Function
	'------------------------------------------------------------------
	Public Sub SetTOProp(strObjName, strObjType, strProperty, strValue)
	    '	Reset the global objFound variable
		objFound = ""
		GetObjectLogicalName strObjName
		If objFound = "" Then 
			Reporter.ReportEvent micFail, "Automation Error - [Set TO Prop]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		thisObj.SetTOProperty strProperty, strValue
	End Sub
	'------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strObjType, strEvent)
		'	Reset the global objFound variable
		objFound = ""
		If DoesObjectExist(strObjName, strObjType, 5) = False Then
			Reporter.ReportEvent micFail, "Automation Error - [Fire Event]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		thisObj.FireEvent strEvent
	End Sub
	'------------------------------------------------------------------
	Public Sub HighlightObject(strObjName, strObjType)
		'	Reset the global objFound variable
		objFound = ""
		If DoesObjectExist(strObjName, strObjType, 5) = False Then
			Reporter.ReportEvent micFail, "Automation Error - [HighlightObject]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			Exit Sub
		End If  
		Execute "Set thisObj = " & objFound
		thisObj.Highlight
		Set thisObj = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Sub ObjectInit(strObjName, strObjType)
		'	Reset the global objFound variable
		objFound = ""
		If DoesObjectExist(strObjName, strObjType, 5) = False Then
			Reporter.ReportEvent micFail, "Automation Error - [HighlightObject]", "The object [" & strObjName & "] of object type [" & strObjType & "] could not be found, please check."
			Exit Sub
		End If  
		Execute "Set thisObj = " & objFound
		thisObj.Init
		Set thisObj = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Function DPObject(strObjDesc, strObjType)
	Dim objDesc, objFrameDesc, objFrames, objFrame, objCollection
	Dim blnFound

		Set objFrameDesc = Description.Create()
		objFrameDesc("micclass").Value = "Frame"
			
		Set objDesc = Description.Create()
		Select Case strObjType
			Case "WebList"
				objDesc("micclass").Value = "WebList"
				objDesc("html tag").Value = "SELECT"
			Case "WebEdit"
                objDesc("micclass").Value = "WebEdit"
				objDesc("html tag").Value = "INPUT"
			Case "WebButton"
                objDesc("micclass").Value = "WebButton"
				objDesc("html tag").Value = "BUTTON"
			Case "WebCheckBox"
                objDesc("micclass").Value = "WebCheckBox"
				objDesc("html tag").Value = "INPUT"
			Case "WebRadioGroup"
                objDesc("micclass").Value = "WebRadioGroup"
				objDesc("html tag").Value = "INPUT"
			Case "WebLink"
				objDesc("micclass").Value = "Link"
				objDesc("html tag").Value = "A"
			Case "WebFile"
				objDesc("micclass").Value = "WebFile"
				objDesc("html tag").Value = "INPUT"
			Case "WebTable"
				objDesc("micclass").Value = "WebTable"
				objDesc("html tag").Value = "TABLE"
			Case "WebElement"
				objDesc("micclass").Value = "WebElement"
		End Select
		
		'	Split the string by the | chars
		arrSplit = Split(strObjDesc, "|")
		For Each First In arrSplit
			'	Now Split key value pairs
			arrKeys = Split(First, ":=")
			'	Add key/value pairs to description object
			objDesc(arrKeys(0)).Value = arrKeys(1)
		Next

		'	Get all the frames on screen
		Set objFrames = Browser("creationtime:=0").Page("micclass:=Page").ChildObjects(objFrameDesc)
		For i = 0 To objFrames.Count -1
			Set objFrame = objFrames.Item(i)
			Set objCollection = objFrame.ChildObjects(objDesc)
				   
				If objCollection.Count > 0 Then
					For j = 0 To objCollection.Count -1
						Set thisObj = objCollection.Item(j)
						If thisObj.Exist(1) Then
							Set DPObject = thisObj
							Exit Function
						Else
							blnFound = False
						End If
					Next
				End If
		Next
		If blnFound = False Then
			Reporter.ReportEvent micFail, "DP Object Not Found", "The DP Object with descriptive properties of [" & strObjDesc & "] of object type [" & strObjType & "] could not be found. Please check your descriptive properties. Aborting..."
			ExitTest
		End If
	End Function
	'------------------------------------------------------------------
	Private Sub Class_Terminate
	   Environment("OR") = Nothing
	End Sub
End Class
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebList
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'---------------------------------------------------------------------------
	Public Sub SingleSelect(strObjName, strSelection)
	Dim objfocus, thisObj
	Dim blnFound
	Dim rd

		'	See if the object name is really a DP description
		If Instr(1, strObjName, ":=") Then
			Set thisObj = m_WebObject.DPObject(strObjName, "WebList")
		Else
			If m_WebObject.DoesObjectExist(strObjName, "WebList", 15) = False Then
				Reporter.ReportEvent micFail, "WebList Select", "The WebList object [" & strObjName & "] could not be found. Aborting..."
				ExitTest
			Else
				Execute "Set thisObj = " & objFound
			End If
		End If

		If thisObj.GetROProperty("items count") = 1 Then
			thisObj.FireEvent "onclick"
			Wait(1)
			If thisObj.GetROProperty("items count") = 1 Then
				thisObj.FireEvent "onclick"
			End If
			Wait(2)
		End If
		If Left(strSelection, 1) <> "#" Then
			For i = 1 To thisObj.GetROProperty("items count")
				rd = thisObj.GetItem(i)
				'	See if this matches our value
				If Instr(1, UCase(rd), UCase(strSelection)) Then
					If Len(rd) > Len(strSelection) Then
						blnFound = False
					Else
						blnFound = True
						Exit For
					End If
				Else
					blnFound = False
				End If
			Next
			If blnFound = True Then
				Set objfocus = thisObj.object
				objfocus.focus
				thisObj.Select "#" & i - 1
				thisObj.Init
			Else
				Reporter.ReportEvent micFail, "WebList Select", "WebList [" & strObjName & "] found but selection value [" & strSelection & "] not found in list. Please check input data and application. Aborting..."
				ExitTest
			End If
		Else
			On Error Resume Next
			Set objfocus = thisObj.object
			objfocus.focus
			On Error GoTo 0
			thisObj.Select strSelection
			thisObj.Init
		End If

	End Sub
	'---------------------------------------------------------------------------
	Public Sub MultiSelect(strObjName, strSelection)

		'	Run the base class code to see if object exists
		If m_WebObject.DoesObjectExist(strObjName, "WebList", 15) = False Then
            Reporter.ReportEvent micFail, "WebList Select", "The WebList object [" & strObjName & "] could not be found. Aborting..."
			ExitTest
		End If
		
		'	Make a reference to the object found
		Execute "Set thisObj = " & objFound

		'	See if our selection is just one item or many separated by the pipe | char
		If Instr(1, strSelection, "|") Then
			arrSplit = Split(strSelection, "|")
			For Each Ele In arrSplit
				On Error Resume Next
				thisObj.ExtendSelect Ele
				thisObj.Init
				If Err.Number <> 0 Then
					Reporter.ReportEvent micFail, "WebList Multi-Select", "The WebList object [" & strObjName & "] was found but the option [" & Ele & "] could not be found in the list. Aborting..."
					ExitTest
				End If
				On Error GoTo 0
			Next
		Else
			On Error Resume Next
			thisObj.ExtendSelect strSelection
			thisObj.Init
			If Err.Number <> 0 Then
				Reporter.ReportEvent micFail, "WebList Multi-Select", "The WebList object [" & strObjName & "] was found but the option [" & strSelection & "] could not be found in the list. Aborting..."
				ExitTest
			End If
			On Error GoTo 0
		End If
	   
	End Sub
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebList", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebList", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebList", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function Click(strObjName)

		'	Run the base class code to see if object exists
		If m_WebObject.DoesObjectExist(strObjName, "WebList", 15) = False Then
            Reporter.ReportEvent micFail, "WebList Select", "The WebList object [" & strObjName & "] could not be found. Aborting..."
			ExitTest
		End If
		
		'	Make a reference to the object found
		Execute "Set thisObj = " & objFound
		Click = thisObj.Click
		thisObj.Init
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebList")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebList"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebList", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "WebList"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebList"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebList", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebList()
	Set c_WebList = New clsWebList
End Function

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebRadioGroup
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Function SelectItem(strObjName, strValue)
	Dim strAll
	Dim flagExist

		 '	Reset the global objFound variable
		objFound = ""
	
		'	See if we can find the object by it's name
		If m_WebObject.DoesObjectExist(strObjName, "WebRadioGroup", 15) = False Then
			Reporter.ReportEvent micFail, "Select Radio Button", "The radio button [" & strObjName & "] could not be found. Aborting..."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		strAll =  thisObj.GetROProperty("all items")
		strSplit = Split(strAll,";")
		flagExist = 0
		For i=0 to UBound(strSplit ) 
			If strSplit(i) = Cstr(strValue)  Then
				thisObj.Select strValue
				flagExist = 1
				thisObj.Init
				Exit For
			End If
		Next
		If flagExist = 0 Then
			 Reporter.ReportEvent micFail, "Select from "& strName & " Radio button group.", "The item "& strValue & "  is not present in the Radio button group."			
			 ExitTest		
		End If

	End Function
	'------------------------------------------------------------------
	Public Function Click(strObjName)
	Dim strAll
	Dim flagExist
		
		If m_WebObject.DoesObjectExist(strObjName, "WebRadioGroup", 15) = False Then
			Reporter.ReportEvent micFail, "Select Radio Button", "The radio button [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		thisObj.Click  
		thisObj.Init
	End Function
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebRadioGroup", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebRadioGroup", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebRadioGroup", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebRadioGroup")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebRadioGroup"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebRadioGroup", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "WebRadioGroup"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebRadioGroup"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebRadioGroup", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebRadioGroup()
	Set c_WebRadioGroup = New clsWebRadioGroup
End Function

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebButton
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Click(strObjName)
	Dim objfocus
		
		If m_WebObject.DoesObjectExist(strObjName, "WebButton", 15) = False Then
			Reporter.ReportEvent micFail, "Button Click", "The button [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		On Error Resume Next
		Set objfocus = thisObj.object
		objfocus.focus
		On Error GoTo 0
		thisObj.Click	 
		thisObj.Init   	 
	End Sub
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebButton", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebButton", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebButton", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebButton")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebButton"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebButton", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "WebButton"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebButton"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebButton", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebButton()
	Set c_WebButton = New clsWebButton
End Function
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebEdit
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Sub SetText(strObjName, strTextToEnter)
	Dim objfocus

		'	See if we can find the object by it's name
		If m_WebObject.DoesObjectExist(strObjName, "WebEdit", 15) = False Then
			Reporter.ReportEvent micFail, "Edit Set", "The edit field [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound

		On Error Resume Next
		Set objfocus = thisObj.object
		objfocus.focus
		On Error GoTo 0
		thisObj.Set strTextToEnter
		thisObj.Init
		
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Click(strObjName)
	Dim objfocus
		
		If m_WebObject.DoesObjectExist(strObjName, "WebEdit", 15) = False Then
			Reporter.ReportEvent micFail, "WebEdit Click", "The WebEdit object [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound
		On Error Resume Next
		Set objfocus = thisObj.object
		objfocus.focus
		On Error GoTo 0
		thisObj.Click	 
		thisObj.Init   	 
	End Sub
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebEdit", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebEdit", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebEdit", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebEdit")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebEdit"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebEdit", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "WebEdit"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebEdit"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebEdit", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebEdit()
	Set c_WebEdit = New clsWebEdit
End Function
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebCheckBox
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Sub Tick(strObjName, strFieldValue)
	Dim objfocus
	
		'	See if we can find the object by it's name
		If m_WebObject.DoesObjectExist(strObjName, "WebCheckBox", 15) = False Then
			Reporter.ReportEvent micFail, "Check Box", "The check box field [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound

		On Error Resume Next
		Set objfocus = thisObj.object
		objfocus.focus
		On Error GoTo 0
		If UCase(strFieldValue) = "ON" And thisObj.GetROProperty("checked") = True Then
			Exit Sub
		End If
		If UCase(strFieldValue) = "ON" And thisObj.GetROProperty("checked") = False Then
			thisObj.Set "ON"
		End If
		If UCase(strFieldValue) = "OFF" And thisObj.GetROProperty("checked") = False Then
			Exit Sub
		End If
		If UCase(strFieldValue) = "OFF" And thisObj.GetROProperty("checked") = True Then
			thisObj.Set "OFF"
		End If
		thisObj.Init

	End Sub

	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebCheckBox", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebCheckBox", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebCheckBox", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebCheckBox")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebCheckBox"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebCheckBox", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "WebCheckBox"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebCheckBox"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebCheckBox", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebCheckBox()
	Set c_WebCheckBox = New clsWebCheckBox
End Function
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsLink
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Sub Click(strObjName)
	Dim objfocus
	
		'	See if we can find the object by it's name
		If m_WebObject.DoesObjectExist(strObjName, "Link", 15) = False Then
			Reporter.ReportEvent micFail, "Link Click", "The link [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound

		On Error Resume Next
		Set objfocus = thisObj.object
		objfocus.focus
		On Error GoTo 0
		thisObj.Click			 
		thisObj.Init

	End Sub
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "Link", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "Link", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "Link", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "Link")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "Link"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "Link", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "Link"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "Link"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "Link", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebLink()
	Set c_WebLink = New clsLink
End Function
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebElement
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Sub WebElementClick(strObjName)
	Dim objfocus

		'	See if we can find the object by it's name
		If DoesObjectExist(strObjName, "WebElement", 5) = False Then
			Reporter.ReportEvent micFail, "Click WebElement Object", "The object [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound

		On Error Resume Next
		Set objfocus = thisObj.object
		objfocus.focus
		On Error GoTo 0
		thisObj.Click			 
		thisObj.Init
		
	End Sub
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebElement", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebElement", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebElement", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebElement")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebElement"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebElement", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		If Instr(1, strObjName, ":=") Then
			Set thisObj = m_WebObject.DPObject(strObjName, "WebElement")
			thisObj.Highlight
		Else
			m_WebObject.HighlightObject strObjName, "WebElement"
		End If
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebElement"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebElement", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebElement()
	Set c_WebElement = New clsWebElement
End Function
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebFile
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Sub EnterText(strObjName, strTextToEnter)
	Dim objfocus
		
	   If m_WebObject.DoesObjectExist(strObjName, "WebFile", 15) = False Then
			Reporter.ReportEvent micFail, "WebFile Set", "The WebFile field [" & strObjName & "] could not be found."
			ExitTest
		End If  
		Execute "Set thisObj = " & objFound

		On Error Resume Next
		Set objfocus = thisObj.object
		objfocus.focus
		On Error GoTo 0
		thisObj.Set strTextToEnter
		thisObj.Init
		
	End Sub
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebFile", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebFile", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebFile", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebFile")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebFile"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebFile", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "WebFile"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebFile"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebFile", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebFile()
	Set c_WebFile = New clsWebFile
End Function
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsWebTable
Private m_WebObject

	Private Sub Class_Initialize
		Set m_WebObject = New c_WebObject
	End Sub
	Private Sub Class_Terminate
	   Set thisObj = Nothing
	   Set m_WebObject = Nothing
	End Sub
	'------------------------------------------------------------------
	Public Function WebTableGetData(strObjName, iRow, iCol)

		If m_WebObject.DoesObjectExist(strObjName, "WebTable", 15) = False Then
			Reporter.ReportEvent micFail, "Web Table Get Data", "The object [" & strObjName & "] of object type [WebTable] could not be found, please check."
			WebTableGetData = False
			Exit Function
		End If  
		Execute "Set thisObj = " & objFound
		WebTableGetData = thisObj.GetCellData(iRow, iCol)
	End Function
	'------------------------------------------------------------------
	Public Function WebTableGetRowWithCellText(strObjName, strText)

		If m_WebObject.DoesObjectExist(strObjName, "WebTable", 5) = False Then
			Reporter.ReportEvent micFail, "Web Table Get Row With Cell Text", "The object [" & strObjName & "] of object type [WebTable] could not be found, please check."
			WebTableGetRowWithCellText = False
			Exit Function
		End If  
		Execute "Set thisObj = " & objFound
		WebTableGetRowWithCellText = thisObj.GetRowWithCellText(strText)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetROProperty(strObjName, strProperty)
		GetROProperty = m_WebObject.GetROProp(strObjName, "WebTable", strProperty)
	End Function
	'---------------------------------------------------------------------------
	Public Function GetTOProperty(strObjName, strProperty)
		GetTOProperty = m_WebObject.GetTOProp(strObjName, "WebTable", strProperty)     
	End Function
	'---------------------------------------------------------------------------
	Public Function SetTOProperty(strObjName, strProperty, strValue)
		SetTOProperty = m_WebObject.SetTOProp(strObjName, "WebTable", strProperty, strValue)      
	End Function
	'---------------------------------------------------------------------------
	Public Function ReturnObject(strObjName)
		ReturnObject = m_WebObject.ReturnObject(strObjName, "WebTable")
	End Function
	'---------------------------------------------------------------------------
	Public Sub SetObject(strObjName)
		m_WebObject.SetObject strObjName, "WebTable"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub FireEvent(strObjName, strEvent)
		m_WebObject.FireEvent strObjName, "WebTable", strEvent
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Highlight(strObjName)
		m_WebObject.HighlightObject strObjName, "WebTable"
	End Sub
	'---------------------------------------------------------------------------
	Public Sub Init(strObjName)
		m_WebObject.ObjectInit strObjName, "WebTable"	
	End Sub
	'---------------------------------------------------------------------------
	Public Function WaitProperty(strObjName, strProperty, strValue, iTimeout)
		WaitProperty = m_WebObject.ObjectWait(strObjName, "WebTable", strProperty, strValue, iTimeout)   
	End Function

End Class
Public Function c_WebTable()
	Set c_WebTable = New clsWebTable
End Function