超级求救多线程问题

7847214

现在问题是 7开用一个线程，找图什么的很慢，我想要一个线程1个窗口那样的，谁帮我看看是那里错误了，帮改下，十分谢谢
//===========================下面=================谢谢帮改下===========
空间 大话
大漠=数组[]
整型  窗口句柄,x,y,线程句柄
变量 线程句柄数组=数组[],窗口句柄数组=数组[],g_dm数组=数组[]

功能 自动登陆(参数属性)
    变量 下标,窗口句柄,绑定返回值,参数数组
    字符串.分割(参数属性,",",参数数组)
    窗口句柄=参数数组[0]
    下标=参数数组[1]
    dm = 大漠[下标]
    dm.SetPath(help.getrcpath("rc:"))
    ret = dm.BindWindow(窗口句柄,"dx2","windows","windows",0)
    help.sleep(10)

    /////代码==============
功能结束


功能 初始化()

功能结束


功能 按钮0_点击()

功能结束



功能 按钮1_点击()

    辅助.等待(10)

    辅助.等待(10)

    辅助.等待(10)
    窗口句柄=窗口.鼠标所在窗口句柄()
    下标=数组空间.查找(窗口句柄数组,窗口句柄)
    如果(下标==-1)
        数组空间.增加(窗口句柄数组,窗口句柄)
        线程句柄=线程.开启("大话.自动登陆",窗口句柄)
        数组空间.增加(线程句柄数组,线程句柄)  
    否则
        如果(窗口句柄==窗口句柄数组[下标])
            返回 0
        否则
            数组空间.增加(窗口句柄数组,窗口句柄)
            线程句柄=线程.开启("大话.自动登陆",窗口句柄)
            数组空间.增加(线程句柄数组,线程句柄)
        如果结束
    如果结束
功能结束

功能 热键_启动_热键()

    窗口句柄=窗口.鼠标所在窗口句柄()
    下标=数组空间.查找(窗口句柄数组,窗口句柄)
    如果(下标==-1)
        数组空间.增加(窗口句柄数组,窗口句柄)
        参数属性 = 窗口句柄&","&"0"
        大漠对象 = com("dm.dmsoft")
        数组空间.增加(大漠,大漠对象)
        线程句柄=线程.开启("大话.自动登陆",参数属性)
        数组空间.增加(线程句柄数组,线程句柄)
    否则
        如果(窗口句柄==窗口句柄数组[下标])
            返回 0
        否则
            数组空间.增加(窗口句柄数组,窗口句柄)
            参数属性 = 窗口句柄&","&下标&"1"
            大漠对象 = com("dm.dmsoft")
            数组空间.增加(大漠,大漠对象)
            线程句柄=线程.开启("大话.自动登陆",参数属性)
            数组空间.增加(线程句柄数组,线程句柄)
        如果结束
    如果结束
功能结束


功能 热键_单停_热键()

    变量 大小
    数组空间.大小(线程句柄数组,大小)
    调试输出(大小)
    遍历(i=0;i<大小;i++)
        调试输出("循环")
        if(大漠[i].UnBindWindow()==1)
            线程.关闭(线程句柄数组[i])
        else
            辅助.消息框("解绑失败","TC")
        endif  
    遍历结束

    变量 大小1,大小2,大小3
    数组空间.大小(窗口句柄数组,大小1)
    循环(大小1>0)
        数组空间.删除(窗口句柄数组,1)
        数组空间.大小(窗口句柄数组,大小1)
    循环结束

    数组空间.大小(线程句柄数组,大小2)
    循环(大小2>0)
        数组空间.删除(线程句柄数组,1)
        数组空间.大小(线程句柄数组,大小2)
    循环结束

    数组空间.大小(大漠,大小3)
    循环(大小3>0)
        数组空间.删除(大漠,1)
        数组空间.大小(大漠,大小3)
    循环结束

    调试输出("全部清空了")
功能结束

功能 清空数组(m_数组)
    变量 大小
    数组空间.大小(m_数组,大小)
    调试输出("大小"&大小)
    遍历(i=0;i<大小;i++)
        调试输出("自定义"&i)

        数组空间.删除指定项(m_数组,0)
    遍历结束
    调试输出("正常")
功能结束

功能 键2_热键()//这是单停

    调试输出("你按了单停")
    窗口句柄 = 窗口.鼠标所在窗口句柄()
    下标=数组空间.查找(窗口句柄数组,窗口句柄)
    调试输出("下标"&下标)
    if(下标!=-1)
        if(大漠[下标].UnBindWindow()==1)
            调试输出("解")
            线程.关闭(线程句柄数组[下标])
            数组空间.删除指定项(线程句柄数组,下标)
            数组空间.删除指定项(窗口句柄数组,下标)
            数组空间.删除指定项(大漠,下标)
        else
            辅助.消息框("解绑失败","TC")
        endif
    endif

功能结束

空间结束