HtmlCheck 选择/清除网页中的单选框或复选框 |
|
选择/清除网页中的单选框或复选框。 |
|
参数1：布尔型，True代表选中，False代表清除 参数2：字符串型，网页元素特征字符串 |
|
无 |
|
Call Plugin.Web.Bind("WQM.exe")
Call Plugin.Web.Go("http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx")
//Delay 3000
Call Plugin.Web.HtmlInput("按键精灵","id:ctl00_mainContent_tbUsername")
Call Plugin.Web.HtmlInput("password","id:ctl00_mainContent_tbPassword")
Call Plugin.Web.HtmlInput("hi@vrbrothers.com","id:ctl00_mainContent_tbEMail")
Call Plugin.Web.HtmlCheck(true,"id:ctl00_mainContent_rblGender_0")
Call Plugin.Web.HtmlSelect("湖北","id:ctl00_mainContent_ddlProvince")
//Delay 500
Call Plugin.Web.HtmlSelect("宜昌","id:ctl00_mainContent_ddlCity")
//Delay 500
Call Plugin.Web.HtmlSelect("4010200%4083000","id:ctl00_mainContent_lbObjectives")
Call Plugin.Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_0")
Call Plugin.Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_1")
//Delay 2000
Call Plugin.Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_2")
Call Plugin.Web.HtmlInput("Test！","id:ctl00_mainContent_tbSelfAssement")
Call Plugin.Web.HtmlCheck(true,"id:ctl00_mainContent_cbAcceptTerms")
Delay 1000
Call Plugin.Web.HtmlClick("tag:input&value:提交")
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本运行完毕")
End Sub
|
|
Plugin Web.Bind("WQM.exe")
Plugin Web.Go("http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx")
//Delay 3000
Plugin Web.HtmlInput("按键精灵","id:ctl00_mainContent_tbUsername")
Plugin Web.HtmlInput("password","id:ctl00_mainContent_tbPassword")
Plugin Web.HtmlInput("hi@vrbrothers.com","id:ctl00_mainContent_tbEMail")
Plugin Web.HtmlCheck(true,"id:ctl00_mainContent_rblGender_0")
Plugin Web.HtmlSelect("湖北","id:ctl00_mainContent_ddlProvince")
//Delay 500
Plugin Web.HtmlSelect("宜昌","id:ctl00_mainContent_ddlCity")
//Delay 500
Plugin Web.HtmlSelect("4010200%4083000","id:ctl00_mainContent_lbObjectives")
Plugin Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_0")
Plugin Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_1")
//Delay 2000
Plugin Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_2")
Plugin Web.HtmlInput("Test！","id:ctl00_mainContent_tbSelfAssement")
Plugin Web.HtmlCheck(true,"id:ctl00_mainContent_cbAcceptTerms")
Delay 1000
Plugin Web.HtmlClick("tag:input&value:提交")
Sub OnScriptExit
Plugin Web.Tips("脚本运行完毕")
Return
|