Simple Function in VB script
ExecuteFile "Filepath"

e.g.
ExecuteFile "C:/library.vbs"

This will associate library file "library.vbs" at runtime

Regards,
prasad


On Tue, Feb 16, 2010 at 6:35 PM, chinna <[email protected]> wrote:

>
>
> acutally I developed script for  gmail longing page and i save that script
> in .vbs
> after that i can associate the script using setting options
> which code i want write in qtp to run below function
>
>
> Function gmail_login()
> Browser("Google").Page("Google").Sync
> Browser("Google").Navigate "http://www.gmail.com/";
> Browser("Google").Page("Gmail: Email from Google").WebEdit("Email").Set
> "chinna"
> Browser("Google").Page("Gmail: Email from
> Google").WebEdit("Passwd").SetSecure
> "4b794bc217051ee02a5f36e7f80642cf4e1d887102eff397"
> Browser("Google").Page("Gmail: Email from Google").WebButton("Sign
> in").Click
> If Browser("Google").Page("New! Google Buzz in Gmail").Link("Nah, go to my
> inbox").Exist(3) Then
>     Browser("Google").Page("New! Google Buzz in Gmail").Link("Nah, go to my
> inbox").Click
> End If
> Browser("Google").Page("Gmail - Inbox (5)").Frame("v1").Link("Sign
> out").Click
> Browser("Google").Page("Gmail: Email from Google_2").Sync
> Browser("Google").Close
> End Function
>
> --
> Thanks & Regards,
> Chinna,
> Mob:9739656841
>
> --
> 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]<mercuryqtp%[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
"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

Reply via email to