易语言程序，运行时间长了CPU一直加，求解决

wds520

易语言程序刚运行cpu1-5左右，运行时间久了直接40多了

神一样的程序猿

代码贴出来

山咔咔d老表

ksksksks

我可以帮你    远程 改代码

星星之夜

易语言本身没有这个问题，请检查你写的代码、

wds520

.版本 2
.支持库 ExuiKrnln

.子程序 启停

.如果真 (功能选择夹.现行子夹 ＝ 0)
    点位_变量 ＝ 1
    主线程句柄 ＝ 线程_启动 (&绝地模式选择)
    ' 捡东西句柄 ＝ 线程_启动 (&捡物)
    通用技能句柄 ＝ 线程_启动 (&移动技能)
    .如果真 (战宠出站.选中 ＝ 真)
        战宠释放句柄 ＝ 线程_启动 (&战宠释放)
    .如果真结束
    ' 程序_延时 (5000)
    ' 背包清理句柄 ＝ 线程_启动 (&背包清理)
.如果真结束
.如果真 (功能选择夹.现行子夹 ＝ 1)
    主线程句柄 ＝ 线程_启动 (&体力模式选择)
.如果真结束
.如果真 (功能选择夹.现行子夹 ＝ 2)
    主线程句柄 ＝ 线程_启动 (&自动翻牌)
.如果真结束
.如果真 (功能选择夹.现行子夹 ＝ 4)
    点位_变量 ＝ 1
    主线程句柄 ＝ 线程_启动 (&自定义模式选择)
    通用技能句柄 ＝ 线程_启动 (&移动技能)
    .如果真 (关闭捡物_自定义.选中 ＝ 假)
        捡东西句柄 ＝ 线程_启动 (&捡物)
    .如果真结束

    .如果真 (战宠出站_自定义.选中 ＝ 真)
        战宠释放句柄 ＝ 线程_启动 (&战宠释放)
    .如果真结束

    .如果真 (分解组合框_自定义.内容 ≠ “关闭分解”)
        程序_延时 (5000)
        背包清理句柄 ＝ 线程_启动 (&背包清理)
    .如果真结束

.如果真结束
.如果真 (功能选择夹.现行子夹 ＝ 5)
    线程_启动 (&进入游戏判断)

wds520

.版本 2
.支持库 ExuiKrnln

.判断循环首 (是否启动)
    .如果真 (点位_变量 ＝ 1)
        地图内X ＝ 1273
        地图内Y ＝ 174
        dm.FindColor (1223, 42, 1373, 192, “10a2ff-000000”, 0.9, 0, 全局x, 全局y)
        .如果 (_启动窗口.前后台组合框.内容 ＝ “后台模式”)
            .如果 (地图内X － 11 ≤ 全局x 且 全局x ≤ 地图内X － 8 且 地图内Y － 19 ≤ 全局y 且 全局y ≤ 地图内Y － 15)
                点位_变量 ＝ 2
            .否则
                dm.MoveTo (地图内X － 5, 地图内Y － 5)
                dm.KeyPress (65)
                dm.LeftClick ()
                程序_延时 (#总延迟)
            .如果结束

        .否则
            .如果 (地图内X － 6 ≤ 全局x 且 全局x ≤ 地图内X － 2 且 地图内Y － 13 ≤ 全局y 且 全局y ≤ 地图内Y － 9)
                点位_变量 ＝ 2
            .否则
                dm.MoveTo (地图内X, 地图内Y)
                dm.KeyPress (65)
                dm.LeftClick ()
                程序_延时 (#总延迟)
            .如果结束

        .如果结束

    .如果真结束
    .如果真 (点位_变量 ＝ 2)
        地图内X ＝ 1332
        地图内Y ＝ 165
        dm.FindColor (1223, 42, 1373, 192, “10a2ff-000000”, 0.9, 0, 全局x, 全局y)

        .如果 (_启动窗口.前后台组合框.内容 ＝ “后台模式”)
            .如果 (地图内X － 11 ≤ 全局x 且 全局x ≤ 地图内X － 8 且 地图内Y － 19 ≤ 全局y 且 全局y ≤ 地图内Y － 15)
                点位_变量 ＝ 1
            .否则
                dm.MoveTo (地图内X － 5, 地图内Y － 5)
                dm.KeyPress (65)
                dm.LeftClick ()
                程序_延时 (#总延迟)
            .如果结束

        .否则
            .如果 (地图内X － 6 ≤ 全局x 且 全局x ≤ 地图内X － 2 且 地图内Y － 13 ≤ 全局y 且 全局y ≤ 地图内Y － 9)
                点位_变量 ＝ 1
            .否则
                dm.MoveTo (地图内X, 地图内Y)
                dm.KeyPress (65)
                dm.LeftClick ()
                程序_延时 (#总延迟)
            .如果结束

        .如果结束

    .如果真结束
    系统_处理事件 ()
.判断循环尾 ()

wds520

神一样的程序猿 发表于 2024-8-15 20:42
代码贴出来

贴了一部分

无敌小爱

你这写的啥程序，挂？？？

右手胜过左手

问了个寂寞，这摆明的代码写得有问题；