Event Form1.Button1.Click
    While true
    PID=Plugin.Web.Bind("wqm.exe")
Call Plugin.Web.Go("http://huanle.qq.com/act/a20120521sds/?ADTAG=inhall.act.happy.sds")
Delay 500
Call Plugin.Web.ScrollTo(0,391)
Delay 500
Call Plugin.Web.MoveTo(817,419)
Delay 500
Call Plugin.Web.LeftClick(817,419)
Delay 200
Call Plugin.Web.HtmlClick("id:freeChallengeId")
Delay 22000
        Wend
End Event