TC官方合作论坛

 找回密码
 立即注册
查看: 239|回复: 2
打印 上一主题 下一主题

[已解决] 谁帮我看看这个什么问题!

[复制链接]
跳转到指定楼层
楼主
发表于 2014-4-26 13:33:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
空间 多开喊话
变量 线程句柄数组=数组[],窗口句柄数组=数组[]

功能 启动_热键()

    变量 窗口句柄

    窗口句柄=窗口.鼠标所在窗口句柄()

    下标=数组空间.查找(窗口句柄数组,窗口句柄)

    调试输出("下标:"&下标)

    如果(下标==-1)//新窗口

        数组空间.增加(窗口句柄数组,窗口句柄)

        调试输出("窗口句柄:"&窗口句柄)

        线程句柄=线程.开启("多开喊话.发信息",窗口句柄)

        调试输出("线程句柄:"&线程句柄)

        数组空间.增加(线程句柄数组,线程句柄)

    否则//旧窗口

        如果(窗口句柄==窗口句柄数组[下标])

            辅助.消息框("此窗口已经启动了")

            返回 0

        否则

            数组空间.增加(窗口句柄数组,窗口句柄)

            调试输出("窗口句柄:"&窗口句柄)

            线程句柄=线程.开启("多开喊话.发信息",窗口句柄)

            调试输出("线程句柄:"&线程句柄)

            数组空间.增加(线程句柄数组,线程句柄)

        如果结束

    如果结束   

功能结束


功能 停止_热键()

    变量 大小

    数组空间.大小(线程句柄数组,大小)

    遍历(i=0;i<大小;i++)

        线程.关闭(线程句柄数组)

    遍历结束

    数组空间.清空(线程句柄数组)

    数组空间.清空(窗口句柄数组)

功能结束

功能 单停_热键()

    窗口句柄=窗口.鼠标所在窗口句柄()

    下标=数组空间.查找(窗口句柄数组,窗口句柄)

    线程.关闭(线程句柄数组[下标])

    数组空间.删除指定项(线程句柄数组,下标)

    数组空间.删除指定项(窗口句柄数组,下标)

功能结束

//=========================================================//
功能 发信息(窗口句柄)
    i=0
    循环(真)
        秒=编辑框.获得文本("编辑框1")
        内容=编辑框.获得文本("编辑框0")
        窗口.提交按键(窗口句柄,13)
        窗口.发送字符串(窗口句柄,内容&i)
        辅助.等待(100)
        窗口.提交按键(窗口句柄,13)
        i=i+1
        时间=辅助.随机数(秒,秒+1000)
        辅助.等待(时间)
    循环结束

功能结束


这个源码是我 抄的 但运行起来  单停 单开 没问题 全停就 出现 数组跨界了啊!谁能讲解下!

回复

使用道具 举报

沙发
发表于 2014-4-26 13:46:28 | 只看该作者
    遍历(i=0;i<大小;i++)

        线程.关闭(线程句柄数组[i]) //这个没加下标 ??

    遍历结束
回复 支持 反对

使用道具 举报

板凳
 楼主| 发表于 2014-4-26 18:56:18 | 只看该作者
功能 单停_热键()

    窗口句柄=窗口.鼠标所在窗口句柄()

    下标=数组空间.查找(窗口句柄数组,窗口句柄)

    线程.关闭(线程句柄数组[下标])

    数组空间.删除指定项(线程句柄数组,下标)

    数组空间.删除指定项(窗口句柄数组,下标)

功能结束

这个如果 单停的时候 多按一下 就会数组超出  能改下 让 按多少次都没事么!
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

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

GMT+8, 2025-9-27 14:46 , Processed in 0.164208 second(s), 23 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

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