球求大佬指点错误

q1249575328

启动了总是崩溃

变量 dm=数组(),句柄数组=数组(),线程句柄=数组()

功能 一键启动()
    变量 线程参数=数组(),返回句柄,大小,key
    返回句柄=  编辑框获取文本("编辑框2")
    调试输出(返回句柄)   
    //枚举句柄,遍历开启
    大小=字符串分割(返回句柄,"|",句柄数组)
    遍历(变量 i=0;i < 大小;i++)
        消息框(句柄数组[i])
    结束

    遍历(变量 i=0;i<大小;i++)
        key=句柄数组[i]
        调试输出(key)
        dm[key]=插件("dm.dmsoft")
        线程参数[0]=句柄数组[i]
        线程参数[1]=dm[key]

        调试输出(线程参数)
        线程句柄[key]=线程开启("主线程",线程参数)
        等待(随机数(2500,5500))
    结束
结束

功能 主线程(参数数组)
    //我们把我们需要的参数以数组的方式传过来.当然这个参数的个数,根据需求而定,不要想太复杂.
    变量 hwnd,对象,下标,dm_ret
    hwnd=参数数组[0]//绑定句柄
    对象=参数数组[1]//大漠对象
    调试输出(hwnd)
    调试输出(对象)   
    //开始绑定,绑定模式自行测试,这里以3DX为例.
    dm_ret= 对象.SetWindowState(hwnd,2)
    等待(300)
    dm_ret = 对象.SetWindowState(hwnd,1)
    等待(300)
    对象.MoveWindow(hwnd,10,10)
    等待(300)
    dm_ret=对象.BindWindow(hwnd,"dx2","dx.mouse.position.lock.api|dx.mouse.position.lock.message|dx.mouse.clip.lock.api|dx.mouse.input.lock.api|dx.mouse.state.api|dx.mouse.api|dx.mouse.cursor","dx.keypad.input.lock.api|dx.keypad.state.api|dx.keypad.api","",0)
    如果(dm_ret==0)
        消息框("窗口绑定失败了,请检查","注意")
        返回 假
    结束     
    //这里就绑定成功了
    //    系统设置工作路径(获取资源路径("rc:"))
    对象.SetPath(获取资源路径("rc:"))
    //系统设置工作路径( 对象.SetPath(获取资源路径("rc:")))

    变量 intX,intY
    循环(真)
        调试输出("当前句柄:"&hwnd)
        等待(1000)
    结束   

结束
///////注册大漠
功能 自动注册大漠插件()
    变量 注册码= 编辑框获取文本("编辑框0")
    变量 附加码= 编辑框获取文本("编辑框1")
    变量 插件版本= "7.2119"
    变量 是否成功=是否注册("dm.dmsoft")
    如果(是否成功)
        调试输出("插件已注册,开始匹配插件版本")        
        变量 dm1=插件("dm.dmsoft")
        如果(插件版本!=dm1.Ver())
            调试输出("插件版本不匹配,重新注册插件")            
            是否成功=注册插件("rc:\\dm.dll",真)
            如果(是否成功)
                dm1=插件("dm.dmsoft")
                调试输出("插件注册成功,当前插件版本:"&dm1.Ver())
            结束
        结束
    否则
        是否成功=注册插件("rc:\\dm.dll",真)
        如果(是否成功)
            变量 dm1=插件("dm.dmsoft")
            调试输出("插件注册成功,当前插件版本:"&dm1.Ver())
        结束
    结束
    变量 dm1=null
    dm1=插件("dm.dmsoft")
    变量 dm1_ret = dm1.Reg(注册码,附加码)
    如果(dm1_ret!=1)
        调试输出("收费插件功能注册失败,退出脚本")
        退出()
    否则
        调试输出("收费插件功能注册成功")
    结束
结束
///////读取配置
功能 水浒多开_初始化()
    变量 键值 = 文件读配置("热键","编辑框0","C:\\Main.ini")
    如果(键值 != "")
        编辑框设置文本("编辑框0",键值)
    结束
    变量 键值2 = 文件读配置("热键2","编辑框1","C:\\Main.ini")
    如果(键值2 != "")
        编辑框设置文本("编辑框1",键值2)
    结束
    变量 键值3 = 文件读配置("热键3","编辑框2","C:\\Main.ini")
    如果(键值3 != "")
        编辑框设置文本("编辑框2",键值3)
    结束  
结束

///////保存配置
功能 按钮0_点击()
    变量 键值 =   编辑框获取文本("编辑框0")
    文件写配置("热键","编辑框0",键值,"C:\\Main.ini")
    变量 键值2 =   编辑框获取文本("编辑框1")
    文件写配置("热键2","编辑框1",键值2,"C:\\Main.ini")
    变量 键值3 =   编辑框获取文本("编辑框2")
    文件写配置("热键3","编辑框2",键值3,"C:\\Main.ini")
    按钮设置文本("按钮0","保存成功")
    等待(500)
    按钮设置文本("按钮0","保存配置")
结束
///////退出脚本
功能 按钮2_点击(hwnd)  

结束


/////获取句柄
功能 热键0_热键()
    //这里添加你要执行的代码
    变量 窗口句柄=窗口获取鼠标所在句柄()
    变量 当前内容 = 编辑框获取文本("编辑框2")
    如果(当前内容=="")
        当前内容=窗口句柄
    否则
        当前内容=当前内容&"|"&窗口句柄
    结束
    编辑框设置文本("编辑框2",当前内容)  
    变量 retarr
    变量 n = 字符串分割(当前内容,"|",retarr)
    调试输出(n)
    标签设置文本("标签4",n)
结束


功能 窗口单停(hwnd)
    //传入我们要停的句柄
    线程关闭(线程句柄[hwnd])
    等待(500)
    dm[hwnd].UnBindWindow()
    消息框("解绑成功","提示")
结束

功能 热键1_热键()
    //这里添加你要执行的代码
    变量 hwnd
    hwnd=窗口获取鼠标所在句柄()
    线程开启("窗口单停",hwnd)
结束
功能 按钮1_点击()
    //这里添加你要执行的代码
    按钮设置文本("按钮1","运行中")
    自动注册大漠插件()  
    线程开启("一键启动","")
结束