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