'Create an excel sheet with username and password
'Get username and password from the excel sheet

Set excelobj=createobject("excel.application")
excelobj.workbooks.open("C:\Documents and 
Settings\12Desktop\test data.xls")
usrname=excelobj.sheets(1).cells(2,1)
pwd=excelobj.sheets(1).cells(2,2)
excelobj.workbooks.close
' add the objects to the Object Repository

'Function for username
Function username
If Browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The 
best").WebEdit("login").Exist Then
	If Browser("Yahoo! Mail: The best").Page("Yahoo! 
Mail: The best").WebEdit("login").GetROProperty("disabled")
=false Then
		Browser("Yahoo! Mail: The best").Page
("Yahoo! Mail: The best").WebEdit("login").Set usrname
		reporter.ReportEvent 
micpass,"WebEdit","UsernameEntered: "&usrname
		End If
		else
		reporter.ReportEvent 
micfail,"WebEdit","Username Not Entered"
    End If
End Function
'Calling the username function
username

'Function for password
Function password
If Browser("Yahoo! Mail: The best").Page("Yahoo! Mail: The 
best").WebEdit("passwd").Exist Then
	If Browser("Yahoo! Mail: The best").Page("Yahoo! 
Mail: The best").WebEdit("passwd").GetROProperty("disabled")
=false then
		Browser("Yahoo! Mail: The best").Page
("Yahoo! Mail: The best").WebEdit("passwd").Set pwd
		  	reporter.ReportEvent 
micpass,"WebEdit","Password Entered: "&pwd
		End If
		else
		reporter.ReportEvent 
micfail,"WebEdit","Password Not Entered"
    End If
End Function
'calling the password function
password

'checking the username is valid or not
username="bhadrudu_p"
getdata=Browser("Yahoo! Mail: The best").Page("(1 unread) 
Yahoo! Mail").WebElement("bhadrudu_p").GetROProperty
("innertext")
Function usrvalid
	If  trim(getdata)=trim(username) Then
	reporter.ReportEvent micpass,"WebElement","Valid 
user"
	else
	reporter.ReportEvent micfail,"WebElement","Welcome 
page not present"
End If
End Function

usrvalid