Error while working with Function in QTP script

[mansis]

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..

[sshukla12]

Hi,

Try to pass Call LoadTime("a")

Regards,
Sankalp

[charanbc]

The only thing that i can think of is,
the name of the function is typed incorrectly in the script, recheck that the name of the function (not name of the vbs file) is the same in the vbs file and the script.

PS: using loadtime("a") will not be right as 'a' becomes a static string value with the quotes, you need it to be the variable 'a'. But you can try that anyway...

[jesonvan]

Could you try
Msgbox a
to confirm whether it is true or false?

---

U can try to write this function Directly in this script file first.
Perhaps qtp does not recognize this function from your vbs file.

[jacosta]

Hello, is passed as a parameter with descriptive programming the object, once you identify it runs on the for loop for review at runtime, and I do not see where you can change the value exist you send to the function .

Greetings.

[hiregoudar]

Hi Instead of calling function using "call" you have to use
ExecuteFile "path of the .vbs file"