''//Declarations needed
Const usr = "Auto00"
Const pw = "fis@1230"
test_Link = "http://billerconsole.html"; ''//example link here
DriverSheet = "C:\Driver.xls"
Now when I run below code then in msg box "Login (usr, pw, res)" should get
displayed which is actually symbolizes call to Login fn from Function
Library mentioned below.
However, value fetched in fn varaible from excel sheet will be fetched as
string so writing Call fn, will never run fn function and will bring error
as call is to a string value fetched from excel and not to fuction entered
in excel.
I want to fetch value from excel as function call in fn variable
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
Set obj_Driver_WB = objExcel.Workbooks.Open (DriverSheet)
Set obj_Driver_WS = obj_Driver_WB.Worksheets(1)
fn = obj_Driver_WS.Cells(1, 1).value
obj_Driver_WB.Save
obj_Driver_WB.Close
objExcel.Quit
msgbox fn
Call fn
Public Sub Login (fusr, fpwd, result)
result = "false"
Cust_LaunchBrowser(test_Link)
Browser("Biller Console").Page("Biller_Login").WebEdit("txt_loginid").Set
fusr
Browser("Biller Console").Page("Biller_Login").WebEdit("txt_password").Set
fpwd
Browser("Biller Console").Page("Biller_Login").WebButton("btn_Log in").Click
wait (5)
msg_Logo = Browser("Biller
Console").Page("Admin").Frame("Header").WebElement("we_Biller").GetROProperty("innertext")
If trim(msg_Logo) = "Biller" Then
Reporter.ReportEvent micPass, "Login", "User successfully logged in
Biller"
result = "true"
Else
'msgbox "failed"
Reporter.ReportEvent micFail, "Login", "User successfully logged in as
different Biller"
result = "false"
End If
End Sub
Public Sub Cust_LaunchBrowser(furl)
' On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = true
IE.Navigate furl
IE.Left =0
IE.Top =0
IE.Height = 740
IE.Width = 1025
launchBrowser=true
'Set IE = Nothing
' On Error Goto 0
End Sub
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
