|
本例子是用3.0版TC做的,最新4.0版(可无限多开)在http://bbs.tyuyan.com/thread-22135-1-1.html
例子是五开的,要开几个自己修改下就行了,无限开写法还没想到~~源码回复可见
测试很简单,随便找几个窗口按下相对应该的热键就行了。
- 空间 dxc
- //定义默认空间
- sz
- jz
- zj
- 功能 aa(aa)
- 循环(真)
- 辅助.等待(1000)
- 列表框.插入文本("列表框0","窗口句柄为"+aa+"运行中",0)
- 辅助.等待(1000)
- 循环结束
- 返回 真
- 功能结束
- 功能 退出_点击()
- //这里添加你要执行的代码
- i
- array[(5)
- 如果(jz[i]!=0)
- 线程.关闭(jz[i])
- 辅助.等待(1000)
- 如果结束
- array[结束
- 辅助.退出()
- 返回 真
- //函数返回语句
- 功能结束
- 功能 dk()//开启
- jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
- i
- 循环(i<=4)
- 如果(jb==sz[i])
- 列表框.插入文本("列表框1",sz[i]+"窗口已开启线程",0)
- 跳出
- 否则
- 如果(sz[i]=="")
- jz[i]=线程.开启("dxc.aa",jb)
- sz[i]=jb
- 列表框.插入文本("列表框1","线程句柄"+转换.整型转字符型(jz[i]),0)
- 跳出
- 如果结束
- 如果结束
- i=i+1
- 循环结束
- 返回 真
- 功能结束
- 功能 gb()//关闭
- jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
- i
- 循环(i<=4)
- 如果(jb==sz[i])
- 列表框.插入文本("列表框1","关闭线程"+转换.整型转字符型(jz[i]),0)
- 线程.关闭(jz[i])
- sz[i]=""
- jz[i]=0
- 辅助.等待(1000)
- 跳出
- 如果结束
- i=i+1
- 循环结束
- 返回 真
- 功能结束
- 功能 tz()//暂停
- jb=转换.整型转字符型(窗口.鼠标所在窗口句柄())
- i
- 循环(i<=4)
- 如果(jb==sz[i]&&jz[i]!=0)
- 选择(zj[i])
- 条件 真:
- 线程.恢复(jz[i])
- 列表框.插入文本("列表框1","恢复线程"+转换.整型转字符型(jz[i]),0)
- zj[i]=假
- 条件 假:
- 线程.暂停(jz[i])
- 列表框.插入文本("列表框1","暂停线程"+转换.整型转字符型(jz[i]),0)
- zj[i]=真
- 默认:
- 辅助.消息框("如果没有满足的条件执行默认语句")
- 选择结束 //执行完一条匹配的条件即跳到选择结束
- 辅助.等待(1000)
- 跳出
- 如果结束
- i=i+1
- 循环结束
- 返回 真
- 功能结束
- 功能 热键0_热键()
- //这里添加你要执行的代码
- 线程.开启("dxc.dk","")
- 返回 真
- 功能结束
- 功能 热键1_热键()
- //这里添加你要执行的代码
- 线程.开启("dxc.tz","")
- 返回 真
- 功能结束
- 功能 热键2_热键()
- //这里添加你要执行的代码
- 线程.开启("dxc.gb","")
- 返回 真
- 功能结束
- 功能 初始化()
- //这里添加你要执行的代码
- sz=字符型[5]
- jz=整型[5]
- zj=逻辑型[5]
- 返回 真
- 功能结束
- 空间结束
- //空间结束语句
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|