按键精灵加密html,按键精灵HtmlCheck 选择/清除网页中的单选框或复选框 | 学步园...

CallPlugin.Web.Bind("WQM.exe")

CallPlugin.Web.Go("http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx")

//Delay 3000

CallPlugin.Web.HtmlInput("按键精灵","id:ctl00_mainContent_tbUsername")

CallPlugin.Web.HtmlInput("password","id:ctl00_mainContent_tbPassword")

CallPlugin.Web.HtmlInput("hi@vrbrothers.com","id:ctl00_mainContent_tbEMail")

CallPlugin.Web.HtmlCheck(true,"id:ctl00_mainContent_rblGender_0")

CallPlugin.Web.HtmlSelect("湖北","id:ctl00_mainContent_ddlProvince")

//Delay 500

CallPlugin.Web.HtmlSelect("宜昌","id:ctl00_mainContent_ddlCity")

//Delay 500

CallPlugin.Web.HtmlSelect("4010200%4083000","id:ctl00_mainContent_lbObjectives")

CallPlugin.Web.HtmlCheck(true,"id:ctl00_mainContent_cblHobies_0")

CallPlugin.Web.HtmlCheck(true,"id:ctl00_mainContent_cblHobies_1")

//Delay 2000

CallPlugin.Web.HtmlCheck(true,"id:ctl00_mainContent_cblHobies_2")

CallPlugin.Web.HtmlInput("Test！","id:ctl00_mainContent_tbSelfAssement")

CallPlugin.Web.HtmlCheck(true,"id:ctl00_mainContent_cbAcceptTerms")

Delay1000

CallPlugin.Web.HtmlClick("tag:input&value:提交")

SubOnScriptExit()

PluginWeb.Tips("脚本运行完毕")

EndSub

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()

Plugin Web.Tips("脚本运行完毕")

End Sub