TC官方合作论坛

标题: 【有源码】大唐无双多开后台自动打怪,喊话,帮会庄园任务 [打印本页]
作者: tyuyan    时间: 2012-3-12 17:45
标题: 【有源码】大唐无双多开后台自动打怪,喊话,帮会庄园任务
:D..   第一次上传脚本,大家多多指教。
     
     基本实现方法： 通过枚举获得窗口句柄,多线程操作,然后通过大漠找字来实现基本功能。
     主要功能：大唐无双多开后台自动打怪,自动喊话(支持中文),帮会庄园任务,主要是自己购买,然后自动浇水,施肥等。 可能有些不精致(新手,请见谅)
     源码如下：
   
  1. 空间 大唐无双多开自动打怪
  2. //定义默认空间
  3. dm=com("dm.dmsoft" )
  4. //定义全局变量
  5. 延时1,延时2,延时3,延时4,延时5,枚举窗口
  6. c1,i,技能1,技能2,技能3,技能4,技能5,技能攻击1,技能攻击2,技能攻击3,技能攻击4,技能攻击5,延时等待1,延时等待2,延时等待3,延时等待4,延时等待5,回血1,回蓝1,线程句柄,窗口句柄,移动,k
  7. 是否注册成功
  8. 句柄
  9.   线程句柄集=array[]
  10. 对象句柄
  11. //判断是否输入文本框内容
  12. 功能  文本框内容是否为空()
  13. 技能1=下拉框.得到选项("技能攻击1")
  14. 技能2=下拉框.得到选项("技能攻击2")
  15. 技能3=下拉框.得到选项("技能攻击3")
  16. 技能4=下拉框.得到选项("技能攻击4")
  17. 技能5=下拉框.得到选项("技能攻击5")
  18. 延时1=编辑框.获得文本("延时1")
  19. 延时2=编辑框.获得文本("延时2")
  20. 延时3=编辑框.获得文本("延时3")
  21. 延时4=编辑框.获得文本("延时4")
  22. 延时5=编辑框.获得文本("延时5")
  23. 如果(技能1==0||技能2 ==0||技能3 ==0||技能4 ==0||技能5==0||字符串.长度(延时1) ==0||字符串.长度(延时2) ==0||字符串.长度(延时3) ==0||字符串.长度(延时4) ==0||字符串.长度(延时5) ==0)
  24. 返回  假
  25. 否则
  26.    如果(技能1==1)
  27.         技能攻击1=49
  28.     如果结束
  29.       如果(技能1==2)
  30.         技能攻击1=50
  31.     如果结束
  32.     如果(技能1==3)
  33.         技能攻击1=51
  34.     如果结束
  35.       如果(技能1==4)
  36.         技能攻击1=52
  37.     如果结束
  38.       如果(技能1==5)
  39.         技能攻击1=53
  40.     如果结束
  41.    
  42.    
  43.       如果(技能2 ==1)
  44.         技能攻击2=49
  45.     如果结束
  46.       如果(技能2==2)
  47.         技能攻击2=50
  48.     如果结束
  49.       如果(技能2 ==3)
  50.         技能攻击2=51
  51.     如果结束
  52.       如果(技能2 ==4)
  53.         技能攻击2=52
  54.     如果结束
  55.        如果(技能2 ==5)
  56.         技能攻击2=53
  57.     如果结束
  58.    
  59.    
  60.       如果(技能3 ==1)
  61.         技能攻击3=49
  62.     如果结束
  63.       如果(技能3 ==2)
  64.         技能攻击3=50
  65.     如果结束
  66.       如果(技能3 ==3)
  67.         技能攻击3=51
  68.     如果结束
  69.       如果(技能3 ==4)
  70.         技能攻击3=52
  71.     如果结束
  72.       如果(技能3 ==5)
  73.         技能攻击3=53
  74.     如果结束
  75.    
  76.    
  77.        如果(技能4 ==1)
  78.         技能攻击4=49
  79.     如果结束
  80.         如果(技能4 ==2)
  81.         技能攻击4=50
  82.     如果结束
  83.         如果(技能4 ==3)
  84.         技能攻击4=51
  85.     如果结束
  86.         如果(技能4 ==4)
  87.         技能攻击4=52
  88.     如果结束
  89.         如果(技能4 ==5)
  90.         技能攻击4=53
  91.     如果结束
  92.    
  93.    
  94.        如果(技能5 ==1)
  95.         技能攻击5=49
  96.     如果结束
  97.      如果(技能5 ==2)
  98.         技能攻击5=50
  99.     如果结束
  100.      如果(技能5 ==3)
  101.         技能攻击5=51
  102.     如果结束
  103.      如果(技能5 ==4)
  104.         技能攻击5=52
  105.     如果结束
  106.      如果(技能5 ==5)
  107.         技能攻击5=53
  108.     如果结束

  110. 延时等待1=延时1
  111. 延时等待2=延时2
  112. 延时等待3=延时3
  113. 延时等待4=延时4
  114. 延时等待5=延时5

  116. 如果结束
  117. 返回 真
  118. 功能结束

  120. 购买钉耙数量,购买水桶数量,购买粪瓢数量,购买精致水桶数量,松土次数,浇水次数,施肥次数,帮会浇水次数

  122. 功能  自动庄园任务()
  123. 句柄窗口,窗口绑定是否成功
  124. 路径
  125. 路径=辅助.获取资源路径("rc:")
  126. dm.SetPath(路径)
  127. 辅助.等待(500)
  128. dm.SetDict(0,"dm_soft.txt")

  130.      如果(c1!=0)
  131.            句柄窗口=句柄[i]
  132.      否则
  133.             句柄窗口=窗口句柄
  134.      如果结束
  135.   
  136.      窗口绑定是否成功=dm.BindWindow(句柄窗口,"dx","dx","dx",0)
  137.      辅助.等待(500)
  138.      如果(窗口绑定是否成功==0)
  139.           辅助.消息框("窗口绑定失败")
  140.      否则
  141.          
  142.          如果(复选框.获得状态("自动购买"))
  143.          //先获得要购买的数量
  144.          购买钉耙数量=编辑框.获得文本("购买钉耙")
  145.          辅助.等待(100)
  146.          购买粪瓢数量=编辑框.获得文本("购买粪瓢")
  147.          辅助.等待(100)
  148.          购买水桶数量=编辑框.获得文本("购买水桶")
  149.          辅助.等待(100)
  150.          购买精致水桶数量=编辑框.获得文本("购买精致水桶")
  151.          辅助.等待(100)
  152.          //775，88
  153.          //通过坐标找到自动寻路,找到帮会庄园商人NPC
  154.          dm.MoveTo(955,175)
  155.          辅助.等待(100)
  156.          dm.LeftClick()
  157.          辅助.等待(100)
  158.          //移动到帮会庄园商人
  159.          dm.MoveTo(672,133)
  160.          辅助.等待(500)
  161.          dm.LeftClick()
  162.          辅助.等待(100)
  163.          //关闭寻路对话框
  164.           dm.MoveTo(775,88)
  165.           辅助.等待(500)
  166.           dm.LeftClick()
  167.         // 通过找字,看是否已经打开购买
  168.         循环(真)
  169.         intx,inty
  170.         dm.FindStr(0,0,2000,2000,"色子","33cc33-404040",0.8,intx,inty)
  171.         如果(intx>0)  
  172.             跳出
  173.         如果结束
  174.         辅助.等待(500)
  175.         循环结束
  176.           //  通过找字找到钉耙
  177.           如果(0<购买钉耙数量)
  178.            intx2,inty2
  179.            dm.FindStr(0,0,2000,2000,"钉耙","33cc33-405060",1.0,intx2,inty2)
  180.            辅助.等待(100)           
  181.           如果(intx2>0)
  182.            dm.MoveTo(intx2-30,inty2+15)
  183.            辅助.等待(500)
  184.            循环(0<购买钉耙数量)
  185.            dm.RightClick()
  186.            辅助.等待(500)
  187.            购买钉耙数量=购买钉耙数量-1
  188.            循环结束
  189.            辅助.等待(500)
  190.             dm.MoveTo(0,0)
  191.             辅助.等待(500)
  192.            如果结束
  193.           如果结束     
  194.          
  195.          
  196.            //  通过找字找到粪瓢
  197.            如果(0<购买粪瓢数量)
  198.            intX,intY
  199.            dm.FindStr(0,0,2000,20000,"粪瓢","33cc33-606060",0.8,intX,intY)
  200.            辅助.等待(500)
  201.           如果(intX>0)
  202.           dm.MoveTo(intX-30,intY+15)
  203.           辅助.等待(500)
  204.           循环(0<购买粪瓢数量)
  205.            dm.RightClick()
  206.            辅助.等待(500)
  207.            购买粪瓢数量=购买粪瓢数量-1
  208.            循环结束
  209.           辅助.等待(500)
  210.           dm.MoveTo(0,0)
  211.           辅助.等待(500)
  212.           如果结束
  213.           如果结束
  214.          
  215.           如果(0<购买水桶数量)
  216.            //  通过找字找到水桶
  217.            intX1,intY1
  218.            dm.FindStr(555,238,592,260,"水桶","33cc33-405060",0.8,intX1,intY1)
  219.            辅助.等待(500)
  220.           如果(intX1>0)
  221.           dm.MoveTo(intX1-30,intY1+15)
  222.           辅助.等待(500)
  223.           循环(0<购买水桶数量)
  224.            dm.RightClick()
  225.            辅助.等待(500)
  226.            购买水桶数量=购买水桶数量-1
  227.            循环结束
  228.           辅助.等待(500)
  229.           dm.MoveTo(0,0)
  230.           辅助.等待(500)
  231.           如果结束
  232.           如果结束
  233.          
  234.            //  通过找字找到精致水桶
  235.           如果(0<购买精致水桶数量)
  236.           intX3,intY3
  237.           dm.FindStr(0,0,2000,2000,"精致水桶","0070dd-405060",0.8,intX3,intY3)
  238.           辅助.等待(500)
  239.           如果(intX3>0)
  240.           dm.MoveTo(intX3-30,intY3+15)
  241.           辅助.等待(500)
  242.            循环(0<购买精致水桶数量)
  243.            dm.RightClick()
  244.            辅助.等待(500)
  245.            购买精致水桶数量=购买精致水桶数量-1
  246.            循环结束
  247.           辅助.等待(500)
  248.           dm.MoveTo(0,0)
  249.           辅助.等待(500)
  250.           如果结束
  251.           如果结束  
  252.             
  253.          如果结束
  254.          
  255.          
  256.           //先获得要任务次数
  257.          松土次数=编辑框.获得文本("松土次数")
  258.          辅助.等待(100)
  259.          浇水次数=编辑框.获得文本("浇水次数")
  260.          辅助.等待(100)
  261.          施肥次数=编辑框.获得文本("施肥次数")
  262.          辅助.等待(100)
  263.          帮会浇水次数=编辑框.获得文本("帮会浇水次数")
  264.          辅助.等待(100)
  265.          
  266.          
  267.              //帮会浇水
  268.     如果(复选框.获得状态("帮会浇水") )
  269.         循环(0<帮会浇水次数)
  270.         //按下M打开地图
  271.           dm.KeyPress(77)
  272.           辅助.等待(1000)
  273.           //通过找到水井,把人物移动到水井旁边
  274.           循环(真)
  275.           intx5,inty5
  276.           dm.FindStr(200,330,520,700,"水井","00ff00-506060",0.8,intx5,inty5)
  277.           辅助.等待(100)           
  278.           如果(intx5>0)
  279.           dm.MoveTo(intx5+60,inty5)
  280.           辅助.等待(100)
  281.           dm.RightClick()
  282.           辅助.等待(100)
  283.           dm.KeyPress(77)
  284.           跳出
  285.           如果结束  
  286.           循环结束

  288.           //通过找到无波古井来打水
  289.           循环(真)
  290.           intx1,inty1
  291.            dm.FindStr(0,0,2000,2000,"无波古井","ffba3c-707070",0.8,intx1,inty1)
  292.            辅助.等待(100)           
  293.            如果(intx1>0)
  294.            dm.MoveTo(intx1+15,inty1+40)
  295.            辅助.等待(500)
  296.            dm.LeftClick()
  297.            辅助.等待(5000)
  298.             //ffba3c-606060
  299.             //通过按下M打开地图,寻找帮会树
  300.            dm.KeyPress(77)
  301.            辅助.等待(1000)
  302.            跳出
  303.           如果结束
  304.          循环结束
  305.          
  306.          循环(真)
  307.           intx2,inty2
  308.           dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
  309.           辅助.等待(100)           
  310.           如果(intx2>0)
  311.           dm.MoveTo(intx2+19,inty2+27)
  312.           辅助.等待(500)
  313.           dm.RightClick()
  314.           辅助.等待(100)
  315.           dm.KeyPress(77)
  316.           辅助.等待(20000)
  317.           dm.LeftClick()
  318.           辅助.等待(3000)
  319.           dm.MoveTo(285,291)
  320.            辅助.等待(100)
  321.           dm.LeftClick()
  322.           辅助.等待(5000)
  323.            break
  324.           如果结束  
  325.          循环结束
  326.          帮会浇水次数=帮会浇水次数-1
  327.          标签.设置文本("剩余帮会浇水次数","剩余帮会浇水次数："&帮会浇水次数)
  328.         循环结束
  329.     如果结束  
  330.    
  331.    

  333.    
  334.    
  335.    
  336.      获得分钟=系统.获取毫秒()/60000
  337.      获得分钟1=系统.获取毫秒()/60000
  338.     移动=0
  339.     a=0
  340. 循环(真)
  341.      
  342.       计算分钟=系统.获取毫秒()/60000
  343.      
  344.      如果(移动==0||(计算分钟-获得分钟)>1*1)
  345.             dm.KeyPress(77)
  346.             辅助.等待(1000)   
  347.             intx2,inty2
  348.             循环(真)
  349.             dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
  350.             辅助.等待(100)           
  351.             如果(intx2>0)
  352.             dm.MoveTo(intx2-63,inty2+30)
  353.             辅助.等待(500)
  354.             dm.RightClick()
  355.             辅助.等待(500)
  356.             dm.KeyPress(77)
  357.             辅助.等待(500)
  358.             移动=1
  359.             获得分钟=系统.获取毫秒()/60000
  360.            跳出
  361.           如果结束
  362.         循环结束
  363.      如果结束
  364.   
  365.   
  366.       如果((计算分钟-获得分钟1)>1*1)
  367.             dm.KeyPress(77)
  368.             辅助.等待(1000)   
  369.             intx2,inty2
  370.             循环(真)
  371.             dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
  372.             辅助.等待(100)           
  373.             如果(intx2>0)
  374.             dm.MoveTo(intx2+80,inty2+40)
  375.             辅助.等待(500)
  376.             dm.RightClick()
  377.             辅助.等待(500)
  378.             dm.KeyPress(77)
  379.             辅助.等待(500)   
  380.             获得分钟1=系统.获取毫秒()/60000
  381.            跳出
  382.           如果结束
  383.         循环结束
  384.       
  385.      如果结束
  386.      
  387.      
  388. //自动松土
  389.     如果(复选框.获得状态("松土") )

  391.     intx6,inty6
  392.     dm.FindStr(0,0,2000,2000,"健康","ffba3c-505050",0.8,intx6,inty6)
  393.     辅助.等待(500)
  394.     如果(intx6>0&&a==0)
  395.         
  396.        辅助.等待(100)
  397.        dm.MoveTo(intx6,inty6+60)
  398.        辅助.等待(500)
  399.         dm.LeftClick()
  400.         循环(0<松土次数)
  401.         辅助.等待(3000)
  402.         松土次数=松土次数-1
  403.         标签.设置文本("剩余松土次数","剩余松土次数："&松土次数)
  404.        循环结束
  405.        a=1
  406.     如果结束

  408.   如果结束     
  409.      
  410.               //自动浇水
  411.     如果(复选框.获得状态("浇水") )
  412.       
  413.                 intx,inty
  414.                 dm.FindStr(0,0,2000,2000,"干旱","ffba3c-707070",0.8,intx,inty)
  415.                 辅助.等待(500)
  416.                     如果(intx>0&&0<浇水次数)
  417.                           辅助.等待(500)
  418.                           dm.MoveTo(intx,inty+60)
  419.                           辅助.等待(500)
  420.                           dm.LeftClick()
  421.                           辅助.等待(6000)
  422.                           浇水次数=浇水次数-1
  423.                           标签.设置文本("剩余浇水次数","剩余浇水次数："&浇水次数)
  424.                           dm.MoveTo(46,83)
  425.                           辅助.等待(500)
  426.                          dm.LeftClick()
  427.                     如果结束
  428.   如果结束

  430. //自动施肥
  431. 如果(复选框.获得状态("施肥") )
  432.     intx,inty
  433.     dm.FindStr(0,0,2000,2000,"贫瘠","ffba3c-607080",0.8,intx,inty)
  434.     辅助.等待(500)
  435.     如果(intx>0&&0<施肥次数)
  436.        辅助.等待(500)
  437.        dm.MoveTo(intx,inty+60)
  438.        辅助.等待(500)
  439.        dm.LeftClick()
  440.        辅助.等待(6000)
  441.        施肥次数=施肥次数-1
  442.        标签.设置文本("剩余施肥次数","剩余施肥次数："&施肥次数)
  443.         dm.MoveTo(46,83)
  444.         辅助.等待(500)
  445.         dm.LeftClick()
  446.     如果结束
  447. 如果结束


  450. //    自动捉虫
  451.     intx5,inty5
  452.     dm.FindStr(0,0,2000,2000,"害虫","ffba3c-707070",0.8,intx5,inty5)
  453.     辅助.等待(500)
  454.     如果(intx5>0)
  455.        辅助.等待(500)
  456.        dm.MoveTo(intx5,inty5+40)
  457.        辅助.等待(500)
  458.        dm.LeftClick()
  459.        辅助.等待(6000)
  460.     如果结束


  463. 如果(施肥次数==0&&浇水次数==0)  
  464.     辅助.消息框("任务完成！")
  465.     跳出
  466. 如果结束
  467.   
  468. 循环结束
  469.    



  473.          
  474. //      intX,intY
  475. //      dm.FindColor(860,29,1000,150, "ad0300-000000|f00005-000000", 0.8, 0,intX,intY)  
  476. //      辅助.等待(1000)   
  477. //       如果(intX>0)
  478. //          dm.MoveTo(intX,intY)
  479. //          辅助.等待(500)
  480. //          dm.RightClick()
  481. //          辅助.等待(2000)
  482. //          dm.LeftClick()
  483. //         
  484. //        如果结束
  485.      
  486. 如果结束

  488. 返回 真
  489. 功能结束


  492. 功能 自动喊话()
  493. 窗口绑定是否成功
  494. 句柄窗口
  495.      如果(c1!=0)
  496.      句柄窗口=句柄[i]
  497.      否则
  498.            句柄窗口=窗口句柄
  499.      如果结束
  500.   
  501.      窗口绑定是否成功=dm.BindWindow(句柄窗口,"dx","dx","dx",0)
  502.      
  503.      如果(窗口绑定是否成功==0)
  504.          辅助.消息框("窗口绑定失败")
  505.      否则
  506.      
  507.      循环(真)  
  508.       辅助.等待(1000)
  509.       辅助.等待(1000)
  510.       dm.KeyPress(13)  
  511.      辅助.等待(1000)
  512.      dm.SendString(句柄窗口,编辑框.获得文本("喊话1"))
  513.      辅助.等待(1000)
  514.         dm.KeyPress(13)   
  515.      辅助.等待(1000)
  516.        dm.KeyPress(13)  
  517.      辅助.等待(1000)
  518.         dm.SendString(句柄窗口,编辑框.获得文本("喊话2"))
  519.      辅助.等待(1000)
  520.          dm.KeyPress(13)   
  521.      辅助.等待(1000)
  522.           dm.KeyPress(13)   
  523.      辅助.等待(1000)
  524.         dm.SendString(句柄窗口,编辑框.获得文本("喊话3"))
  525.      辅助.等待(1000)
  526.          dm.KeyPress(13)  
  527.      辅助.等待(1000)
  528.         dm.KeyPress(13)   
  529.      辅助.等待(1000)
  530.         dm.SendString(句柄窗口,编辑框.获得文本("喊话4"))
  531.      辅助.等待(1000)
  532.          dm.KeyPress(13)   
  533.      辅助.等待(1000)
  534.      
  535.         dm.KeyPress(13)   
  536.      辅助.等待(1000)
  537.         dm.SendString(句柄窗口,编辑框.获得文本("喊话5"))
  538.      辅助.等待(1000)
  539.      dm.KeyPress(13)

  541.      辅助.等待(1000)
  542.      循环结束
  543.      
  544.      如果结束
  545. 返回 0
  546. 功能结束


  549. 功能 自动打怪()

  551. 路径
  552. 路径=辅助.获取资源路径("rc:")

  554. dm.SetPath(路径)

  556. 窗口绑定是否成功,intX,intY,intX1,intY1,intX2,intY2,intX3,intY3,intX4,intY4
  557.      如果(c1!=0)
  558.      窗口句柄=句柄[i]
  559.      如果结束
  560.      窗口绑定是否成功=dm.BindWindow(窗口句柄,"dx","dx","dx",0)
  561.      
  562.      如果(窗口绑定是否成功==0)
  563.          辅助.消息框("窗口绑定失败")
  564.      否则
  565.         循环(真)
  566.         dm.KeyPress(9)
  567.         辅助.等待(500)
  568.         dm.FindColor(441,49,457,65, "a50000-000000", 0.8, 0,intX,intY)
  569.         辅助.等待(1000)
  570.         循环(intX>0)
  571.             dm.KeyPress(技能攻击1)
  572.             辅助.等待(延时等待1)
  573.             
  574.             dm.KeyPress(技能攻击2)
  575.             辅助.等待(延时等待2)
  576.             
  577.             
  578.             //加血判断
  579.              dm.FindColor(130,50,152,64, "bd0000-000000", 0.8, 0,intX3,intY3)
  580.              辅助.等待(1000)
  581.              如果(intX3<0)
  582.                  dm.KeyPress(56)
  583.             如果结束
  584.            
  585.             //加蓝判断
  586.              dm.FindColor(131,69,153,83, "0049bd-000000", 0.8, 0,intX4,intY4)
  587.              辅助.等待(1000)
  588.              如果(intX4<0)
  589.                  dm.KeyPress(57)
  590.             如果结束        

  592.                                                                
  593.             dm.KeyPress(技能攻击3)
  594.             辅助.等待( 延时等待3)
  595.             
  596.             dm.KeyPress(技能攻击4)
  597.             辅助.等待( 延时等待4)
  598.             
  599.             dm.KeyPress(技能攻击5)
  600.             辅助.等待(延时等待5)
  601.             
  602.          
  603.            //升级判断
  604.             dm.FindPic(0,0,2000,2000,"升级图片.bmp","000000",0.9,0,intX2,intY2)
  605.             辅助.等待(1000)
  606.              如果(intX2>0)
  607.                  dm.KeyPress(27)
  608.             如果结束           
  609.             
  610.             //怪物是否死亡判断
  611.             dm.FindColor(295,56,303,69, "c61418-000000", 0.9, 0,intX1,intY1)
  612.             辅助.等待(1000)
  613.             如果(intX1<0)
  614.                     dm.KeyPress(192)
  615.                     辅助.等待(2000)
  616.                     dm.KeyPress(192)
  617.                     辅助.等待(1000)
  618.                 跳出
  619.             如果结束
  620.         循环结束

  622.    循环结束
  623.    
  624.      如果结束

  626. 返回 真
  627. 功能结束

  629. 功能  大漠解绑()
  630. dm.UnBindWindow()
  631. 返回 0
  632. 功能结束


  635. 功能  获取窗口()
  636.         枚举窗口=系统.枚举("MainWnd class of ArkEngine",1)
  637.     如果(字符串.长度(枚举窗口)!=0)
  638.         字符串.分割(枚举窗口,"|",句柄)
  639.          i=0
  640.          数组空间.大小(句柄,c1)                  
  641.          索引值
  642.          索引值=选项卡.得到选项("选项卡0")
  643.                           
  644.          如果(索引值==0)
  645.                  如果(!大唐无双多开自动打怪.文本框内容是否为空())
  646.                          辅助.消息框("请设置好攻击技能或者延时")
  647.                   否则      
  648.                           如果(c1==0) //如果c1=0证明就一个游戏窗口,单开操作
  649.                                 窗口句柄=枚举窗口
  650.                                 辅助.等待(1000)
  651.                                 线程句柄=线程.扩展开启("大唐无双多开自动打怪.自动打怪","","大唐无双多开自动打怪.大漠解绑","")   
  652.                             否则
  653.                                   线程句柄集=数组空间.重定义(线程句柄集,真,c1)
  654.                                      循环(i <c1)
  655.                                            线程句柄集[i]=线程.扩展开启("大唐无双多开自动打怪.自动打怪","","大唐无双多开自动打怪.大漠解绑","")
  656.                                            辅助.等待(2000)
  657.                                             i=i +1
  658.                                       循环结束
  659.                                k=i-1
  660.                              如果结束
  661.                      
  662.                       如果结束
  663.              如果结束

  665.              如果(索引值==1)
  666.                  如果(c1==0) //如果c1=0证明就一个游戏窗口,单开操作
  667.                                 窗口句柄=枚举窗口
  668.                                 辅助.等待(1000)
  669.                                 线程句柄=线程.扩展开启("大唐无双多开自动打怪.自动喊话","","大唐无双多开自动打怪.大漠解绑","")   
  670.                             否则
  671.                            
  672.                                   线程句柄集=数组空间.重定义(线程句柄集,真,c1)
  673.                                      循环(i <c1)
  674.                                          
  675.                                            辅助.等待(2000)
  676.                                            线程句柄集[i]=线程.扩展开启("大唐无双多开自动打怪.自动喊话","","大唐无双多开自动打怪.大漠解绑","")
  677.                                            辅助.等待(2000)
  678.                                             i=i +1
  679.                                       循环结束
  680.                                k=i-1
  681.                  如果结束
  682.                  
  683.               如果结束   
  684.          如果(索引值==2)
  685.                  如果(c1==0) //如果c1=0证明就一个游戏窗口,单开操作
  686.                                 窗口句柄=枚举窗口
  687.                                 辅助.等待(1000)
  688.                                 线程句柄=线程.扩展开启("大唐无双多开自动打怪.自动庄园任务","","大唐无双多开自动打怪.大漠解绑","")   
  689.                             否则
  690.                            
  691.                                   线程句柄集=数组空间.重定义(线程句柄集,真,c1)
  692.                                      循环(i <c1)
  693.                                            辅助.等待(2000)
  694.                                            线程句柄集[i]=线程.扩展开启("大唐无双多开自动打怪.自动庄园任务","","大唐无双多开自动打怪.大漠解绑","")
  695.                                            辅助.等待(2000)
  696.                                             i=i +1
  697.                                       循环结束
  698.                                k=i-1
  699.                  如果结束
  700.                  
  701.               如果结束      
  702.               
  703.     否则
  704.         辅助.消息框("请确认是否开启了游戏！")
  705.     如果结束
  706.    
  707. 返回 真
  708. 功能结束


  711. //快速测试功能
  712. function test()
  713.     枚举窗口1
  714.     枚举窗口1=系统.枚举("MainWnd class of ArkEngine",1)
  715. //    help.messagebox(枚举窗口1)
  716.     路径
  717.     路径=辅助.获取资源路径("rc:")
  718.     dm.SetPath(路径)
  719.     辅助.等待(500)
  720.     dm.SetDict(0,"dm_soft.txt")         
  721.     句柄窗口
  722.     句柄窗口 = convert.strtoint(枚举窗口1,0)
  723.     if(0==dm.BindWindow(句柄窗口,"dx","dx","dx",0))
  724.         help.messagebox("绑定失败")
  725.         return 0
  726.     endif

  728. // 左边树的坐标是x-63,y+30
  729. //右边树的坐标是x+70,y+45
  730. //
  731. //      循环(真)
  732. //          intx2,inty2
  733. //          dm.FindStr(0,0,2000,2000,"帮会树","00ff00-506060",0.8,intx2,inty2)
  734. //          辅助.等待(100)           
  735. //          如果(intx2>0)
  736. //          dm.MoveTo(intx2+70,inty2+45)
  737. //          辅助.等待(500)
  738. //          dm.RightClick()
  739. //          跳出
  740. //          如果结束
  741. //      循环结束
  742. //         



  746.       intX,intY
  747.       dm.FindColor(0,0,2000,2000, "ad0300-000000", 0.8, 0,intX,intY)  
  748.       辅助.等待(2000)   
  749.        如果(intX>0)
  750.          辅助.消息框("找到颜色")
  751.         如果结束
  752.         dm.UnBindWindow()
  753. return 0

  755. 功能结束




  760. 功能 开始_点击()
  761. //这里添加你要执行的代码
  762. //大唐无双多开自动打怪.test()
  763. 大唐无双多开自动打怪.获取窗口()

  765. 返回 真
  766. //函数返回语句
  767. 功能结束

  769. 功能 退出_点击()
  770. //这里添加你要执行的代码

  772. 如果(c1==0)
  773.      线程.关闭(线程句柄)
  774.      辅助.等待(2000)
  775. 否则
  776.      循环(k>=0)
  777.       // 辅助.消息框(转换.整型转字符型(线程句柄集[k]))
  778.          线程.关闭(线程句柄集[k])
  779.          辅助.等待(2000)
  780.               k=k-1
  781.      循环结束
  782. 如果结束
  783. 辅助.等待(20000)
  784. 辅助.退出()
  785. 返回 真
  786. //函数返回语句
  787. 功能结束

  789. 功能 初始化()
  790. //这里添加你要执行的代码

  792. 是否注册成功=辅助.注册插件("rc:dm.dll",真)
  793. 辅助.等待(1000)
  794. 如果(!是否注册成功)
  795.     辅助.消息框("大漠注册失败,请手动 注册！")
  796. 如果结束

  798. 选项卡.激活("选项卡0",0)
  799. 下拉框.设置选项("技能攻击1",0)
  800. 下拉框.设置选项("技能攻击2",0)
  801. 下拉框.设置选项("技能攻击3",0)
  802. 下拉框.设置选项("技能攻击4",0)
  803. 下拉框.设置选项("技能攻击5",0)

  805. 辅助.命令("www.tcmade.com",真)
  806. 辅助.等待(1000)
  807. 辅助.命令("http://bbs.tcmade.com/showtopic-7224.aspx",真)
  808. 返回 真
  809. 功能结束

  811. 空间结束
  812. //空间结束语句
复制代码


   

[attach]2487[/attach]
[attach]6639[/attach]
作者: cylhb    时间: 2012-3-12 17:47
附件没添加、。。。
作者: tcmade888    时间: 2012-3-12 17:49
没上传呀！
作者: zengjunulpl    时间: 2012-3-12 20:25
想问下，这个会被检测不？
作者: tyuyan    时间: 2012-3-12 21:14
回复 4楼zengjunulpl的帖子

:+ 暂时没有发现被封。
作者: 小西    时间: 2012-3-12 21:24
:+哇,那么长啊,看完得花点时间哦
作者: 381555478    时间: 2012-3-12 21:24
支持小西！~
作者: qq06314488    时间: 2012-3-12 21:24
不错,收藏,以后观摩
作者: hyg1393040    时间: 2012-3-12 21:27
搞网易，活腻歪了!
作者: 流冰    时间: 2012-3-12 21:33
至今还是大漠创建失败不知道原因路过
作者: 超自然    时间: 2012-3-12 21:40
回复 4楼zengjunulpl的帖子

:+ 暂时没有发现被封。
tyuyan 发表于 2012-3-12 21:14:43

:D 建议到野外开打怪多试试,我在天牢3缺1等你哦   
作者: woodfish    时间: 2012-3-12 22:06
[quote]回复 4楼zengjunulpl的帖子

:+ 暂时没有发现被封。
tyuyan 发表于 2012-3-12 21:14:
超自然 发表于 2012-3-12 21:40:05
大唐无双打怪干毛啊，好好种植跑商赚钱不好
作者: woodfish    时间: 2012-3-12 22:07
受教了，解决了我关于后台多开的许多个疑问
作者: cgg521    时间: 2012-3-12 23:18
请教下楼主,您是如何解决多开鼠标互抢的问题?
作者: tyuyan    时间: 2012-3-12 23:41
请教下楼主,您是如何解决多开鼠标互抢的问题?
cgg521 发表于 2012-3-12 23:18:08
这个是大漠后台多开。  相互不影响的。
作者: cgg521    时间: 2012-3-12 23:53
回复 15楼tyuyan的帖子

大漠绑定后台用DX模式吧?还得设置权限吧?
作者: 皓月    时间: 2012-3-13 00:05
长代码 ,晕了.
作者: TC管理员    时间: 2012-3-13 15:49
来支持下 ...
作者: tyuyan    时间: 2012-3-15 09:49
:~..早知道不放源码。。。 都木人下载看的。
作者: dzh    时间: 2012-3-15 21:51
回复 1楼tyuyan的帖子

楼主辛苦了！！！
作者: 卡卡    时间: 2012-3-16 23:23
支持原创
作者: tyuyan    时间: 2012-3-19 17:29
:yun  跪求斑竹加分啊！
作者: alany_j    时间: 2012-3-24 02:17
好东西啊，就是看不懂
作者: 苏小宁    时间: 2012-3-26 14:57
呵呵小蜜我来过了
作者: tyuyan    时间: 2012-3-26 14:59
呵呵小蜜我来过了
苏小宁 发表于 2012-3-26 14:57:35

:o   都发了这么久了。。才来 :d
作者: 无处藏身    时间: 2012-3-28 14:25
顶一下吧..这么长也得写很久了
作者: blweibao2    时间: 2012-3-28 14:40
就应该搞网易
作者: pacino    时间: 2012-4-5 18:09
好！非常好！！真的很不错！！！
作者: pacino    时间: 2012-4-10 22:32
好！非常好！！真的很不错！！！
作者: 444666    时间: 2012-4-13 09:38
这个是我想学习的·
作者: 597585225    时间: 2012-4-18 15:22
有语法错误，请查证后重试！
作者: gzhofchina    时间: 2012-4-19 00:50
看一看呀看一看
作者: iamlxm2012    时间: 2012-5-18 12:38
楼主辛苦了！！！
作者: hfwrn2010    时间: 2012-6-5 16:33
支持下 谢谢
作者: hfwrn2010    时间: 2012-6-5 16:33
还不会用下了学习下  呵呵
作者: hfwrn2010    时间: 2012-6-5 16:37
学习再学习
作者: smallduck218    时间: 2012-6-13 23:02
三哥 这个代码我看了 比你以前发的天龙代码要容易看懂    谢了
作者: songje88    时间: 2012-6-15 22:58
太强大了，看不懂哦，严重打击信心，怎么学啊
作者: jinlongzzy    时间: 2012-6-16 09:53
回复 1楼tyuyan的帖子

好东西 必须顶起 哈哈哈
作者: 749226    时间: 2012-6-19 10:21
怎么下载不了附件去啊
作者: 雀巢咖啡    时间: 2012-6-26 10:25
学习再学习
作者: pacino    时间: 2012-7-4 21:03
好，非常好！非常感谢！啊
作者: yhv001    时间: 2012-7-20 15:22
想问下这一组代码不能直接读出技能选项值再调用相应的按键吗？
如果(技能4 ==1)

        技能攻击4=49

    如果结束

        如果(技能4 ==2)

        技能攻击4=50

    如果结束

        如果(技能4 ==3)

        技能攻击4=51

    如果结束

        如果(技能4 ==4)

        技能攻击4=52

    如果结束

        如果(技能4 ==5)

        技能攻击4=53

    如果结束

如果技能你很多那很烦啊
作者: qhumcwz    时间: 2012-7-21 01:30
路过学习~~~
作者: loveternity    时间: 2012-7-21 03:55
回复 43楼yhv001的帖子

可以换成select语句,不过大唐无双检测机制比较狠,野外打怪经常被检测到,也许是用大漠插件的缘故,或者行为检测,反正很容易被抓,不知道有没有高手有好的办法,共同研究下
作者: lqly8520    时间: 2012-7-21 18:22
哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈
作者: junyanghlj    时间: 2012-8-21 19:10
观摩 学习
作者: yashi49    时间: 2012-9-24 10:41
啥时候我也能这么牛就好了！
作者: alwenye    时间: 2012-10-20 15:33
学习啊，
作者: wlhtdl    时间: 2012-11-22 05:21
支持下
作者: boy13    时间: 2012-11-23 10:20
这个真的好
作者: hw850502961    时间: 2012-11-30 18:34
回复 1楼tyuyan的帖子

笑嘻嘻笑嘻嘻笑嘻嘻笑嘻嘻
作者: yzx20051    时间: 2012-12-28 14:44
下来使用使用 感谢楼主提供
作者: ansay    时间: 2013-1-7 05:16
很好，很强大
作者: tonyaa2007    时间: 2013-2-25 10:30
下载下了学习学习
作者: a3567166    时间: 2013-2-27 14:03
............................
作者: anyetiangong    时间: 2013-5-16 09:44
学习 感谢楼主分享
作者: zhouggan    时间: 2013-6-21 19:48
努力再努力，我学PELIN，是学不好了，学学TD
作者: qazawj    时间: 2015-8-15 10:37
pacino 发表于 2012-4-5 18:09
好！非常好！！真的很不错！！！

kkkkkkkkkkkkkkk
作者: 444956710    时间: 2017-5-12 09:45
谁是你的老师



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1