TC官网新手教程
开启辅助访问 设为首页收藏本站切换到窄版

TC官方合作论坛

 找回密码
 立即注册
TC官方合作论坛»首页 › 学习讨论区 › 综合讨论 › 来个神，看看我这倩女脚本为何崩溃
返回列表 发新帖
查看: 1779|回复: 5

[已解决] 来个神，看看我这倩女脚本为何崩溃

[复制链接]
luoxe
发表于 2012-7-19 15:11:49 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看，没有帐号？立即注册

x
#import "dm.dmsoft" My
空间 倩女脚本

   功能 整型 调用开始搜索()
My.SetPath(辅助.获取资源路径("rc:"))
         int intX,intY
          My.SetDict(0,"DM_ZK.txt")
         整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
          如果(判断5==0)      
             My.MoveTo(intX+150,intY+237)
             help.sleep(300)
                My.LeftClick()
                help.sleep(300)
             倩女脚本.细分()
            如果结束
             返回 0
             功能结束
  功能 整型 调用中间数字()
  My.SetPath(辅助.获取资源路径("rc:"))
         int intX,intY
          My.SetDict(0,"DM_ZK.txt")
         整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
             如果(判断5==0)
                 辅助.等待(300)
              整型 判断6= My.FindStrFast(intX+26,intY+233,intX+33,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
             如果(判断6>=0)
                 辅助.等待(300)
              整型 判断7= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
             如果(判断7==0)
                 辅助.等待(300)
             整型 判断8= My.FindStrFast(intX+1,intY+233,intX+9,intY+243,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
             如果(判断8>=0)
                 辅助.等待(300)
                 如果(判断6==判断8)
                     倩女脚本.调用第一个数字()
                 否则
                     辅助.等待(300)
                倩女脚本.调用开始搜索()
             如果结束
             如果结束
             如果结束
             如果结束
             如果结束
  返回 0
  功能结束
  功能 整型 调用第一个数字()
  My.SetPath(辅助.获取资源路径("rc:"))
         int intX,intY
          My.SetDict(0,"DM_ZK.txt")
                     整型 判断9= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
             如果(判断9==0)
                 辅助.等待(300)
              整型 判断10= My.FindStrFast(intX+20,intY+233,intX+27,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
             如果(判断10>=0)
                 辅助.等待(300)
              整型 判断11= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
             如果(判断11==0)
                 辅助.等待(300)
             整型 判断12= My.FindStrFast(intX-5,intY+233,intX+3,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
             如果(判断12>=0)
                 辅助.等待(300)
             如果(判断10==判断12)
                 辅助.等待(300)
                 倩女脚本.找到商人()
             否则
                   倩女脚本.调用开始搜索()
                   辅助.等待(300)
                   倩女脚本.判断页底()
             如果结束
             如果结束
             如果结束
             如果结束
             如果结束
  返回 0
  功能结束
功能 整型 判断页底()
循环(真)
My.SetPath(辅助.获取资源路径("rc:"))
         int intX,intY
My.SetDict(0,"DM_ZK.txt")
         
              整型 判断1= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
             如果(判断1==0)     
                 辅助.等待(300)
             整型 判断2= My.FindStrFast(intX+32,intY+233,intX+39,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
             如果(判断2>=0)
                 辅助.等待(300)
                 
             整型 判断3= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
             如果(判断3==0)
               辅助.等待(300)
             整型 判断4= My.FindStrFast(intX+7,intY+232,intX+15,intY+243,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
             如果(判断4>=0)   
              辅助.等待(300)
             如果(判断2==判断4)
                 倩女脚本.调用中间数字()
                 辅助.等待(300)
             否则
                 倩女脚本.调用开始搜索()
             如果结束
             如果结束
             如果结束
             如果结束
             如果结束
        
   
            
         
循环结束

返回 0
功能结束
   
功能 整型 找到商人()
My.SetPath(辅助.获取资源路径("rc:"))
         int intX,intY
My.SetDict(0,"DM_ZK.txt")
循环(真)
       整型 判断1= My.FindPic(0,0,1400,800,"买东西.bmp","000000",1.0,0,intX,intY)
          如果(判断1>=0)
           My.MoveTo(intX+10,intY-5)
                    辅助.等待(1000)
          My.LeftClick()
           辅助.等待(1000)
  倩女脚本.开始搜索()
           跳出
          否则
              循环(真)
    整型 判断2= My.FindPic(0,0,1400,900,"自动寻路.bmp","000000",1.0,0,intX,intY)
     如果(判断2>=0)
         My.MoveTo(intX,intY)
         辅助.等待(1000)
          My.LeftClick()
           辅助.等待(1000)
         整型 判断4= My.FindStrFast(0,0,1400,900,"玩家","ffffff-000000",1.0,intX,intY)
        如果(判断4==0)
//            辅助.消息框("自动寻路下面不执行")
            My.MoveTo(intX,intY)
             辅助.等待(1000)
          My.LeftClick()
           辅助.等待(2000)
           跳出
        如果结束
     否则
         整型 判断3= My.FindPic(0,0,1400,900,"清除.bmp","000000",1.0,0,intX,intY)
         如果(判断3>=0)
             My.MoveTo(intX,intY)
                辅助.等待(100)
          My.LeftClick()
           辅助.等待(100)
         如果结束
          如果结束
              循环结束
          如果结束
循环结束
返回 0
功能结束
功能 整型 开始搜索()
循环(真)
My.SetPath(辅助.获取资源路径("rc:"))
         int intX,intY
My.SetDict(0,"DM_ZK.txt")
辅助.等待(500)
      
      整型 判断6= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
  如果(判断6==0)
      My.MoveTo(intX,intY-89)
      辅助.等待(500)
      My.LeftDown()
      辅助.等待(500)
      My.MoveTo(613,33)
      辅助.等待(500)
      My.LeftUp()
      辅助.等待(1000)
       整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
       如果(判断5==0)
      辅助.等待(200)
    整型 判断102= My.FindStrFast(intX-167,intY-10,intX+197,intY+282,"锁定","ffffff-000000",1.0,intX,intY)
     如果(判断102==0)
        
       辅助.等待(100)
       My.MoveTo(intX,intY)
       辅助.等待(100)
       My.LeftClick()
       辅助.等待(300)
  倩女脚本.细分()
  跳出
     否则
         倩女脚本.找到商人()
  如果结束
      
  如果结束
    否则
         倩女脚本.找到商人()
       如果结束
循环结束
返回 0
功能结束
功能 整型 细分()
循环(真)
My.SetPath(辅助.获取资源路径("rc:"))
         int intX,intY
My.SetDict(0,"DM_ZK.txt")
      整型 判断2= My.FindPic(0,0,1400,900,"进入筛选.bmp","000000",1.0,0,intX,intY)
       如果(判断2>=0)
           My.MoveTo(intX+25,intY+41)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
           My.MoveTo(intX+78,intY+41)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)
       辅助.等待(100)
           My.MoveTo(intX+131,intY+41)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)
       辅助.等待(100)
           My.MoveTo(intX+184,intY+41)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

       辅助.等待(100)
           My.MoveTo(intX+237,intY+41)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

       辅助.等待(100)
           My.MoveTo(intX+25,intY+84)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

       辅助.等待(100)
           My.MoveTo(intX+78,intY+84)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

              辅助.等待(100)
           My.MoveTo(intX+131,intY+84)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
            My.MoveTo(intX+1,1)
       辅助.等待(100)

              辅助.等待(100)
           My.MoveTo(intX+184,intY+84)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

              辅助.等待(100)
           My.MoveTo(intX+237,intY+84)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

       辅助.等待(100)
           My.MoveTo(intX+25,intY+127)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)
           辅助.等待(100)
           My.MoveTo(intX+78,intY+127)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

           辅助.等待(100)
           My.MoveTo(intX+131,intY+127)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)
           辅助.等待(100)
           My.MoveTo(intX+184,intY+127)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

           辅助.等待(100)
           My.MoveTo(intX+237,intY+127)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

    辅助.等待(100)
           My.MoveTo(intX+25,intY+170)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
            My.MoveTo(intX+1,1)
       辅助.等待(100)

       辅助.等待(100)
           My.MoveTo(intX+78,intY+170)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

       辅助.等待(100)
           My.MoveTo(intX+131,intY+170)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)

       辅助.等待(100)
           My.MoveTo(intX+183,intY+170)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
             My.MoveTo(intX+1,1)
       辅助.等待(100)
       辅助.等待(100)
           My.MoveTo(intX+237,intY+170)
           辅助.等待(100)
       My.LeftClick()
       辅助.等待(100)
       My.MoveTo(intX+1,1)
       辅助.等待(2000)
   整型 判断16= My.FindPic(0,0,1400,900,"操作.bmp","000000",1.0,0,intX,intY)
       如果(判断16>=0)
           辅助.等待(100)
           My.MoveTo(intX+40,intY+32)
           辅助.等待(100)
        整型 判断15= My.FindPic(0,0,1400,900,"待操.bmp","000000",1.0,0,intX,intY)
       如果(判断15>=0)
              辅助.等待(500)
           My.LeftClick()
          辅助.等待(100)
          倩女脚本.细分()
       否则
         整型 判断17= My.FindPic(0,0,1400,900,"跳转3.bmp","000000",1.0,0,intX,intY)
       如果(判断17>=0)
      倩女脚本.判断页底()
      跳出
       否则
         

           倩女脚本.调用开始搜索()
           倩女脚本.开始搜索()
       如果结束
         整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
        如果(判断5==0)
      
           
       否则
           倩女脚本.开始搜索()
           如果结束
       如果结束
       否则
           倩女脚本.开始搜索()
       如果结束
       如果结束
循环结束
返回 0
功能结束
  

整型 线程1
   
功能 逻辑型 收获()
      辅助.等待(300)
My.SetPath(辅助.获取资源路径("rc:"))
辅助.等待(300)
整型 窗口句柄=窗口.找到窗口("倩女幽魂Online 版本[95526] 服务器[千里江山] 角色ID[245800168]")
辅助.等待(300)
      整型 判断0 = My.BindWindow(窗口句柄,"normal","normal","normal",0)
      如果(判断0==1)
         
           辅助.等待(300)
          倩女脚本.找到商人()
      否则
          辅助.消息框("绑定失败")
      
      如果结束
返回 真
功能结束

功能 逻辑型 开始_点击()
线程1=线程.开启("倩女脚本.收获","")
返回 真
功能结束

功能 逻辑型 退出_点击()
线程.关闭(线程1)
辅助.退出()
返回 真
//函数返回语句
功能结束

功能 逻辑型 热键0_热键()
倩女脚本.开始_点击()
返回 真
功能结束


功能 逻辑型 热键1_热键()
倩女脚本.退出_点击()
返回 真
功能结束


空间结束














新手一头，这个倩女脚本，gdi到DX3全部试过，都是坚持不到一小时就崩溃了。为什么被人写的倩女脚本可以我的怎么不行？
求大神指正。谢谢了
回复

使用道具 举报

cqx888625
发表于 2012-7-21 15:58:03 | 显示全部楼层
什么问题说来看看，
回复 支持 反对

使用道具 举报

cqx888625
发表于 2012-7-20 09:39:53 | 显示全部楼层
整型 判断0 = My.BindWindow(窗口句柄,"normal","normal","normal",0)把这句改为
整型 判断0 = My.BindWindow(窗口句柄,"dx","dx","dx",0)或者改成
整型 判断0 = My.BindWindow((窗口句柄,"dx","dx","windows",0)
这两个都能支持倩女幽魂后台
回复 支持 反对

使用道具 举报

luoxe
 楼主| 发表于 2012-7-20 16:05:00 | 显示全部楼层
回复 2楼cqx888625的帖子

兄弟，你这个我都改了不下万遍了，dx3,dx2,dx.    dx2dx2dx   dx3dx3dx  dxdx3dx  dxdx2dx,等等全试过。最后崩溃，崩溃加崩溃。
回复 支持 反对

使用道具 举报

cqx888625
发表于 2012-7-20 19:05:31 | 显示全部楼层
你说的崩溃是不是关闭脚本就连游戏窗口也一起关闭了
回复 支持 反对

使用道具 举报

luoxe
 楼主| 发表于 2012-7-21 02:52:03 | 显示全部楼层
回复 4楼cqx888625的帖子

不是，但问题已经解决了。谢谢支持
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-5-29 23:42 , Processed in 0.038225 second(s), 23 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表