Answer / shyam.meghansh

Example for VB Script

Function fib(n)

Dim fab(70)

fab(0)=0
fab(1)=1

For j=2 to n

fab(j)=fab(j-1)+ fab(j-2)

Next

For i=0 to n-1

msgbox fab(i)
Next

end function


Next Save this function in .vbs file and call the function
in QTP Action

Example for Descriptive Programme

systemutil.Run("http://www.rediffmail.com")

set BRO =Description.Create()
BRO("title").Value = "Welcome to Rediff.com India"
BRO("name").value ="Welcome to Rediff.com India"
BRO("openedbytestingtool").value= true


Set PG =Description.Create()
PG("title").value="Welcome to Rediff.com India"
PG("url").value="http://www.rediff.com/index.html"

Set UN =Description.Create()
UN("name").value= "login"
UN("Class Name").value ="WebEdit"
UN("type").value= "text"
UN("html tag").value="INPUT"

Set PWD =Description.Create()
PWD("name").value ="passwd"
PWD("Class Name").value="WebEdit"
PWD("type").value="password"
PWD("html tag").value="INPUT"

Set Login =Description.Create()
Login("name").value ="Go"
Login("Class Name").value="WebButton"
Login("type").value="submit"
Login("html tag").value="INPUT"
Login("value").value="GO"
Login("class").value="rmailgobtn"

temp= Browser("Welcome to Rediff.com").Page("Welcome to
Rediff.com").WebElement("ShockwaveFlash1").Exist
If temp= true Then
'Browser("Welcome to Rediff.com").Page("Welcome to
Rediff.com").WebElement("ShockwaveFlash1").
End If


Browser(BRO).Page(PG).WebEdit(UN).Set "testingwithshyam"
Browser(BRO).Page(PG).WebEdit(PWD).Set "shyamshyam"
Browser(BRO).Page(PG).WebButton(Login).Click





..................... Any More Querys mail to
testingwithshyam@gmail.com

Answer / senthilkumar

Hi
i am senthilkumar now i am working manual tester. i will
test windows application.

how will test application
pls send me small script

What is the ur roles and responsibilities as automation testing engineer?

2 Answers   Atos Origin,

---

Explain Checking XML....

1 Answers   Crea,

---

What is clean sweep?

0 Answers  

---

Hi Everybody, Can anybody please tell me the how to display the result of the QTP in the notepad text file rather than in the QTP result window. Suppose this is my simple script:WHich will open the notepad file and enter some text and then will change the font then will calculate how much time has been taken.Now, in this script i want to display the result in notepad file. Dim s Dim starttimer,endtimer,timeit s="uyetuywqtywqte" SystemUtil.Run "notepad","","Y:\","" Window("Notepad").WinEditor("Edit").Type micCtrlDwn + "s" + micCtrlUp Window("Notepad").Dialog("Save As").WinEdit("File name:").Set "test1" Window("Notepad").Dialog("Save As").WinEdit("File name:").Type micReturn Window("Notepad_3").Type s Window("Notepad_3").WinEditor("Edit").Type micCtrlDwn + "s" + micCtrlUp starttimer=timer Window("Notepad_3").WinMenu("Menu").Select "Format;Font..." Window("Notepad_3").Dialog("Font").WinEdit ("Font:").Type "cou" + micDwn Window("Notepad_3").Dialog("Font").WinComboBox ("Font:").Select "Courier" Window("Notepad_3").Dialog("Font").WinEdit ("Font:").Set "Courier" Window("Notepad_3").Dialog("Font").WinEdit("Font:").Type micReturn endtimer=timer timeit=endtimer-starttimer print(timeit) Please also tell me where the function for the text file result will be declared and where it should be called. Thanks, Gaytri

2 Answers  

---

in real time when we are creating the script by default it is going to save in action object repository or not any way my question is in one of my interviewer said that in real time the default object repository is action object repository and by using quick test plus they are going to merge is it correct i said that by selecting the object repository as shared one in selecting the test>>settings>>resources but she is not convinced what is the correct one

1 Answers   DigiTech, Infotech,

---

write the vb script for call to new action in qtp?

0 Answers  

---

I am sathish , i want to test the Application of JIL.org ,Mobile Emulator ,by using QTP10.0. I am trying to do testing on that Application , but Child Objects are not identified by the QTP. Please can any one help me

1 Answers  

---

How to find array size in qtp?

0 Answers  

---

Hi frnds, does anybody know if there is anything called "thin point" or something in qtp? thanks in advance.

1 Answers   scintel,

---

How to pass a variable in Dos Command using QTP? Eg: Dim path1, path2 path1 = "C:\Test\sample1.doc" path2 = "C:\Test\sample2.doc" How can we pass these path1 and path2 inside the "copy" dos command? I tried like this. this is not working. oShell.run "cmd /K copy" &path1 &path2

1 Answers  

---

What are the key points to create a framework in QTP for oracle forms?

0 Answers  

---

How qtp recognizes the object?

0 Answers  

---