复制代码
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
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