Unable to run script while function is used in 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..

[Ankesh]

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