1. //1为抢怪技能
  2. 用户定义变量 asjdaisd="请设置" ---------技能设置----------
  3. 用户定义变量 jn1="2" 设置技能1键位
  4. 用户定义变量 jn2="3" 设置技能2键位
  5. 用户定义变量 jn3="4" 设置技能3键位
  6. 用户定义变量 s1=60 设置技能1施放间隔时间(单位:秒)
  7. 用户定义变量 s2=90 设置技能2施放间隔时间(单位:秒)
  8. 用户定义变量 s3=120 设置技能3施放间隔时间(单位:秒)
  9. 用户定义变量 y1=10 技能1吟唱时间(秒)
  10. 用户定义变量 y2=10 技能2吟唱时间(秒)
  11. 用户定义变量 y3=10 技能3吟唱时间(秒)
  12. 用户定义变量 jg=1 抢怪间隔(秒)
  13. 调用插件命令 hx=Window.Find(0,"QQ华夏")
  14. //MessageBox ""&hx&""
  15. 调用插件命令 Window.Active(hx)
  16. //---------------[分隔线]--------------------
  17. dim key(2),sj(3)
  18. dim jn1,jn2,jn3,s1,s2,s3,s4,t1,t2,t3,t4,zf,hx
  19. //声明变量
  20. key(0)=Asc(jn1):key(1)=Asc(jn2):key(2)=Asc(jn3)
  21. sj(0)=s1:sj(1)=s2:sj(2)=s3:sj(3)=s4
  22. //把自定义参数的返回值转换成数组元素
  23. t1=now:t2=now:t3=now:t4=now
  24. //返回当前系统日期时间到变量
  25. //---------------[分隔线]--------------------
  26. 标记 开始挂机
  27. 调用子程序 抢怪
  28. 调用子程序 检查辅助技能
  29. 跳转到标记 开始挂机
  30. //---------------[分隔线]--------------------
  31. 子程序 抢怪
  32.     调用插件命令 Window.SendKeyPress(hx,192)
  33.     延时100毫秒
  34.     调用插件命令 Window.SendKeyPress(hx,49)
  35.     延时500毫秒
  36.     调用插件命令 Window.SendKeyPress(hx,192)
  37.     //防止技能狂按
  38.     延时jg*1000毫秒
  39. 子程序结束,回到调用处
  40. //--------------[分隔线]------------------------
  41. 子程序 检查辅助技能
  42.     如果表达式 (DateDiff("s",t1,now)>=sj(0)) 为真,则
  43.         调用插件命令 Window.SendKeyDown(hx,key(0))
  44.         延时32毫秒
  45.         调用插件命令 Window.SendKeyUp(hx,key(0))
  46.         延时y1*1000毫秒
  47.         t1=now
  48.     条件结束
  49.     如果表达式 (DateDiff("s",t2,now)>=sj(1)) 为真,则
  50.         延时10毫秒
  51.         调用插件命令 Window.SendKeyDown(hx,key(1))
  52.         延时32毫秒
  53.         调用插件命令 Window.SendKeyUp(hx,key(1))
  54.         延时y2*1000毫秒
  55.         t2=now
  56.     条件结束
  57.     如果表达式 (DateDiff("s",t3,now)>=sj(2)) 为真,则
  58.         延时10毫秒
  59.         调用插件命令 Window.SendKeyDown(hx,key(2))
  60.         延时32毫秒
  61.         调用插件命令 Window.SendKeyUp(hx,key(2))
  62.         t3=now
  63.     条件结束
  64.     如果表达式 (DateDiff("s",t3,now)>=sj(2)) 为真,则
  65.         延时10毫秒
  66.         调用插件命令 Window.SendKeyDown(hx,key(2))
  67.         延时32毫秒
  68.         调用插件命令 Window.SendKeyUp(hx,key(2))
  69.         延时y3*1000毫秒
  70.         t3=now
  71.     条件结束
  72. 子程序结束,回到调用处