TC官方合作论坛

 找回密码
 立即注册
楼主: kkkkkkk

4.0版鼠标取窗口句柄多开(无限多开)(单开/单停/单恢复/全停/全恢复)(源码)

  [复制链接]
发表于 2014-2-22 22:24:54 | 显示全部楼层
学习再学习
回复 支持 反对

使用道具 举报

发表于 2014-2-22 22:30:52 | 显示全部楼层
来看看
回复

使用道具 举报

发表于 2014-2-24 15:22:21 | 显示全部楼层
空间 多开//版本:TC4.028
窗口句柄=数组[],线程句柄1=数组[],线程句柄2=数组[],线程状态=数组[],全部状态=假
功能 窗口(热键)//由热键0,热键1传入值
    句柄=窗口.鼠标所在窗口句柄()
    aa=数组空间.查找(窗口句柄,句柄)//4.0的数组用起来爽歪歪,4.0我看行!
    如果(aa==-1)//-1表示窗口句柄数组里没这个窗口句柄,是个新窗口
        如果(热键==0)//把新窗口句柄加入数组并开启线程,这里开了二个线程
            数组空间.增加(窗口句柄,句柄)
            数组空间.增加(线程句柄1,线程.开启("多开.操作1",句柄))
            数组空间.增加(线程句柄2,线程.开启("多开.操作2",句柄))
            数组空间.增加(线程状态,1)//用1来表示线程是运行的,0表示暂停
            列表框.增加文本("列表框0","运行(线程1:"&线程句柄1[0]&"--线程2:"&线程句柄2[0])            
        如果结束   
    否则//如果是旧窗口,根据所按热键做相应操作
        如果(热键==1)//关闭线程的操作
            线程.关闭(线程句柄1[aa])
            线程.关闭(线程句柄2[aa])
            列表框.增加文本("列表框0","线程关闭:"&线程句柄1[aa]&"--"&线程句柄2[aa])
            数组空间.删除指定项(窗口句柄,aa)//线程关闭后把相应的数组元素删除
            数组空间.删除指定项(线程句柄1,aa)
            数组空间.删除指定项(线程句柄2,aa)
            数组空间.删除指定项(线程状态,aa)
            窗口.设置标题(句柄,"停止")
            返回 真//热键1操作完毕,收工!记得返回
        如果结束//下面是热键0的操作      
        如果(线程状态[aa]==1)
            线程.暂停(线程句柄1[aa])
            线程.暂停(线程句柄2[aa])
            线程状态[aa]=0
        否则
            线程.恢复(线程句柄1[aa])
            线程.恢复(线程句柄2[aa])
            线程状态[aa]=1
        如果结束   
    如果结束
功能结束
功能 操作1(句柄)  
    循环(真)   
        窗口.设置标题(句柄,"运")
        辅助.等待(500)
        窗口.设置标题(句柄,"行")
        辅助.等待(500)
        窗口.发送字符串(句柄,"运行中")
        辅助.等待(500)
    循环结束   
功能结束
功能 操作2(句柄)
    循环(真)
        列表框.增加文本("列表框0","窗口句柄:"&句柄&"--线程2演示")
        辅助.等待(1500)
    循环结束
功能结束
功能 全操作(热键)//由热键2,热键3传入值
    线程数量
    数组空间.大小(线程句柄1,线程数量)//窗口句柄,线程句柄1,线程句柄2,线程状态随便一个数组的数量都行
    如果(线程数量>0)
        如果(热键==2)//根据不同的热键作不同的操作
            如果(全部状态==假)//这个是真是假随自己喜欢
                遍历(x=0;x<线程数量;x++)
                    线程.暂停(线程句柄1[x])
                    线程.暂停(线程句柄2[x])
                    线程状态[x]=0
                遍历结束
                标签.设置文本("标签2","全部恢复")
            否则
                遍历(x=0;x<线程数量;x++)
                    线程.恢复(线程句柄1[x])
                    线程.恢复(线程句柄2[x])
                    线程状态[x]=1
                遍历结束
                标签.设置文本("标签2","全部暂停")            
            如果结束
            全部状态=!全部状态//把值设为相反
            列表框.增加文本("列表框0","全部状态:"&全部状态)
        否则//下面是热键3的操作
            遍历(x=0;x<线程数量;x++)
                线程.关闭(线程句柄1[x])
                线程.关闭(线程句柄2[x])
            遍历结束
            窗口句柄=数组[]//线程关闭完后把相关变量初始化
            线程句柄1=数组[]
            线程句柄2=数组[]
            线程状态=数组[]
            全部状态=假
            标签.设置文本("标签2","全部(暂停/恢复)")
            列表框.增加文本("列表框0","全部停止!")   
        如果结束
    如果结束   
功能结束
功能 热键0_热键()
    多开.窗口(0)//热键里不要用开启线程来调用函数
功能结束
功能 热键1_热键()
    多开.窗口(1)//四个热键里都用线程来调用函数好像有点问题,不知什么原因,求真相!   
功能结束
功能 热键2_热键()
    多开.全操作(2)
功能结束
功能 热键3_热键()
    多开.全操作(3)
功能结束
功能 退出_点击()
    辅助.退出()//退出前好像应该加点什么,懒得加了.
功能结束
空间结束
回复 支持 反对

使用道具 举报

发表于 2014-2-24 19:45:08 | 显示全部楼层
sadfdsf
回复

使用道具 举报

发表于 2014-2-27 07:28:05 | 显示全部楼层
谢谢分享!!!!!!!!!!!!!
回复

使用道具 举报

发表于 2014-3-1 00:10:11 | 显示全部楼层
踩踩踩踩踩踩踩
回复 支持 反对

使用道具 举报

发表于 2014-3-1 11:51:47 | 显示全部楼层
11111111111111111
回复 支持 反对

使用道具 举报

发表于 2014-3-2 14:01:01 | 显示全部楼层
看看
回复

使用道具 举报

发表于 2014-3-3 10:24:15 | 显示全部楼层
学习!
回复

使用道具 举报

发表于 2014-3-4 14:53:43 | 显示全部楼层
1111111111111
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-9-28 15:52 , Processed in 0.059621 second(s), 20 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表