谁能帮我看一下，帮我改一下 。

498518599

空间 多开测试
ts=数组[1]
j=数组[1]
线程句柄=数组[1]
功能 枚举窗口()
    窗口句柄=数组[1],数量
    窗口句柄集=系统.枚举("Cljet_Class",1)
    辅助.消息框(窗口句柄集)
    如果(字符串.查找字符串(窗口句柄集,"|")<0)//单开
        窗口句柄[0]=窗口句柄集
    否则//多开
        字符串.分割(窗口句柄集,"|",窗口句柄)//分割函数可以自动重定义数组大小
    如果结束
    数组空间.大小(窗口句柄,数量)//获得窗口数量
    遍历(j=0;j<数量;j++)
        子窗口句柄
        子窗口句柄=窗口句柄[j]
        数组空间.增加(ts,0,1)
        数组空间.增加(j,0,1)
        ts[j]=com("ts.tssoft")
        如果(j==0)//单开
            ts[0].BjndWjndow(子窗口句柄,"dx","dx","dx",1)
            线程句柄[0]=线程.开启("多开测试.喊话",子窗口句柄)
        否则//多开
            数组空间.增加(线程句柄,0,1)
            ts[j].BjndWjndow(子窗口句柄,"dx","dx","dx",1)
            线程句柄[j]=线程.开启("多开测试.喊话",子窗口句柄)
        如果结束
    遍历结束
功能结束
功能 开始_点击()
    多开测试.枚举窗口()
功能结束


功能 喊话()
循环(真)
    辅助.等待(1000)
        ts[j].MoveTo(200,300)/////这一行崩溃掉
        ts[j].LeftCljck()
循环结束
   
功能结束




//退出按钮_点击操作
功能 退出_点击()
    数量
    数组空间.大小(线程句柄,数量)
    遍历(j=0;j<数量;j++)
        线程.关闭(线程句柄[j])//关闭所有
    遍历结束
    ts.UnBjndWjndow()
功能结束


空间结束

陌上青衣。

很多东西没理解到，特别是线程传参
TC4.0结合天使插件多开示例
http://bbs.tyuyan.com/thread-22178-1-1.html

先看看这个帖子吧

498518599

回复 2楼陌上青衣。的帖子

这个实例只是在一个线程里面执行动作 。我现在需要的是在另外一个线程里操作，我现在就是不知道怎么弄 。只要有一个实例我都能学会，。。。现在那些实例要么就是都是些记事本句柄发送字符的实例，要么就是绑定天使了还是在一个线程里发送还是发送字符，根本没有传参的实例啊~

498518599

回复 2楼陌上青衣。的帖子


这个我试过了 只能单开啊~


空间 TC多开测试

Ts=array[0]
功能 主线程()
    var 返回值,数组大小,i
    句柄数组=array[1]
    返回值=系统.枚举("找CALL练习",0)
    //严格来讲 这里需要对,返回值是否为空,来判断是否有开窗口,查找分割符 来判断是否为单开,
    //判断数组大小来判断开启的窗口数量,为了精简易懂,上面都略过.多开的时候记得写上
    字符串.分割(返回值,"|",句柄数组)
    数组空间.大小(句柄数组,数组大小)//判断数组大小
    for(i=0;i<数组大小;i++)
        Ts=数组空间.重定义(Ts,true,i+1)//由于每开启一个线程就多需要一个天使对象,这里必须重新定义天使对象数组大小
        var 参数=句柄数组&","&i//合并参数 窗口句柄和i的值,i的值是为了传递给Ts 这个对象,每开启一次i+1
        //有的朋友就在这里就绑定窗口,其实也是可以的,但我不太喜欢这种做法.
        线程.开启("TC多开测试.子线程",参数)//开启分线程
        辅助.等待(1000)//等待一下,避免多个线程同时绑定窗口,导致绑定失败
    endfor
功能结束

功能 子线程(参数)//接受参数   var 参数=句柄数组&","&i
    var i,窗口句柄,绑定返回值
    参数数组=array[1]
    字符串.分割(参数,",",参数数组)//分割出传过来的参数 i和窗口句柄的值
    窗口句柄=参数数组[0]
    i=参数数组[1]
    Ts=com("ts.tssoft")//创建天使对象
    绑定返回值=Ts.BindWindow(窗口句柄,"dx","dx","dx",101)//绑定
    辅助.等待(1000)
    if(绑定返回值==0)
        help.messagebox("绑定失败")
        返回 假
    else
//这里表示绑定成功,这后面想干嘛,你干嘛..
//部分游戏会出现鼠键操作无效 可在绑定前后用setwindowstate 激活窗口试试
        Ts.LockInput(1) //对象记得用Ts,多个线程相互控制窗口就靠这个对象
        Ts.MoveTo(359,239)
        窗口.激活(窗口句柄)
        Ts.SendString(窗口句柄,"123456")
        辅助.消息框("绑定成功"&i)
    endif
功能结束
功能 开始_点击()
    线程.开启("TC多开测试.主线程","")
功能结束
空间结束