Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

one ok button and one text box is there.when i click on ok
button in that text box one no. will display from 1 to 100
randomley.if that is not 100 when we click on ok button
again ,again another text box ll created with another no.
we will continue this till the text box created and
displays 100.and when its 100 ok button should disabled.
remember thet no will display not seriely ,it displays
randomley,and each time new text box will created.

Answer Posted / sivareddy

Swarup - its ok, but i would want modify ur script. It
seems not proper for our testing point of view...well, here
it is to go
Dim a, Max
//max = InputBox ("Enter Maximum limint of Number")
for i =1 to 100
Dialog("Text:=DialogWindow").Activate
Dialog ("Text:= Dialog Window").WinButton("Text:= OK").Click
a= Dialog("Text:= DialogWindow").WinEdit("Attached Text:=
st=Dialog("Text:=DialogWindow").WinButton
("Text:=OK").getROproperty("visible")
If ((a=100 AND st=='True')OR (a<>100 AND st<> 'True')then
msgbox "test pass")
elsif (a=100 AND st='False')
msgbox "test fail"
endif
if (a==100)
exit the script run
endif
Next

Please check it out....and mail me if any suggestion to
onegole@gmail.com
by - Siva Reddy, Sr.QA Analyst

Is This Answer Correct ?    1 Yes 2 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How to replay a script in qtp?

1022


can u explain the keyword driven framework with an example clearly how to create all the files and how to attach to main test.

6066


Hi,Sudhanandareddy plz forword framework and ppts for QTP to me. This is my mail id: ranjith_99reddy@yahoo.co.in (your contact number also)

2335


How does you pass optional arguments in qtp?

969


WHAT IS THE DIFFERENCE BETWEEN QTP SCRIPT AND VB SCRIPT? HOW MUCH PERCENTAGE WE USE IN QTP SCRIPT REAL TIME AND HOW MUCH PERCEN OF VB SCRIPT,,,,,,,

1973


when I was doing the web testing with QTP using with standard checkpoint the Object selection -checkpoint properties dialog box not displaying pages and links hierarchical order. Could you please tell me. thanks

2222


Why qtp always start action1 and does not start action?

1033


Is there any relation between Keyword Driven Framework and Recording modes provided in QTP( whether Recording modes are applied on keyword driven framework or not?)

1855


How many types of recording modes in qtp? Describe each type with an example where we use them?

980


In order to select an automation tool for automating ur application, what r the things u need to consider? For eg i will go for automation; 1) When there is a lot of retesting and regression testing. 2) Return on investments. 3) Whether the tool supports the appln. 4)--------------, etc. Pls give me more number of points because my answer did not satisfy the interviewer. Very urgent pls

1866


I used the below code to open QTP through VBscript?But i can unable to Invoke QTP...PLZ help me with the correct code to invoke QTP through VBS with description of the code aswell. Dim qtApp 'As QuickTest.Application 'Declare the Application object variable Dim qtTest 'As QuickTest.Test 'Declare a Test object variable Dim qtResultsOpt 'Declare a Run Results Options object variable Set qtApp = CreateObject("QuickTest.Application") 'Create the Application object qtApp.Launch 'Start QuickTest qtApp.Visible = False 'Make the QuickTest application visible qtApp.Open "C:\form", True 'Open the test in read-only mode 'set run settings for the test Set qtTest = qtApp.Test qtTest.Run 'Run the test 'WScript.StdOut.Write "Status is: " & qtTest.LastRunResults.Status 'Check the results of the test run qtTest.Close 'Close the test qtApp.quit 'Close QuickTest Pro Set qtResultsOpt = Nothing 'Release the Run Results Options object Set qtTest = Nothing 'Release the Test object Set qtApp = Nothing 'Release the Application object

2853


Explain about the test fusion report of quicktest professional?

886


How to recognise the webelement and verifying that webelement is enabled?

2119


What is quicktest professional window?

938


Explain the check points in quicktest professional?

953