nhanknight
12 years agoNew Contributor
Action "Click" doesn't work althought the button object is found
Hi all, I'm a new stater researching testcomplete tools. Could you please help me with my issue that I creates a script to login into smartbear support page by unitest VB script, but whenever I call click action, My script is stopped by error althought I used to tried to find button object that I want to click and the result is "object is found". Here is my script you can see that to more details. Thanks for your help very much.
sub Demo
dim browser
dim page
dim panel
dim defaultpage
Browsers.Item(btChrome).Run("http://support.smartbear.com/Samples/TestComplete9/WebOrders/Login.aspx")
set browser = Aliases.browser
set page = browser.Page("http://support.smartbear.com/Samples/TestComplete9/WebOrders/Login.aspx")
page.Wait()
set panel = page.Form("aspnetForm").Panel(2)
panel.Textbox("ctl00_MainContent_username").SetText("Tester")
panel.PasswordBox("ctl00_MainContent_password").SetText("test")
if panel.SubmitButton("ctl00_MainContent_login_button").Exists then
log.Checkpoint("button exists")
else
log.Error("button not exists")
end if
' The result of above if script is true but action click this button is error
panel.SubmitButton("ctl00_MainContent_login_button").Click
set browser = Aliases.browser
set defaultpage=browser.Page("http://support.smartbear.com/Samples/TestComplete9/WebOrders/default.aspx")
if defaultpage.Form("aspnetForm").Table(0).Cell(0, 1).Panel(0).TextNode(0).Link("ctl00_logout").Exists then
log.Checkpoint("Item exists")
defaultpage.Form("aspnetForm").Table(0).Cell(0, 1).Panel(0).TextNode(0).Link("ctl00_logout").Click
else
log.Error("Item not exists")
end if
end sub
sub Demo
dim browser
dim page
dim panel
dim defaultpage
Browsers.Item(btChrome).Run("http://support.smartbear.com/Samples/TestComplete9/WebOrders/Login.aspx")
set browser = Aliases.browser
set page = browser.Page("http://support.smartbear.com/Samples/TestComplete9/WebOrders/Login.aspx")
page.Wait()
set panel = page.Form("aspnetForm").Panel(2)
panel.Textbox("ctl00_MainContent_username").SetText("Tester")
panel.PasswordBox("ctl00_MainContent_password").SetText("test")
if panel.SubmitButton("ctl00_MainContent_login_button").Exists then
log.Checkpoint("button exists")
else
log.Error("button not exists")
end if
' The result of above if script is true but action click this button is error
panel.SubmitButton("ctl00_MainContent_login_button").Click
set browser = Aliases.browser
set defaultpage=browser.Page("http://support.smartbear.com/Samples/TestComplete9/WebOrders/default.aspx")
if defaultpage.Form("aspnetForm").Table(0).Cell(0, 1).Panel(0).TextNode(0).Link("ctl00_logout").Exists then
log.Checkpoint("Item exists")
defaultpage.Form("aspnetForm").Table(0).Cell(0, 1).Panel(0).TextNode(0).Link("ctl00_logout").Click
else
log.Error("Item not exists")
end if
end sub