Micro Focus QTP (UFT) Forums
Unable to run script while function is used in script.. - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: Unable to run script while function is used in script.. (/Thread-Unable-to-run-script-while-function-is-used-in-script)



Unable to run script while function is used in script.. - mansis - 09-21-2012

Hi,

Following function I have preared by saving it in notepad file with .vbs extension.

----------------
Code:
Function Loadtime (a)
For count = 1 To 999999
Flag=a
If Flag = False Then
Wait (1)
Else
count = 999999
End If
Next
End Function

----------------
I have prepared following script by calling above function as follows-

----------------
Code:
URL = Datatable.Value("URL",Global)
User_name = Datatable.Value("User_name",Global)
Password = Datatable.Value("Password",Global)
Users = Datatable.Value("Users",Global)

systemutil.Run "iexplore",URL

'Load Login screen
a = Browser("InSync :: Login").Page("InSync :: Login").Image("topbanner").Exist
Call Loadtime (a)


Browser("InSync :: Login").Page("InSync :: Login").WebEdit("txtUsername").Set User_name
Browser("InSync :: Login").Page("InSync :: Login").WebEdit("txtPassword").Set Password
Browser("InSync :: Login").Page("InSync :: Login").WebButton("Login").Click

Browser("InSync :: Login").Close
----------------


After creating above test, I gone to File - Setting - Resources and clicked on the +(plus appears in green color) symbol and selected .vbs file in which function is described..

While runing script error "Type mismatch: 'Loadtime. Line(10): "Call Loadtime (a)" occurs.

Please let me know what is wrong in my script / function??

Thanks,
Mansi..


RE: Unable to run script while function is used in script.. - Ankesh - 09-24-2012

Line

Code:
a = Browser("InSync :: Login").Page("InSync :: Login").Image("topbanner").Exist
Call Loadtime (a)

is not proper. start using an alternate way, something like

Code:
if Browser("InSync :: Login").Page("InSync :: Login").Image("topbanner").Exist Then
a=True
Else
a=False
End If

Call Loadtime (a)

Regards,
Ankesh