问下TC5.2支持大漠插件对象数组吗？不如果不支持怎么多开啊

Sky_Lsy

RT，好像听说过5.0不支持大漠对象数组，但是5.2还不支持吗？为什么这代码运行起来不行啊

1. 变量 dm=数组(),dmdx=数组(),句柄数组=数组(),线程句柄=数组()
   
2. 功能 刷新按钮_点击()
   
3.     变量 刷新=插件("dm.dmsoft")
   
4.     变量 线程参数=数组(),返回句柄,大小,key
   
5.     返回句柄 = 刷新.EnumWindowByProcess("QQSG.exe","","",16)
   
6.     如果(返回句柄=="")
   
7.         返回
   
8.     结束
   
9.     大小 = 字符串分割(返回句柄,",",句柄数组)
   
10.     表格删除非固定行("角色表")
    
11.     表格设置大小("角色表",大小+1,2)
    
12.     遍历(i = 0;i <= 大小-1; i++)
    
13.         key=句柄数组[i]
    
14.         表格设置内容("角色表",i+1,0,key)   
    
15.         表格设置只读("角色表",i+1,0)
    
16.         表格设置只读("角色表",i+1,1)
    
17.     结束
    
18.     调试输出(句柄数组)
    
19. 结束
    
20. 功能 显示按钮_点击()
    
21.     变量 显示=插件("dm.dmsoft"),S1,S2,E1,E2,YXSHwnds
    
22.     表格获取选中范围("角色表",S1,S2,E1,E2)
    
23.     如果(E1==-1)
    
24.         返回
    
25.     结束
    
26.     遍历( i = S1; i <= E1; i++)
    
27.         数组获取元素(句柄数组,i-1,YXSHwnds)   
    
28.         显示.SetWindowState(YXSHwnds,1)
    
29.         等待 (200)
    
30.     结束
    
31. 结束
    
32. 功能 开始按钮_点击()
    
33.     变量 线程参数=数组(),返回句柄,大小,key,S1,S2,E1,E2
    
34.     大小=数组大小(句柄数组)
    
35.     表格获取选中范围("角色表",S1,S2,E1,E2)
    
36.     调试输出(S1)
    
37.     调试输出(E1)
    
38.     如果(E1==-1)
    
39.         返回
    
40.     结束
    
41.     遍历( i = S1; i <= E1; i++)
    
42.         key=句柄数组[i-1]
    
43.         调试输出(key)
    
44.         dm[key]=插件("dm.dmsoft")
    
45.         线程参数[0]=句柄数组[i-1]
    
46.         线程参数[1]=dm[i]
    
47.         调试输出(线程参数)
    
48.         表格设置内容("角色表",i,1,"启动")
    
49.         线程句柄[key]=线程开启("主线程",线程参数)
    
50.         等待(200)
    
51.     结束
    
52. 结束
    
53. 功能 停止按钮_点击()
    
54. 结束
    
55. 功能 主线程(线程参数)
    
56.     变量 hwnd,对象,下标,绑定返回
    
57.     调试输出(线程参数)
    
58.     hwnd=线程参数[0]//绑定句柄
    
59.     对象=线程参数[1]//大漠对象
    
60.     绑定返回=对象.BindWindow(hwnd,"dx","dx","dx",0)
    
61.     调试输出(绑定返回)
    
62.     如果(绑定返回==0)
    
63.         消息框("窗口绑定失败了,请检查","注意")
    
64.         返回
    
65.     结束
    
66.     循环(真)
    
67.         对象.KeyPress(32)
    
68.         等待 (1000)
    
69.     结束
    
70. 结束

复制代码

此问题已解决：

1. 变量 大漠对象=数组(),句柄数组=数组(),线程句柄=数组()
   
2. 功能 刷新按钮_点击()
   
3.     变量 刷新=插件("dm.dmsoft")
   
4.     变量 线程参数=数组(),返回句柄,大小,key
   
5.     返回句柄 = 刷新.EnumWindowByProcess("QQSG.exe","","",16)
   
6.     如果(返回句柄=="")
   
7.         返回
   
8.     结束
   
9.     大小 = 字符串分割(返回句柄,",",句柄数组)
   
10.     表格删除非固定行("角色表")
    
11.     表格设置大小("角色表",大小+1,2)
    
12.     遍历(变量 i = 0;i <= 大小-1; i++)
    
13.         key=句柄数组[i]
    
14.         表格设置内容("角色表",i+1,0,key)   
    
15.         表格设置只读("角色表",i+1,0)
    
16.         表格设置只读("角色表",i+1,1)
    
17.     结束
    
18.     调试输出(句柄数组)
    
19. 结束
    
20. 功能 显示按钮_点击()
    
21.     变量 显示=插件("dm.dmsoft"),S1,S2,E1,E2,YXSHwnds
    
22.     表格获取选中范围("角色表",S1,S2,E1,E2)
    
23.     如果(E1==-1)
    
24.         返回
    
25.     结束
    
26.     遍历( 变量 i = S1; i <= E1; i++)
    
27.         数组获取元素(句柄数组,i-1,YXSHwnds)   
    
28.         显示.SetWindowState(YXSHwnds,1)
    
29.         等待 (200)
    
30.     结束
    
31. 结束
    
32. 功能 开始按钮_点击()
    
33.     变量 线程参数=数组(),返回句柄,大小,key,S1,S2,E1,E2,开始=插件("dm.dmsoft")
    
34.     等待(10,假)
    
35.     大小=数组大小(句柄数组)
    
36.     表格获取选中范围("角色表",S1,S2,E1,E2,"BayMax")
    
37.     如果(E1==-1)
    
38.         返回
    
39.     结束
    
40.     等待(10,假)
    
41.     遍历( 变量 i = S1; i <= E1; i++)
    
42.         key=句柄数组[i-1]
    
43.         如果(线程句柄[key]!=null)
    
44.             继续
    
45.         结束
    
46.         等待(10,假)
    
47.         线程参数[0]=句柄数组[i-1]
    
48.         线程参数[1]=i
    
49.         表格设置内容("角色表",i,3,"开始","BayMax")
    
50.         等待(10,假)
    
51.         如果(大漠对象[key]!=null)
    
52.             大漠对象[key].UnBindWindow()
    
53.             等待(10,假)
    
54.             线程关闭(线程句柄[key],0)
    
55.         结束
    
56.         线程句柄[key]=线程开启("主线程",线程参数)
    
57.         等待(100,假)
    
58.     结束
    
59. 结束
    
60. 功能 停止按钮_点击()
    
61.     变量 要停句柄,大小,key,S1,S2,E1,E2
    
62.     等待(10,假)
    
63.     表格获取选中范围("角色表",S1,S2,E1,E2,"BayMax")
    
64.     如果(E1==-1)
    
65.         返回
    
66.     结束
    
67.     等待(10,假)
    
68.     遍历( 变量 i = S1; i <= E1; i++)
    
69.         key=句柄数组[i-1]
    
70.         如果(大漠对象[key]==null)
    
71.             继续
    
72.         结束
    
73.         等待(10,假)
    
74.         要停句柄=句柄数组[i-1]
    
75.         表格设置内容("角色表",i,3,"停止","BayMax")
    
76.         等待(10,假)
    
77.         窗口单停(要停句柄)
    
78.         等待(100,假)
    
79.     结束
    
80. 结束
    
81. 
    
82. 
    
83. 功能 主线程(线程参数)
    
84.     变量 hwnd,对象=数组(),下标,解绑返回,静修返回,w,h,表格位置,F11Status
    
85.     等待(10,假)
    
86.     hwnd=线程参数[0]
    
87.     表格位置=线程参数[1]
    
88.     大漠对象[hwnd]=插件("dm.dmsoft")
    
89.     等待(10,假)
    
90.     如果(大漠对象[hwnd].BindWindow(hwnd,"dx.graphic.2d","windows","dx",0)==0)
    
91.         标签设置文本("主页状态栏","!窗口"&hwnd&"绑定失败!","BayMax")
    
92.         表格设置内容("角色表",表格位置,3,"错误","BayMax")
    
93.         返回
    
94.     结束
    
95.     循环(真)
    
96.         大漠对象[hwnd].KeyPress(32)
    
97.         等待 (1000)
    
98.     结束
    
99. 结束
    
100. 功能 窗口单停(要停句柄)
     
101.     大漠对象[要停句柄].UnBindWindow()
     
102.     等待(10,假)
     
103.     线程关闭(线程句柄[要停句柄],0)
     
104.     等待(10,假)
     
105.     线程句柄[要停句柄]=null
     
106.     等待(100,假)
     
107. 结束

复制代码

164355902

Sky_Lsy 发表于 2015-7-26 22:10
已经解决了

楼主好人  我也解决啦

Sky_Lsy

164355902 发表于 2015-7-25 13:30
楼主找到崩溃的原因了吗？  我也遇到了

我已经重新编辑了这个帖，一楼下面那堆代码是TC5.3可用的大漠多线程，单开、单停、多开、多停代码。

Sky_Lsy

164355902 发表于 2015-7-25 13:30
楼主找到崩溃的原因了吗？  我也遇到了

已经解决了

164355902

Sky_Lsy 发表于 2015-6-26 20:05
求来人

楼主找到崩溃的原因了吗？  我也遇到了

Sky_Lsy

求来人

Sky_Lsy

康师傅 发表于 2015-6-25 08:55
dm 不能是数组    改成dm数组 = 数组（）  dm是公用的对象

奇怪啊，为什么我一绑定，程序就崩溃，我用大漠后台测试是能成功的啊

康师傅

dm 不能是数组    改成dm数组 = 数组（）  dm是公用的对象

康师傅

支持的