1. 展开附件 .\plugin *.dll
  2. 延时1000毫秒
  3. 用户定义变量 Var1=DropList{祖鲁平原(三区):1|龙骨荒原(二区):2|徳沃山谷(一区):3}=0 登陆服务器
  4. 用户定义变量 Var2=0 登录邮箱
  5. 用户定义变量 Var3=0 登录密码
  6. //<>=======================================打开网页
  7. //Plugin Web.Bind()
  8. 调用插件命令 Web.Bind("wqm.exe")
  9. 调用插件命令 Web.Tips("打开选择服务器网页")
  10. 调用插件命令 Web.Go("http://www.yerenji.com/servers.html")
  11. 调用插件命令 Web.SetSize(900,800)
  12. 延时1000毫秒
  13. 延时1000毫秒
  14. 如果表达式 (Var1="1") 为真,则
  15.     调用插件命令 Web.HtmlClick("tag:A&txt:祖鲁平原(三区)")
  16. 否则如果(Var1="2")为真,则
  17.     调用插件命令 Web.HtmlClick("tag:A&txt:龙骨荒原(二区)")
  18. 否则如果(Var1="3")为真,则
  19.     调用插件命令 Web.HtmlClick("tag:A&txt:徳沃山谷(一区)")
  20. 条件结束
  21. 延时1000毫秒
  22. 延时1000毫秒
  23. 调用插件命令 Web.Tips("玩家登陆帐号密码填写...")
  24. 调用插件命令 Web.HtmlInput(Var2,"id:email")
  25. 调用插件命令 Web.HtmlInput(Var3,"id:password")
  26. //<>=============识别验证码(必须保证能看见验证码在最前面,否则无法识别!)
  27. 调用插件命令 Web.Tips("验证码识别...")
  28. //下面这句是得到当前最前面的窗口句柄
  29. 调用插件命令 Hwnd = Window.Foreground()
  30. //下面这句是得到窗口句柄的客户区大小
  31. 调用插件命令 Rect = Window.GetClientRect(Hwnd)
  32. MyArray = Split(Rect, "|")
  33. L = Clng(MyArray(0))+509: T = Clng(MyArray(1))+631
  34. 调用插件命令 yzm=uuplay.GetOCR(L,T)
  35. 如果表达式 (yzm="") 为真,则
  36.     弹出窗口 "识别验证码(必须保证能看见验证码和WQM在最前面,否则无法识别!)"
  37. 脚本停止运行
  38. 条件结束
  39. 调用插件命令 Web.HtmlInput(yzm,"id:validcode")
  40. 延时1000毫秒
  41. //登陆
  42. 调用插件命令 Web.Tips("登陆...")
  43. 调用插件命令 Web.LeftClick(440,615)
  44. 脚本停止运行
  45. 子程序 OnScriptExit
  46.     调用插件命令 Web.Tips("脚本停止运行...")
  47.     弹出窗口 "演示填表完成,最好的脚本都是自己做的!"
  48. 子程序结束,回到调用处