Script For Web Based Appln

For Login .... browser("XXXX").page("XXXX").webedit("hgshad").set "hdsfajf" browser("XXXX").page("XXXX").webedit("dsadsagd").set "dlskajdl" browser("XXXX").page("XXXX").webImage("dasada").click to count No. Of Links in WebPage.. set objlink = description.create objlink('html tag").value = "A" set n = browser("XXXX").page("XXXX").childobjects(objlink) c = n.count msgbox c like this we write script for testing web applications.. these are the sample scripts only... If any queries.. [email protected]

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 "shyam_sad" Browser(BRO).Page(PG).WebEdit(PWD).Set "shyam" Browser(BRO).Page(PG).WebButton(Login).Click