后台多开,怎么调用一个线程对各个窗口监视?

cybkk

后台多开,怎么调用一个线程对各个窗口监视?

kaixindexifan

1. 线程.开启("空间.方法","")
   
2. 
   
3. 功能 方法()
   
4.     x,y
   
5.     dm=数组[10],窗口句柄=数组[10]
   
6.    
   
7.     窗口句柄[1]
   
8.     窗口句柄[2]
   
9.     窗口句柄[3]
   
10.    
    
11.     for(i=1;i<4;i++)
    
12.         dm[i]=com("dm.dmsoft")
    
13.         dm[i].BindWindow(窗口句柄[i],"dx","dx","dx",0)
    
14.         辅助.等待(1000)
    
15.     endfor
    
16.    
    
17.     循环(真)
    
18.         辅助.等待(1000)
    
19.         
    
20.         for(i=1;i<4;i++)
    
21.             ret=dm[i].FindPic(0,0,1024,768,"警告.bmp","000000",0.9,,0,x,y)
    
22.             如果(x>=0&&y>=0)
    
23.                
    
24.                 .......
    
25.             如果结束
    
26.         endfor
    
27.         
    
28.         
    
29.         
    
30.     循环结束
    
31.    
    
32.    
    
33.    
    
34.    
    
35. 功能结束

复制代码

cylhb

保存好每个窗口句柄。
线程内遍历每个窗口监视

cybkk

cylhb 发表于 2013-11-17 23:26
保存好每个窗口句柄。
线程内遍历每个窗口监视

我用 TC结合天使插件多对象多开示例 试了怎么只有最后一个窗口有效

cybkk

kaixindexifan 发表于 2013-11-18 02:56

我用 TC结合天使插件多对象多开示例 试了怎么只有最后一个窗口有效?

kaixindexifan

cybkk 发表于 2013-11-18 13:50
我用 TC结合天使插件多对象多开示例 试了怎么只有最后一个窗口有效?

你得贴你的代码 亲  你这一句话信息量太大了

cybkk

kaixindexifan 发表于 2013-11-18 17:51
你得贴你的代码 亲  你这一句话信息量太大了

天使=数组[]
线程=数组[]
句柄数组=数组[]
功能 主线程()
    大小
    句柄组合=系统.枚举("Notepad",1)
    如果(句柄组合=="")
        辅助.消息框("目标程序未开启")
        返回 假
    如果结束
    字符串.分割(句柄组合,"|",句柄数组)
    数组空间.大小(句柄数组,大小)
    遍历(下标=0;下标<大小;下标++)
        线程参数=句柄数组[下标]&","&下标
        天使对象=com("ts.tssoft")
        数组空间.增加(天使,天使对象)
        句柄值=线程.开启("多开.子线程",线程参数)
        数组空间.增加(线程,句柄值)
    遍历结束
   
功能结束

功能 子线程(参数)
    变量 下标,窗口句柄,参数数组
    字符串.分割(参数,",",参数数组)
    窗口句柄=参数数组[0]
    下标=参数数组[1]
    绑定=天使[下标].BindWindow(窗口句柄,"normal","normal","normal",1)
    辅助.等待(1000)
    天使[下标].SetPath(辅助.获取资源路径("rc:"))
    天使[下标].SetDict(0,"ll.txt")
    如果(绑定==0)
        辅助.消息框("绑定失败")
        返回 假
    否则
        线程.开启("多开2.查找",下标)
        //天使[下标].LockInput(1)
        //天使[下标].SendString(窗口句柄,"123456")
    如果结束
功能结束

功能 查找(下标)
        x,y
        天使[下标].FindStrFastS(0,1,224,127,"6","000000-000000",1.0,x,y)
        辅助.等待(2000)
功能结束


功能 开始_点击()
    如果(辅助.是否注册("ts.tssoft")==0)
        help.messagebox("没有注册插件,点击确定进行插件下载")
        help.cmd("http://bbs.tyuyan.com/thread-17666-1-1.html",true)
        返回 假
    如果结束
    线程.开启("多开.主线程","")
功能结束

cybkk

cybkk 发表于 2013-11-18 18:24
天使=数组[]
线程=数组[]
句柄数组=数组[]

天使=数组[]
线程=数组[]

功能 主线程()
    大小,句柄数组
    句柄组合=系统.枚举("Notepad",1)
    如果(句柄组合=="")
        辅助.消息框("目标程序未开启")
        返回 假
    如果结束
    字符串.分割(句柄组合,"|",句柄数组)
    数组空间.大小(句柄数组,大小)
    遍历(下标=0;下标<大小;下标++)
        线程参数=句柄数组[下标]&","&下标
        天使对象=com("ts.tssoft")
        数组空间.增加(天使,天使对象)
        句柄值=线程.开启("多开2.子线程",线程参数)
        数组空间.增加(线程,句柄值)
    遍历结束
   
功能结束

功能 子线程(参数)
    变量 下标,窗口句柄,参数数组
    字符串.分割(参数,",",参数数组)
    窗口句柄=参数数组[0]
    下标=参数数组[1]
    绑定=天使[下标].BindWindow(窗口句柄,"normal","normal","normal",1)
    辅助.等待(1000)
    天使[下标].SetPath(辅助.获取资源路径("rc:"))
    天使[下标].SetDict(0,"ll.txt")
    如果(绑定==0)
        辅助.消息框("绑定失败")
        返回 假
    否则
        线程.开启("多开2.查找",下标)
        //天使[下标].LockInput(1)
        //天使[下标].SendString(窗口句柄,"123456")
    如果结束
功能结束

功能 查找(下标)
    循环(真)
        x,y
        天使[下标].FindStrFastS(0,1,224,127,"6","000000-000000",1.0,x,y)
        调试输出(下标&","&x)
        辅助.等待(2000)
    循环结束
   
功能结束


功能 开始_点击()
    如果(辅助.是否注册("ts.tssoft")==0)
        help.messagebox("没有注册插件,点击确定进行插件下载")
        help.cmd("http://bbs.tyuyan.com/thread-17666-1-1.html",true)
        返回 假
    如果结束
    线程.开启("多开2.主线程","")
功能结束