蓝丝雨老师课程-多线程 7.0中编译错误

苏宸丶

变量 线程ID
//--------------以下为全局变量--------------//
变量 ts
变量 窗口句柄数组 = 数组 (0) ,ts数组 =数组 (0)
变量 任务线程句柄 = 数组 (0) , 检测线程句柄 = 数组 (0)
变量 Index = 0, ts_R = 数组 (0), ts_J = 数组 (0)
变量 是否重定义 = 真, 窗口标题 = 数组 (0)

//==========================================//

//-----------------开启初始化---------------//
功能 失色_多开_魔域全自动多功能多开脚本_初始化()
    //这里添加你要执行的代码
    创建天使插件()
    热键销毁("热键_开始")
    热键销毁("热键_单停")
    热键销毁("热键_全部终止")
    热键注册("热键_开始")
    热键注册("热键_单停")
    热键注册("热键_全部终止")
   
结束
//==========================================//

//------------------选项卡主界面------------//
功能 选项卡_主界面_选择改变()
    //这里添加你要执行的代码
    变量 索引值 =选项卡获取选项("选项卡_主界面")
    选择(索引值)
        条件 0
        控件显示("选项卡_角色设置",真)
        条件 1
        控件显示("选项卡_角色设置",真)
        条件 2
        控件显示("选项卡_角色设置",真)
    结束
    如果(索引值 == 1 || 索引值 == 2)
        控件显示("选项卡_角色设置",假)   
    结束
结束

//==========================================//

//---------------热键启动操作---------------//

功能 热键_开始_热键()
    //这里添加你要执行的代码
    调试输出(创建天使插件())
    变量 窗口句柄
    定时器注册("定时器_获取鼠标坐标",200)   
    调试输出(创建天使插件())
    窗口句柄 = 获取窗口句柄(窗口句柄,"")
    如果(窗口句柄 > 0)
        //   主窗口绑定(窗口句柄)
    结束
    //-------------(窗口句柄)---------------//
    // 窗口句柄 = 获取窗口句柄("获取窗口句柄()","")
结束
//---------------热键单停操作---------------//
功能 热键_单停_热键()
    变量 窗口句柄, 数组下标
    //这里添加你要执行的代码
    //根据置于前台窗口的句柄来停止脚本运行
    窗口句柄= ts.GetForegroundWindow()
    //在数组中查找窗口句柄
    数组下标= 数组值查找(窗口句柄数组,窗口句柄)
    调试输出("[热键_单停_热键] 数组下标: " & 数组下标)
    如果(数组下标 != -1)
        //先关闭全局变量
        关闭全局变量(窗口句柄)
        //线程解绑
        ts_R[数组下标].UnBindWindow
        ts_J[数组下标].UnBindWindow
        //关闭子线程
        线程关闭(任务线程句柄[数组下标])
        线程关闭(任务线程句柄[数组下标])
        数组指定键值删除(任务线程句柄,数组下标)
        数组指定键值删除(检测线程句柄,数组下标)
        //恢复窗口标题
        ts_R[数组下标].SetWindowText(窗口句柄数组[数组下标],窗口标题)
        数组指定键值删除(窗口标题,数组下标)
        数组指定键值删除(窗口句柄数组,数组下标)
        Index = 数组下标      
        是否重定义 = 假
        
    否则
        消息框("脚本未执行","提示")
    结束
结束   
//---------------热键全停操作---------------//

功能 热键_全部终止_热键()
    变量 是否销毁
    //这里添加你要执行的代码
    变量 长度=数组大小(窗口句柄数组)
    调试输出("[热键_全部终止]长度: " & 长度)
    如果(长度 > 0)
        遍历(变量 i = 0; i < 长度; i++)
            如果(关闭全局变量(窗口句柄数组[i]))
                //线程解绑
                ts_R.UnBindWindow()
                ts_J.UnBindWindow()
                线程关闭(任务线程句柄[i])
                线程关闭(检测线程句柄[i])
                //恢复窗口标题
                ts_R.SetWindowText(窗口句柄数组[i],窗口标题[i])      
            结束
        结束
        //将数据从数组中删除
        数组清空(任务线程句柄)
        数组清空(检测线程句柄)
        数组清空(窗口句柄数组)
        数组清空(窗口标题)
        数组清空(ts_R)
        数组清空(ts_J)
        Index = 0
        是否重定义 = 真
    结束
    定时器销毁("定时器_获取鼠标坐标")
    标签设置文本("标签_鼠标坐标","")
结束
//==========================================//

//-------------删除数组指定内容-------------//
功能 删除数组指定内容(数组名, 下标)
    数组名[下标] = null
结束
//==========================================//

//---------------按钮退出操作---------------//
功能 按钮退出_点击()
    //这里添加你要执行的代码
    热键销毁("热键_开始")
    热键销毁("热键_单停")
    热键销毁("热键_全部终止")
    注册插件("rc:TSPlug.dll",假)
    退出()
结束
//==============================================//   


//----------定时器,获取鼠标坐标-------------//   
功能 定时器_获取鼠标坐标_时钟()
    //这里添加你要执行的代码
    变量 x, y
    鼠标获取坐标(x, y)
    标签设置文本("标签_鼠标坐标", "X:" & x & "Y" & y)
   
结束
//==========================================//  

//-------------创建天使插件-----------------//
功能 创建天使插件()
    变量 是否成功 = 注册插件("rc:TSPlug.dll",真)
    如果(是否成功)
        调试输出("天使插件注册成功")
        ts = 插件("ts.tssoft")
        变量 版本 = ts.ver()
        调试输出("版本" & ts.ver())
    否则
        调试输出("注册失败,请完全退出360,杀软,关闭防火墙再试")
    结束
结束
//==========================================//

//----------------获取当前窗口句柄----------//
功能 获取窗口句柄()
    变量 窗口句柄
    窗口句柄 = ts.GetForegroundWindow()//---天使插件获取当前窗口句柄
    如果(窗口句柄 > 0)
        如果(是否重定义)
            窗口句柄数组 = 数组追加元素(窗口句柄数组, 真, Index + 1)
            窗口标题 = 数组追加元素(窗口标题, 真, Index + 1)
            任务线程句柄 = 数组追加元素(任务线程句柄, 真, Index + 1)
            检测线程句柄 = 数组追加元素(检测线程句柄, 真, Index + 1)
            ts_R = 数组追加元素(ts_R, 真, Index + 1)
            ts_J = 数组追加元素(ts_J, 真, Index + 1)
        结束
        调试输出("窗口句柄:" & 窗口句柄)
        //查看是否已经绑定了!
        变量 数组下标 = 数组值查找(窗口句柄数组,窗口句柄)
        调试输出("[获取窗口句柄] 数组下标" & 数组下标)
        如果(数组下标 == -1)
            //说明没有绑定过 第一次Index 为0
            窗口句柄数组[Index] = 窗口句柄
            返回 窗口句柄
        否则
            消息框("请不要重复运行脚本", "提示")
            返回 -1
        结束
    否则
        返回 -1
        
        
    结束
结束
//==========================================//

//---------------主窗口绑定-----------------//
功能 主窗口绑定(句柄)
    变量 下标
   
    //再次查找传入的句柄在窗口句柄数组中的位置(下标) 第一次会返回 0
    下标 = 数组值查找(窗口句柄数组,句柄)
    //获取窗口标题
    窗口标题[下标] = ts.GetWindowTitle(句柄)
    变量 新标题 = 窗口标题[下标] & "-窗口" & 转字符型(下标 + 1)
    //设置窗口标题
    ts.SetWindowText(句柄,新标题)
    调试输出("[主窗口绑定] Index" & Index)
    系统报警()//系统报警
    线程开启 ("初始化全局变量","")//在这里提前初始化 方便任务 线程检测使用
    //开线程
    任务线程句柄[下标] = 线程开启("任务线程",下标)
    检测线程句柄[下标] = 线程开启("检测线程",下标)   
    调试输出("[主窗口绑定] 任务ID" & 任务线程句柄[下标])
    调试输出("[主窗口绑定] 检测ID" & 检测线程句柄[下标])
    Index = Index +1
    //错误判断机制
   
    变量 长度 = 数组大小(窗口句柄数组)
    如果(Index != 长度)
        Index =长度
    结束
    是否重定义 = 真
结束
//==========================================//

//------------------系统报警----------------//
功能 系统报警()
    变量 系统版本
    系统版本 = 系统获取版本号()
    如果(系统版本 == 2)
        //XP系统
        蜂鸣(800, 300)
    否则
        如果(系统版本 == 5 || 系统版本 == 6)
            音乐播放("rc:提示音.wav")
        结束
    结束
结束
//==========================================//

//-------------初始化全局变量---------------//
功能 初始化全局变量(窗口句柄)
    变量 杀怪开关, 检测开关, 检测控制, 交互开关
   
    //保存窗口句柄
    文件写配置(转字符型(窗口句柄), "窗口句柄", 转字符型(窗口句柄),"c:\\Global.ini")
    //bW1ShaGuai      写值为0
    文件写配置(转字符型(窗口句柄), "杀怪开关", "0", "c:\\Global.ini")
    //检测开关        写值为1
    文件写配置(转字符型(窗口句柄), "检测开关", "1", "c:\\Global.ini")
    //判断检测线程是否在控制任务bW1JianCheCtrl    写值为0
    文件写配置(转字符型(窗口句柄), "检测控制", "0", "c:\\Global.ini")
    //线程交互bWJiaoHu 写值为0
    文件写配置(转字符型(窗口句柄), "交互开关", "0", "c:\\Global.ini")
    //任务标题任务标题
结束
//==========================================//

//---------------关闭全局变量---------------//
功能 关闭全局变量(窗口句柄)
    变量 杀怪开关 ,检测开关, 检测控制, 交互开关
    //bW1ShaGuai      写值为0
    文件写配置(转字符型(窗口句柄), "杀怪开关", "0", "c:\\Global.ini")
    //检测开关        写值为1
    文件写配置(转字符型(窗口句柄), "检测开关", "0", "c:\\Global.ini")
    //判断检测线程是否在控制任务bW1JianCheCtrl    写值为0
    文件写配置(转字符型(窗口句柄), "检测控制", "0", "c:\\Global.ini")
    //线程交互bWJiaoHu 写值为0
    文件写配置(转字符型(窗口句柄), "交互开关", "0", "c:\\Global.ini")
    //任务标题任务标题
结束
//==========================================//

//-----------------任务线程-----------------//
功能 任务线程(下标)
    变量 ts_ret
    //线程内绑定窗口
    调试输出("[任务线程] Index" & Index)
    调试输出("[任务线程] 传入的下标" & 下标)
    //创建天使对象
    ts_R[下标] = com("ts.tssoft")
    //设置全局路径
    ts_R[下标].SetPath(获取资源路径("rc"))
    //ts_R[下标].SetDict(0, "ts_soft.txt")  //设置字库用到的命令,serdict//天使可以设置到最多20个字库
    ts_ret = ts_R[下标].BindWindow(窗口句柄数组[下标], "normal","normal","normal",101)
    如果(ts_ret == 1)
        调试输出("[任务线程] 任务线程绑定成功")
        //下面就可以根据脚本界面的功能选择情况来调用功能函数
        //开始写做各个任务的代码
    否则
        调试输出("[任务线程] 任务线程绑定失败")
        消息框("错误代码: 03 1.请完全退出360及杀软,再次运行脚本 \n\r 2.如果仍然无法运行脚本,请卸载360及杀软,重启电脑 \n\r 3.如果仍然无法运行脚本,请尝试关闭防火墙!")
    结束
结束
//==========================================//
//-----------------检测线程-----------------//
功能 检测线程(下标)
    变量 ts_ret
    调试输出("[检测线程] 下标: " & 下标)
    //创建天使对象
    ts_J[下标] = com("ts.tssoft")
    ts_J[下标].SetPath(获取资源路径("rc"))
    //ts_J[下标].SetDict(0, "ts_soft.txt")  //设置字库用到的命令,serdict//天使可以设置到最多20个字库
    ts_ret = ts_J[下标].BindWindow(窗口句柄数组[下标], "normal","normal","normal",101)
    如果(ts_ret == 1)
        调试输出("[检测线程] 任务线程绑定成功")
        循环(文件读配置(转字符型(窗口句柄数组[下标]),"检测开关",  "c:\\Global.ini") == "1")
            // 验证处理(1,转字符型(窗口句柄数组[下标]),下标)    //自己做自己的封包
            // 补血(1,转字符型(窗口句柄数组[下标]),下标)        //自己做自己的封包
            // 补篮(1,转字符型(窗口句柄数组[下标]),下标)        //自己做自己的封包
            等待(1000)
        结束
    否则
        调试输出("[检测线程] 检测线程绑定失败")
        消息框("错误代码: 03 1.请完全退出360及杀软,再次运行脚本 \n\r 2.如果仍然无法运行脚本,请卸载360及杀软,重启电脑 \n\r 3.如果仍然无法运行脚本,请尝试关闭防火墙!")
        退出 ()
    结束
   
结束
//==========================================//
来找错误喽