can any body give the code to write the function for given suppose user login w

can any body give the code to write the function for given
suppose user login with usrer id and pwd to yahoomail.after
cliking "sign in"if it is valid user id the next page will
display userid'message box.( Note u have to use excel sheet
to retrive the userid's data)

Question Posted / jayanta

3 Answers
8425 Views
Bally Technologies, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

can any body give the code to write the function for given suppose user login with usrer id and pwd..

Answer / bfakruddin

Hello Mr.Badri,

Script is good,
if anybody don't know scripting they will feel difficult to understand your script, please reduce complexity while answering, here no need to use always reporter events you can display with msgbox or with print statements.

How do you think this is correct validation,
--> you get the user name from excel sheet and placed in user name field.
--> you get the text available in user name field again
--> validating these two values.
no test case will be fail if you do testing like this.

you forgot one more thing you have to click Sign In button with out doing this how could you conclude that the user is valid or not....!

Once you get Home page or mail box page then you can conclude that user name is valid
or
If you don't get any error msg or popup after clicking on Login In then also you can ensure that the user is valid.

If anybody want me to give code, I will give.

above code also correct but some what complexity...!

Is This Answer Correct ?

2 Yes

0 No

can any body give the code to write the function for given suppose user login with usrer id and pwd..

Answer / badri

'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

Is This Answer Correct ?

0 Yes

0 No

can any body give the code to write the function for given suppose user login with usrer id and pwd..

Answer / hari

'-----------------------------------------------------------
--------Create the Connection String -----------------------
------------------------------------------------------------
---------
Function fgGetConnection( )
'****
'Purpose: Get
connection to Excel Workbook
'****
Dim objConnection

Set objConnection = CreateObject
("ADODB.Connection")

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0
;Data Source='D:\Test Data\Test_Data.xls' ;Extended
Properties=Excel 8.0;"
Set fgGetConnection = objConnection

End Function
'-----------------------------------------------------------
--------Close the excel connection -------------------------
------------------------------------------------------------
-------
Function fgCloseConnection ( objConnection )
'****
'Purpose: Close connection to
Excel Workbook
'****
objConnection.Close

End Function
'-----------------------------------------------------------
--------Fetch the test data from the excel -----------------
------------------------------------------------------------
---------------

Function fgGetData (objConnection, strColumnName, Sheet,
intPageNumber, TestSetName)
'****
'Purpose: Queries the Excel Workbook
for one field in the particular Sheet
' - Can also take a string
with comma separated values to get all the columns and give
it back as an array.
'****
'MsgBox strColumnName
'MsgBox Sheet
'MsgBox intPageNumber
'MsgBox TestSetName
Dim objRecordSet,
strQuery
Dim strScenarioID
Set objRecordSet =
CreateObject("ADODB.recordset")

objRecordSet.CursorType = 3 'set CursorType to be
able to do a RecordCount
strQuery
= "SELECT " & strColumnName & " FROM ["&Sheet& "$] WHERE
Test_Set = '" & TestSetName & "' AND Step_Number =" &
intPageNumber & " AND TestStatus='Y'"
objRecordSet.open
strQuery, objConnection
Select Case
objRecordSet.RecordCount

Case 0

fgGetData = ""

Case Else

If InStr(objRecordSet(0),
Chr(10)) > 0 Then

fgGetData = Replace
( objRecordSet(0), Chr(10), vbNewLine )

Else

fgGetData =
objRecordSet(0)

' msgbox fgGetData

End If

End Select
objRecordSet.Close
End Function

'***********************************************DB
Connection Start
Function****************************************************
****************************

Public Function CreateruntimeObject(Sheetname,ObName)
' msgbox ObName
set
conn=createobject("ADODB.CONNECTION")
set
recset=createobject("ADODB.RECORDSET")

conn.provider="MICROSOFT.JET.OLEDB.4.0"

conn.open "data source='D:\Object
Repository\Object.xls'; Extended properties=EXCEL 8.0"
qry="Select
Properties from [" & Sheetname& "$] where ObjName='"
&ObName& "'"
recset.open qry,
conn, 1, 1

props= recset.Fields(0)

'Create object description
for the data fetched from the excel sheet.
Set obj=description.create()
arrprops=split(props, "|")
For i=0 to UBOUND
(arrprops)

arrprop=split(arrprops(i), "=")

propname=arrprop(0)

propvalue=arrprop(1)
obj
(propname).value=propvalue
Next

Set CreateruntimeObject=obj

'if object not present????

End Function

'-----------------------------------------------------------
-------- Functional Result update in the testData Excel-----
------------------------------------------------------------
----------------------------
Public Function Resultupdate(objConnection,
Sheet,TestSetName, intPageNumber, Result, Status)

objConnection.Execute "update ["&Sheet&"$]
set TestResult ='" & Result & "', TestStatus ='" & Status
& "', Execution_Date =Now where Test_Set = '" &
TestSetName & "' and Step_Number =" & intPageNumber & ""

End Function

'-----------------------------------------------------------
--------GUI Result update in the testData Excel-----------
------------------------------------------------------------
----------------------

Public Function ResultupdateGUI(objConnection,
Sheet,TestSetName, Result, Status,objVal,objroPty)

objConnection.Execute "update
["&Sheet&"$] set TestResult ='" & Result & "', TestStatus
='" & Status & "', Execution_Date =Now where Test_Set
= '" & TestSetName & "' AND TestStatus='Y' AND
Objval='"&objVal&"' AND Objroproperty='"&objroPty &"' "

End Function

'-----------------------------------------------------------
--------Function for Close Application --------------------
------------------------------------------------------------
-------------
Function CloseApplication(Application)
dim strcompname,
strprocesstokill, objwmiservice, compname
dim colprocess
Set WshNetwork =CreateObject
("WScript.Network")

compname=WshNetwork.computername 'Get the computer
name

Set objwmiservice=Getobject
("Winmgmts:\\" &compname & "\root\cimv2") 'Get the task
manager
set
colprocess=objwmiservice.execquery("Select * from
win32_process where name='"&Application&"'")
' Get all the
processes in an arrary and terminate the required process
from the task manager.
For each process in
colprocess
msg=process.name

reporter.ReportEvent micDone, msg, msg & " this has been
terminated"
process.terminate()
Next
End Function

'-----------------------------------------------------------
--------Invoke outlook Folder Function ---------------------
------------------------------------------------------------
-----------

Function InvokeOutlookFedex()

Const olFolderInbox = 6

Set objOutlook =
CreateObject("Outlook.Application")
'
'If Dialog
("regexpwndclass:=#32770", "regexpwndtitle:=Personal
Folders Password").Exist(1) Then
' pass=Input("Enter
your Password")
' Dialog
("regexpwndclass:=#32770", "regexpwndtitle:=Personal
Folders Password").WinEdit("attached text:=Type the
password for.*").Set pass
'End If
Set objNamespace =
objOutlook.GetNamespace("MAPI")

Set objInbox =
objNamespace.GetDefaultFolder(olFolderInbox)

'msgbox objInbox

strFolderName =
objInbox.Parent

'msgbox strFolderName

Set objMailbox =
objNamespace.Folders(strFolderName)

Set objFolder =
objMailbox.Folders("FedEx QuickShip")

'msgbox objFolder
wait(5)
objFolder.display
wait(3)
Window(MainPage).maximize
End Function

Public Function Alternateobject(Sheetname,ObName)
' msgbox ObName
set conn=createobject("ADODB.CONNECTION")
set recset=createobject("ADODB.RECORDSET")
conn.provider="MICROSOFT.JET.OLEDB.4.0"
'conn.open "Provider=MS.Remote;" & "Remote
Server=\\Wm6103rbw-1331;" & "Remote Provider =
MICROSOFT.JET.OLEDB.4.0;" & "data source='\\Wm6103rbw-1331
\Object Repository\Object.xls'; Extended properties=EXCEL
8.0"
conn.open "data source='D:\Object
Repository\Object.xls'; Extended properties=EXCEL 8.0"
qry="Select Alternate_Prop from [" & Sheetname& "$]
where ObjName='" &ObName& "'"
recset.open qry, conn, 1, 1

props= recset.Fields(0)

''Gets the value into an array
' Do Until recset.eof
' For each val in recset.fields
' props=val.value
' msgbox props
' Next
' recset.movenext
' Loop

'Create object description for the data fetched from the
excel sheet.
Set obj=description.create()
arrprops=split(props, "|")
For i=0 to UBOUND(arrprops)
' msgbox arrprops(i)
arrprop=split(arrprops(i), "=")
propname=arrprop(0)
propvalue=arrprop(1)
' msgbox propname
' msgbox propvalue
obj(propname).value=propvalue

Next

Set Alternateobject=obj

'if object not present????

End Function

Is This Answer Correct ?

1 Yes

1 No

Post New Answer