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