or
[TestMethod]public void jsTreeJive(){ Manager Manager = new ArtOfTest.WebAii.Core.Manager(false); Manager.Start(); Manager.LaunchNewBrowser(BrowserType.InternetExplorer); Browser Browser = Manager.ActiveBrowser; Browser.NavigateTo("http://www.jstree.com/docs/interaction/"); var foo = Browser.Find.ById<HtmlDiv>("jstree1").AsjQueryControl().InvokejQueryFunction("jstree('get_selected', 'true');"); Manager.Dispose();}Browser frame = myManager.ActiveBrowser.Frames.ById("cat");Element testrubrik = frame.Find.ByAttributes("title", "Testrubrik");frame.Actions.Click(testrubrik);myManager.ActiveBrowser.Actions.Click(testrubrik);myManager.Desktop.Mouse.Click(MouseClickType.LeftClick, testrubrik.GetRectangle());Imports Telerik.TestingFramework.Controls.KendoUIImports Telerik.WebAii.Controls.HtmlImports Telerik.WebAii.Controls.XamlImports System.Collections.GenericImports System.TextImports System.LinqImports ArtOfTest.Common.UnitTestingImports ArtOfTest.WebAii.CoreImports ArtOfTest.WebAii.Controls.HtmlControlsImports ArtOfTest.WebAii.Controls.HtmlControls.HtmlAssertsImports ArtOfTest.WebAii.DesignImports ArtOfTest.WebAii.Design.ExecutionImports ArtOfTest.WebAii.ObjectModelImports ArtOfTest.WebAii.SilverlightImports ArtOfTest.WebAii.Silverlight.UINamespace new_test_project Public Class WebTest Inherits BaseWebAiiTest#Region "[ Dynamic Pages Reference ]" Private _pages As Pages ''' <summary> ''' Gets the Pages object that has references ''' to all the elements, frames or regions ''' in this project. ''' </summary> Public ReadOnly Property Pages() As Pages Get If _pages Is Nothing Then _pages = New Pages(Manager.Current) End If Return _pages End Get End Property#End Region ' Add your test methods here... <CodedStep("Navigate to : 'http://www.cgwallpapers.com/'")> _ Public Sub WebTest_CodedStep1() ' Navigate to : 'http://www.cgwallpapers.com/' ActiveBrowser.NavigateTo("http://www.cgwallpapers.com/", True) End Sub <CodedStep("Enter text 'username' in 'Input0Text'")> _ Public Sub WebTest_CodedStep2() ' Enter text 'username.com' in 'Input0Text' Actions.SetText(Pages.CGWallpapersCom.Input0Text, "username") End Sub <CodedStep("Enter text 'password' in 'Input0Password'")> _ Public Sub WebTest_CodedStep3() ' Enter text 'password' in 'Input0Password' Actions.SetText(Pages.CGWallpapersCom.Input0Password, "password") End Sub <CodedStep("Click 'LoginDiv'")> _ Public Sub WebTest_CodedStep4() ' Click 'LoginDiv' Pages.CGWallpapersCom.LoginDiv.Click(False) End Sub <CodedStep("Navigate to : 'http://www.cgwallpapers.com/members/viewwallpaper.php?id=1764&res=1920x1080'")> _ Public Sub WebTest_CodedStep5() ActiveBrowser.NavigateTo("http://www.cgwallpapers.com/members/viewwallpaper.php?id=1764&res=1920x1080", True) End Sub End ClassEnd Namespace