TC官方合作论坛

标题: 麻烦看下脚本有什么问题 源码 [打印本页]

作者: a13620    时间: 2017-8-13 15:20
标题: 麻烦看下脚本有什么问题 源码
7.0的版本,脚本启动后CPU占用率很高。不知道怎么回事



变量 线程ID = 0
//从这里开始执行
功能 执行()

    变量 x,y
    循环(真)
        变量 ret = 找字(0,0,1920,1080,"神","0cf448-000000|a90707-000000",1.0,x,y)
        如果(x>0)
            等待(10,真)
            鼠标移动(x,y)
            等待(10,真)
            鼠标左键单击(1)
            等待(10,真)
        结束


    结束
结束

//启动_热键操作
功能 启动_热键()
    如果(线程ID == 0)
        线程ID=线程开启("执行","")
    否则
        消息框("脚本正在执行中")
    结束

结束

//终止热键操作
功能 终止_热键()
    如果(线程ID != 0)
        线程关闭(线程ID)
        线程ID = 0        
    结束   
结束

功能 启动_失去焦点()
    //这里添加你要执行的代码
    热键销毁("启动")
    热键注册("启动")
结束


功能 终止_失去焦点()
    //这里添加你要执行的代码
    热键销毁("终止")
    热键注册("终止")
结束


功能 保存配置_点击()
    //这里添加你要执行的代码
    变量 键值 = 0,功能键 = 0
    热键获取键码("启动",键值,功能键)
    文件写配置("热键","启动键值",键值,"D:\\Main.ini")
    文件写配置("热键","启动功能键",功能键,"D:\\Main.ini")

    热键获取键码("终止",键值,功能键)
    文件写配置("热键","终止键值",键值,"D:\\Main.ini")
    文件写配置("热键","终止功能键",功能键,"D:\\Main.ini")
结束


功能 抓星_初始化()
    //这里添加你要执行的代码
    变量 键值 = 0,功能键 = 0
    键值 = 文件读配置("热键","启动键值","D:\\Main.ini")
    功能键 = 文件读配置("热键","启动功能键","D:\\Main.ini")
    如果(键值 != "")
        热键设置键码("启动",键值,功能键)
        热键注册("启动")
    结束

    键值 = 文件读配置("热键","终止键值","D:\\Main.ini")
    功能键 = 文件读配置("热键","终止功能键","D:\\Main.ini")
    如果(键值 != "")
        热键设置键码("终止",键值,功能键)
        热键注册("终止")
    结束

    变量 提示内容 = "鼠标移动到热键控件里,使得热键控件具有输入焦点,之后输入自己的热键,点击保存配置按钮,那么修改后的热键就会立即生效."
    标签设置文本("标签2",提示内容)
结束



作者: a13620    时间: 2017-8-13 15:23
I3的CPU占用率在百分之20-30之间
作者: a13620    时间: 2017-8-13 15:27

作者: 爱上老公    时间: 2017-8-13 15:51
循环加点延时看看
作者: 2576605471    时间: 2017-8-13 17:09
什么时候,找字可以不用设置字库了...
作者: a13620    时间: 2017-8-13 22:43
有设置。只是之前改动过,不小心删掉了。
主要是延迟高一点就没意义了

作者: a13620    时间: 2017-8-13 22:43
延迟时间高的话 这个脚本就没意义了

作者: a13620    时间: 2017-8-13 22:45
变量 线程ID = 0
//从这里开始执行
功能 执行()
    //从这里开始你的代码
   
    变量 x,y
    变量 提示内容 = "启动"
    标签设置文本("标签3",提示内容)
    字库设置("rc:/zk.txt",0)
    循环(真)
        变量 ret = 找字(0,0,1920,1080,"天|意|前|来|讨|伐|你|等|恶|神","0cf448-000000|a90707-000000",1.0,x,y)
        如果(x>0)
            等待(10,真)
            鼠标移动(x,y)
            等待(10,真)
            鼠标左键单击(1)
            等待(10,真)
        结束
        
        
    结束
结束




欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1