简单易懂的多开源码

chentaotest

空间 TC测试
//默认空间

变量 ct=数组[10],多开区分=数组[10],线程数组=数组[10]

功能 主线程()
    变量 i

    遍历(i=0;i<10;i++)
        辅助.等待(1500)

    遍历结束
功能结束

功能 恢复()
    变量 i,参数
    顶层句柄=窗口.顶层窗口句柄()
    调试输出("顶层句柄"&顶层句柄)
    遍历(i=0;i<5;i++)
        调试输出("多开区分"&多开区分[参数])
        参数=i
        如果(多开区分[参数]==null || 多开区分[参数]=="")

        否则
            如果(顶层句柄==字符串.截取(多开区分[参数],0,字符串.长度(多开区分[参数])-1))
                线程.暂停(线程数组[参数])
                调试输出("准备关闭线程")
                线程.关闭(线程数组[参数])
                调试输出("关闭线程结束")
                多开区分[参数]=""
                ct[参数] =""

                跳出   
            如果结束
        如果结束
    遍历结束
    //窗口.设置标题(顶层句柄,"计算器")
功能结束

功能 热键0_热键()
    //这里添加你要执行的代码
    变量 i,参数
    遍历(i=0;i<10;i++)
        参数=i
        如果(ct[参数] == null || ct[参数] == "")
            跳出
        如果结束
    遍历结束
    顶层句柄=窗口.顶层窗口句柄()

    多开区分[参数]=顶层句柄&参数
    线程数组[参数]=线程.扩展开启("TC测试.主线程",参数,"TC测试.恢复",参数)
功能结束


功能 热键1_热键()
    //这里添加你要执行的代码
    TC测试.恢复()
功能结束

空间结束
//空间结束语句

chentaotest

看别人写的好难,看不懂,还是觉得自己写的简单啊.....

20099371

谢谢分享

君凌天下

各人有各人的写法,只要认真去学了,方法是有很多的....每个人有每个人的长处,学习过了..谢谢

超自然

首先感谢分享.
不过不得不说,楼主的代码会造成线程残留,长此下去会让内存飙涨
另外,代码结构也有提升空间

chentaotest

超自然 发表于 2014-5-9 19:06
首先感谢分享.
不过不得不说,楼主的代码会造成线程残留,长此下去会让内存飙涨
另外,代码结构也有提升空间 ...

没接受专业学习，代码比较烂，勉强能写自己用。。。。。

Aepl丨穷孩子

各人有各人的写法,只要认真去学了,方法是有很多的....每个人有每个人的长处,学习过了..谢谢