Call Plugin.Web.Bind("WQM.exe") //绑定进程

Call Plugin.Web.Go("http://www.eiafans.com/forum.php") //调用网页插件打开无标网址

x = 5000 //赋值

Delay x//延时x毫秒

Dim i

Do

    a=a+1

    Call Plugin.Office.OpenXls("C:\Users\admin\Desktop\Book1.xls") //打开目标文件

    Delay x

    Text = Plugin.Office.ReadXls(1, a, 1)

    Delay x

    Call Plugin.Office.CloseXls()

    Delay x

    Call Plugin.Web.HtmlClick("id:ls_username") //调用网页插件点击用户名输入框

    Delay 5000

    Call Plugin.Web.HtmlInput(Text, "id:ls_username") //输入用户名

    Delay 5000

    Call Plugin.Web.HtmlClick("id:ls_password") //调用网页插件点击密码输入框

    Delay 5000

    Call Plugin.Web.HtmlInput("密码", "id:ls_password")

    Delay x

    Call Plugin.Web.HtmlClick("tag:EM&txt:登录")

    Delay x

    Call Plugin.Web.Go("http://www.eiafans.com/home.php?mod=task&do=apply&id=1") //领取每日红

    Delay x

    Call Plugin.Web.Go("http://www.eiafans.com/home.php?mod=task&do=apply&id=22")

    Delay x

    Call Plugin.Web.Go("http://www.eiafans.com/home.php?mod=magic")

    Delay x

    Call Plugin.Web.HtmlClick("tag:A&txt:赠送&index:10") //赠送道具“附件增容卡”

    Delay x

    Call Plugin.Web.HtmlClick("id:selectedusername")

    Delay x

    Call Plugin.Web.HtmlInput("Night夜归人", "id:selectedusername")

    Delay x

    Call Plugin.Web.HtmlClick("name:magicnum")

    Delay x

    Call Plugin.Web.HtmlInput(2, "name:magicnum")  //赠送两张

    Delay x

    Call Plugin.Web.HtmlClick("tag:SPAN&txt:赠送")

    Delay x

    Call Plugin.Web.HtmlClick("tag:STRONG&txt:确定")

    Delay x

    Call Plugin.Web.HtmlClick("tag:STRONG&txt:确定")

    Delay x

    Call Plugin.Web.Go("http://www.eiafans.com/forum.php") //返回首页等待切换账号

    Delay x

    Call Plugin.Web.HtmlClick("tag:A&txt:退出")

    Delay x

    Call Plugin.Web.HtmlClick("tag:A&txt:首页BBS")

   

Loop