|
- Call Plugin.Web.Bind("WQM.exe")
- Call Plugin.Web.Go("http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx")
-
- 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")
-
- Call Plugin.Web.HtmlSelect("宜昌","id:ctl00_mainContent_ddlCity")
-
- 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")
-
- 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
|
|
- Plugin Web.Bind("WQM.exe")
- Plugin Web.Go("http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx")
-
- 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")
-
- Plugin Web.HtmlSelect("宜昌","id:ctl00_mainContent_ddlCity")
-
- 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")
-
- 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
-
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
|