TC官方合作论坛

标题: 问......提.. . 对不起给您们添麻烦了.. [打印本页]

作者: kovsko    时间: 2012-7-22 13:03
标题: 问......提.. . 对不起给您们添麻烦了..
我想.下面两个功能写到一个空间里可以吗。。


空间 寻路
//定义默认空间

function bool 寻路模块(int 操作)
   
   
    if(操作 ==1) //打开寻路
        
        //找图(找打开寻路界面后的图)
        //if(....)
        
        //如果找到,说明已经打开寻路,则不用写其他代码
        
        //else
        
        //没找到图,说明没打开寻路界面,
        //则写打开寻路的代码
        
        // endif
    endif
   
   
    if(操作 ==2)//关闭寻路
        
        
        //找图(找打开寻路界面后的图)
        //if(....)
        
        //如果找到,说明已经打开寻路,则写关闭寻路的代码
        
        //else
        
        //没找到图,说明没打开寻路界面,
        //则不用写其他代码
        
        // endif
        
        
    endif
   
   
    return true
endfunction

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                                                  把上面个下面的写到一个空间,,应该怎么写内,,可以吗?为神呢??不可以?..为什么呀。
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
空间 自动练宝

功能 逻辑型 练宝()
整型 窗口句柄=lb.FindWindow("","轩辕传奇")
    如果(窗口句柄==0)
        辅助.消息框("没有找到窗口")
        返回 假
    如果结束
   
lb.SetPath(辅助.获取资源路径("rc:"))




int x,y,ret
int x1,y1,ret1
int x2,y2,ret2
select(ret1!=-1)
   

case(ret=lb.FindPic(0,0,2000,2000,"11.bmp","101010",0.9,0,x,y))
if(ret!=-1)
    lb.MoveTo(x,y)
    help.sleep(500)
    lb.LeftClick()
    help.sleep(1000)
endif



case:ret1=lb.FindPic(0,0,2000,2000,"1111.bmp","101010",0.9,0,x1,y1)
if(ret1!=-1)
    lb.MoveTo(x1-100,y1+70)   
else
    help.messagebox("第二个图查找失败")
endif

endselect





while(true)
    help.sleep(200)
    lb.WheelDown()
    ret2=lb.FindPic(0,0,2000,2000,"冷少泉.bmp","000000",0.9,0,x2,y2)
    if(ret2!=0)
        continue
    else
    lb.MoveTo(x2,y2-10)
    lb.LeftDoubleClick()
        break
        
    endif
endwhile

endif

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
谢谢各位大大啦。。。。。。。。。。。。。。。。。。。。。。。。。。
作者: 陌上青衣。    时间: 2012-7-22 13:14
  1. #include"寻路.t"
复制代码


空间前面加上上面函数
  1. 线程句柄=线程.开启("空间名.线程方法","")
  2. 或者
  3. 返回值=空间名.线程方法()
复制代码

调用方法
作者: kovsko    时间: 2012-7-22 16:38
回复 2楼陌上青衣。的帖子

陌哥。。。是你 。。
作者: kovsko    时间: 2012-7-22 18:19
回复 3楼kovsko的帖子

我说的意思是些在一起 。。不是调用。。




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