Delay 1000 //Plugin Web.GetProcessID("wqm.exe") Call Plugin.Web.Bind("wqm.exe") //<>===================================================打开网页免费申请 Call Plugin.Web.Tips("打开网页免费申请网页") Call Plugin.Web.Go("http://newreg.qq.com/") Call Plugin.Web.SetSize(913,850) Delay 1000 //<>===================================================输入名字 Call Plugin.Web.HtmlInput("name","type:text&index:0") Call Plugin.Web.Tips("输入生日") Delay 500 //<>===================================================输入生日-年 Call Plugin.Web.LeftClick(325,200) Delay 500 For 3 Call Plugin.Web.KeyPress(40) Next Delay 500 //<>===================================================输入生日-月 Call Plugin.Web.LeftClick(425,200) Delay 500 For 3 Call Plugin.Web.KeyPress(40) Next Delay 500 //<>===================================================输入生日-日 Call Plugin.Web.LeftClick(525,200) Delay 500 For 3 Call Plugin.Web.KeyPress(40) Next Delay 500 Call Plugin.Web.LeftClick(625,200) //<>===================================================输入密码 Call Plugin.Web.LeftClick(360,260) Delay 500 Call Plugin.Web.Tips("输入密码") Call Plugin.Web.KeyPress(65) For 6 Call Plugin.Web.KeyPress(49) Next Delay 500 Call Plugin.Web.LeftClick(360,310) Delay 500 Call Plugin.Web.KeyPress(65) For 6 Call Plugin.Web.KeyPress(49) Next Delay 500 //<>==================================================输入验证码 Call Plugin.Web.Tips("等待输入验证码,结束按回车键") Call Plugin.Web.LeftClick(335,373) Delay 500 Rem 等待 key = WaitKey() //<>===================================================按回车键即可提交申请 If key=13 Then Goto 离开 End if Goto 等待 Rem 离开 //<>===================================================确定并同意以下条款 Call Plugin.Web.Tips("注册提交") Call Plugin.web.HtmlClick("tag:span&txt:确定并同意以下条款") Delay 500 EndScript Sub OnScriptExit() Call Plugin.Web.Tips("脚本停止运行") End Sub