PutAttachment .\plugin *.dll
Delay 1000
UserVar Var1=DropList{祖鲁平原（三区）:1|龙骨荒原（二区）:2|徳沃山谷（一区）:3}=0 登陆服务器
UserVar Var2=0 登录邮箱
UserVar Var3=0 登录密码
//<>=======================================打开网页
//Plugin Web.Bind()
Plugin Web.Bind("wqm.exe")
Plugin Web.Tips("打开选择服务器网页")
Plugin Web.Go("http://www.yerenji.com/servers.html")
Plugin Web.SetSize(900,800)
Delay 1000
Delay 1000
If Var1="1"
    Plugin Web.HtmlClick("tag:A&txt:祖鲁平原（三区）")
ElseIf Var1="2"
    Plugin Web.HtmlClick("tag:A&txt:龙骨荒原（二区）")
ElseIf Var1="3"
    Plugin Web.HtmlClick("tag:A&txt:徳沃山谷（一区）")
EndIf 
Delay 1000
Delay 1000
Plugin Web.Tips("玩家登陆帐号密码填写．．．")
Plugin Web.HtmlInput(Var2,"id:email")
Plugin Web.HtmlInput(Var3,"id:password")
//<>=============识别验证码(必须保证能看见验证码在最前面,否则无法识别!)
Plugin Web.Tips("验证码识别．．．")
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
//下面这句是得到窗口句柄的客户区大小
Plugin Rect = Window.GetClientRect(Hwnd)
MyArray = Split(Rect, "|")
L = Clng(MyArray(0))+509: T = Clng(MyArray(1))+631
Plugin yzm=uuplay.GetOCR(L,T)
If yzm=""
    MessageBox "识别验证码(必须保证能看见验证码和WQM在最前面,否则无法识别!)"
    EndScript 
EndIf 
Plugin Web.HtmlInput(yzm,"id:validcode")
Delay 1000
//登陆
Plugin Web.Tips("登陆．．．")
Plugin Web.LeftClick(440,615)
EndScript 
Sub OnScriptExit
    Plugin Web.Tips("脚本停止运行．．．")
    MessageBox "演示填表完成，最好的脚本都是自己做的！"
Return