TC官方合作论坛

标题: 问下TC5.2支持大漠插件对象数组吗？不如果不支持怎么多开啊 [打印本页]
作者: Sky_Lsy    时间: 2015-6-24 21:26
标题: 问下TC5.2支持大漠插件对象数组吗？不如果不支持怎么多开啊
本帖最后由 Sky_Lsy 于 2015-7-28 15:41 编辑

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. 结束


  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. 结束
复制代码


作者: 康师傅    时间: 2015-6-25 08:53
支持的
作者: 康师傅    时间: 2015-6-25 08:55
dm 不能是数组    改成dm数组 = 数组（）  dm是公用的对象
作者: Sky_Lsy    时间: 2015-6-25 15:36
康师傅 发表于 2015-6-25 08:55
dm 不能是数组    改成dm数组 = 数组（）  dm是公用的对象

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

QQ截图20150625153650.jpg (133.31 KB, 下载次数: 0)

QQ截图20150625153650.jpg

QQ截图20150625153626.jpg (103.76 KB, 下载次数: 0)

QQ截图20150625153626.jpg

QQ截图20150625153658.jpg (55.58 KB, 下载次数: 0)

QQ截图20150625153658.jpg

QQ截图20150625153841.jpg (160.15 KB, 下载次数: 0)

QQ截图20150625153841.jpg
作者: Sky_Lsy    时间: 2015-6-26 20:05
求来人
作者: 164355902    时间: 2015-7-25 13:30
Sky_Lsy 发表于 2015-6-26 20:05
求来人

楼主找到崩溃的原因了吗？  我也遇到了
作者: Sky_Lsy    时间: 2015-7-26 22:10
164355902 发表于 2015-7-25 13:30
楼主找到崩溃的原因了吗？  我也遇到了

已经解决了
作者: Sky_Lsy    时间: 2015-7-26 22:25
164355902 发表于 2015-7-25 13:30
楼主找到崩溃的原因了吗？  我也遇到了

我已经重新编辑了这个帖，一楼下面那堆代码是TC5.3可用的大漠多线程，单开、单停、多开、多停代码。
作者: 164355902    时间: 2015-7-27 13:30
Sky_Lsy 发表于 2015-7-26 22:10
已经解决了

楼主好人  我也解决啦



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