电脑资源占用大 有什么方法处理 我有19条线程

tao201309

电脑资源占用大 有什么方法处理  我有19条线程
脚本打开就占用了50%cpu   这是我得脚本 请问有什么方法减肥吗？  
求修改！！！！！！
空间 斗战神游戏
变量 线程句柄,x,y,间隔1,间隔2,间隔3,间隔4,间隔5,间隔6,间隔7,间隔8,间隔9,间隔10
变量 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,intX,intY,a15,a16,hwnd,a17
变量 a18,a19,a20,ts
功能 初始化()
    是否成功=辅助.注册插件("rc:TSPlug.dll",真)
    如果(是否成功)
        调试输出("插件已注册")
    否则
        调试输出("插件未注册")  
    如果结束
    ts=com("ts.tssoft")
功能结束
功能 开始_点击()
    hwnd=ts.GetMousePointWindow()
    ts.BindWindow(hwnd,"gdi","dx","dx",101)
    辅助.等待(1600)
    ts.DownCpu(100)
    ts.EnableRealKeypad(1)
    ts.SetMouseDelay("dx",10)
    ts.MoveTo(600,316)
    系统.设置路径("D:\\斗战神游戏\\斗战神游戏\\资源")
    间隔1=编辑框.获得文本("编辑框0")
    间隔2=编辑框.获得文本("编辑框1")
    间隔3=编辑框.获得文本("编辑框2")
    间隔4=编辑框.获得文本("编辑框3")
    间隔5=编辑框.获得文本("编辑框4")
    间隔6=编辑框.获得文本("编辑框5")
    间隔7=编辑框.获得文本("编辑框6")
    间隔8=编辑框.获得文本("编辑框7")
    间隔9=编辑框.获得文本("编辑框8")
    间隔10=编辑框.获得文本("编辑框9")
    a13=线程.开启("斗战神游戏.喝药","")
    a14=线程.开启("斗战神游戏.拾取","")
    a1=线程.开启("斗战神游戏.技能1","")
    a2=线程.开启("斗战神游戏.技能2","")
    a3=线程.开启("斗战神游戏.技能3","")
    如果(下拉框.得到选项("下拉框2"))
        线程.关闭(a3)
    如果结束
    如果(下拉框.得到选项("下拉框3"))
        a4=线程.开启("斗战神游戏.技能4","")
    如果结束
    如果(下拉框.得到选项("下拉框4"))
        a5=线程.开启("斗战神游戏.技能5","")
    如果结束
    如果(下拉框.得到选项("下拉框5"))
        a6=线程.开启("斗战神游戏.技能6","")
    如果结束
    如果(下拉框.得到选项("下拉框6"))
        a7=线程.开启("斗战神游戏.技能F1","")
    如果结束
    如果(下拉框.得到选项("下拉框7"))
        a8=线程.开启("斗战神游戏.技能F2","")
    如果结束
    如果(下拉框.得到选项("下拉框8"))
        a9=线程.开启("斗战神游戏.技能F3","")
    如果结束
    如果(下拉框.得到选项("下拉框9"))
        a10=线程.开启("斗战神游戏.技能F4","")
    如果结束
    如果(单选框.获得状态("单选框0"))
        a11=线程.开启("斗战神游戏.TAB","")
    如果结束
    如果(单选框.获得状态("单选框1"))
        a15=线程.开启("斗战神游戏.寻路","")
        a16=线程.开启("斗战神游戏.鼠标","")
        a18=线程.开启("斗战神游戏.找A","")
        a20=线程.开启("斗战神游戏.找B","")
    如果结束
    a17=线程.开启("斗战神游戏.内存","")
功能结束
功能 TAB()
    int1X,int2Y,图片X坐标,图片Y坐标
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
        如果结束
        如果(图像.找图(0,0,1280,960,"2.bmp",#304050,1.0,0,图片X坐标,图片Y坐标))
        否则
            //   键盘.按键(13)
        如果结束
    循环结束
功能结束
功能 鼠标()
    int1X,int2Y, 图片X坐标,图片Y坐标
    循环(真)
        ts.SetPath(help.getrcpath("rc:"))
        如果(ts.FindPic(0,0,1152,864,"1.bmp|2.bmp|3.bmp","203040",1.0,0,int1X,int2Y))
        否则
            ts.MoveTo(int1X,int2Y)
        如果结束
        如果(图像.找图(0,0,1440,900,"2.bmp",#304050,0.7,0,图片X坐标,图片Y坐标))
        否则
            键盘.按键(13)
        如果结束
    循环结束
功能结束
功能 喝药()
    循环(真)
        如果(ts.FindColor(612,760,628,770,"BB3232-203040",1.0,0,intX,intY))
            ts.KeyPressChar("0")
            辅助.等待(1800)
        如果结束
        如果(ts.FindColor(550,816,558,826,"137D97-203040",1.0,0,intX,intY))
            ts.KeyPressChar("9")
            辅助.等待(1800)
        如果结束
    循环结束
功能结束
功能 拾取()
    循环(真)
        辅助.等待(120)
        ts.KeyPressChar("z")
        辅助.等待(2000)
    循环结束
功能结束
功能 技能1()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(200)
            ts.KeyDownChar("1")
            辅助.等待(460)
            ts.KeyUpChar("1")                    
            辅助.等待(间隔1*1000)
            
        如果结束
    循环结束
功能结束
功能 技能2()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(28)
            ts.KeyDownChar("2")
            辅助.等待(360)
            ts.KeyUpChar("2")
            辅助.等待(间隔2*1000)   
        如果结束
    循环结束
功能结束
功能 技能3()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(60)
            ts.KeyDownChar("3")
            辅助.等待(360)
            ts.KeyUpChar("3")
            辅助.等待(间隔3*1000)   
        如果结束
    循环结束
功能结束
功能 技能4()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(80)
            ts.KeyDownChar("4")
            辅助.等待(360)
            ts.KeyUpChar("4")
            辅助.等待(间隔4*1000)
        如果结束
    循环结束
功能结束
功能 技能5()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(100)
            ts.KeyDownChar("5")
            辅助.等待(360)
            ts.KeyUpChar("5")
            辅助.等待(间隔5*1000)   
        如果结束
    循环结束
功能结束
功能 技能6()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(40)
            ts.KeyDownChar("6")
            辅助.等待(360)
            ts.KeyUpChar("6")
            辅助.等待(间隔6*1000)   
        如果结束
    循环结束
功能结束
功能 技能F1()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(60)
            ts.KeyDownChar("F1")
            辅助.等待(360)
            ts.KeyUpChar("F1")
            辅助.等待(间隔7*1000)   
        如果结束
    循环结束
功能结束
功能 技能F2()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(80)
            ts.KeyDownChar("F2")
            辅助.等待(360)
            ts.KeyUpChar("F2")
            辅助.等待(间隔8*100)
        如果结束
    循环结束
功能结束
功能 技能F3()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(20)
            ts.KeyDownChar("F3")
            辅助.等待(360)
            ts.KeyUpChar("F3")
            辅助.等待(间隔9*100)   
        如果结束
    循环结束
功能结束
功能 技能F4()
    循环(真)
        如果(ts.FindColor(538,5,588,30,"ffffff-000000",1.0,0,intX,intY))
        否则
            辅助.等待(40)
            ts.KeyDownChar("F4")
            辅助.等待(360)
            ts.KeyUpChar("F4")
            辅助.等待(间隔10*1000)   
        如果结束
    循环结束
功能结束
功能 内存()
    c=进程.打开("D:\\斗战神游戏\\斗战神游戏.exe")
    进程.等待初始化(c,1000)
    进程.释放内存(c)
功能结束
功能 按钮0_点击()
    线程.关闭(a1)
    线程.关闭(a2)
    线程.关闭(a3)
    线程.关闭(a4)
    线程.关闭(a5)
    线程.关闭(a6)
    线程.关闭(a7)
    线程.关闭(a8)
    线程.关闭(a9)
    线程.关闭(a10)
    线程.关闭(a11)
    线程.关闭(a12)
    线程.关闭(a13)
    线程.关闭(a14)
    线程.关闭(a15)
    线程.关闭(a16)
    线程.关闭(a18)
    线程.关闭(a19)
    a17=线程.开启("斗战神游戏.内存","")
    ts.UnBindWindow()
功能结束
功能 退出_点击()
    线程.关闭(a1)
    线程.关闭(a2)
    线程.关闭(a3)
    线程.关闭(a4)
    线程.关闭(a5)
    线程.关闭(a6)
    线程.关闭(a7)
    线程.关闭(a8)
    线程.关闭(a9)
    线程.关闭(a10)
    线程.关闭(a11)
    线程.关闭(a12)
    线程.关闭(a13)
    线程.关闭(a14)
    线程.关闭(a15)
    线程.关闭(a16)
    线程.关闭(a18)
    线程.关闭(a19)
    a17=线程.开启("斗战神游戏.内存","")
    ts.UnBindWindow()
    辅助.退出()
功能结束
功能 热键0_热键()
    斗战神游戏.开始_点击()
功能结束
功能 热键1_热键()
    斗战神游戏.按钮0_点击()
功能结束
功能 热键2_热键()
    斗战神游戏.退出_点击()
功能结束
功能 按钮1_点击()
    编辑框.设置文本("编辑框0","1")
    编辑框.设置文本("编辑框1","3")
    编辑框.设置文本("编辑框2","2")
    编辑框.设置文本("编辑框3","4")
    编辑框.设置文本("编辑框4","7")
    编辑框.设置文本("编辑框5","10")
    编辑框.设置文本("编辑框6","9")
    编辑框.设置文本("编辑框7","50")
    编辑框.设置文本("编辑框8","13")
    编辑框.设置文本("编辑框9","20")
功能结束
功能 找A()
    循环(真)
        a=ts.Ocr(1028,20,1055,38,"de7139-000000",1.0)
        a=类型.转整型(0)
        辅助.等待(88)  
    循环结束
功能结束
功能 找B()
    循环(真)
        b=ts.Ocr(1055,20,1082,38,"de7139-000000",1.0)
        b=类型.转整型(0)
        辅助.等待(88)
    循环结束
功能结束
功能 寻路()
    a,b,int1X,int2Y
    ts.KeyDownChar("delete")
    辅助.等待(760)
    ts.KeyUpChar("delete")
    ts.SetDict(0,"坐标字库0.txt")
    循环(真)
        如果(a<168)
            ts.KeyDownChar("d")
        否则
            ts.KeyUpChar("d")
            
            跳出
        如果结束
    循环结束
    循环(真)
        b=ts.Ocr(1055,20,1082,38,"de7139-000000",1.0)
        b=类型.转整型(0)
        辅助.等待(88)
        如果(b>122)
            ts.KeyDownChar("w")
            
        否则
            ts.KeyUpChar("w")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-000000",0.9,0,intX,intY))//1
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
    循环(真)
        如果(b>45)
            ts.KeyDownChar("w")
            
        否则
            ts.KeyUpChar("w")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a>165)
            ts.KeyDownChar("a")
        否则
            ts.KeyUpChar("a")
            跳出
        如果结束
    循环结束
    循环(真)
        
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//2
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
    循环(真)
        如果(b>32)
            ts.KeyDownChar("w")
            
        否则
            ts.KeyUpChar("w")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a>165)
            ts.KeyDownChar("a")
        否则
            ts.KeyUpChar("a")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a>32)
            ts.KeyDownChar("d")
        否则
            ts.KeyUpChar("d")
            跳出
        如果结束
    循环结束
    ts.MoveTo(600,316)
    ts.LeftClick()
    辅助.等待(5600)
    循环(真)
        如果(b>25)
            ts.KeyDownChar("w")
            
        否则
            ts.KeyUpChar("w")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a>165)
            ts.KeyDownChar("a")
        否则
            ts.KeyUpChar("a")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a<165)
            ts.KeyDownChar("d")
        否则
            ts.KeyUpChar("d")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//3 BOSS
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
    循环(真)
        如果(b<45)
            ts.KeyDownChar("s")
            
        否则
            ts.KeyUpChar("s")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a>104)
            ts.KeyDownChar("a")
        否则
            ts.KeyUpChar("a")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//4
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
    循环(真)
        如果(b<88)
            ts.KeyDownChar("s")
            
        否则
            ts.KeyUpChar("s")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a>90)
            ts.KeyDownChar("a")
        否则
            ts.KeyUpChar("a")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//5
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
    循环(真)
        如果(b<131)
            ts.KeyDownChar("s")
            
        否则
            ts.KeyUpChar("s")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(a>74)
            ts.KeyDownChar("a")
        否则
            ts.KeyUpChar("a")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//6
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
    循环(真)
        如果(a>63)
            ts.KeyDownChar("a")
        否则
            ts.KeyUpChar("a")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(b<152)
            ts.KeyDownChar("s")
            
        否则
            ts.KeyUpChar("s")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//7
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
    循环(真)
        如果(a<95)
            ts.KeyDownChar("d")
        否则
            ts.KeyUpChar("d")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(b>132)
            ts.KeyDownChar("w")
            
        否则
            ts.KeyUpChar("w")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//8
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
        循环结束果结束
    循环结束
    循环(真)
        如果(a<113)
            ts.KeyDownChar("d")
        否则
            ts.KeyUpChar("d")
            跳出
        如果结束
    循环结束
    循环(真)
        b=ts.Ocr(1055,20,1082,38,"de7139-102030",1.0)
        辅助.等待(80)
        如果(b>110)
            ts.KeyDownChar("w")
            
        否则
            ts.KeyUpChar("w")
            跳出
        如果结束
    循环结束
    ts.MoveTo(506,356)
    ts.LeftClick()
    辅助.等待(5600)
    循环(真)
        a=ts.Ocr(1028,20,1055,38,"de7139-102030",1.0)
        如果(a<143)
            ts.KeyDownChar("d")
        否则
            ts.KeyUpChar("d")
            跳出
        如果结束
    循环结束
    循环(真)
        b=ts.Ocr(1055,20,1082,38,"de7139-102030",1.0)
        辅助.等待(80)
        如果(b>103)
            ts.KeyDownChar("w")
            
        否则
            ts.KeyUpChar("w")
            跳出
        如果结束
    循环结束
    循环(真)
        如果(ts.FindColor(0,788,78,850,"DE1818-102030",0.8,0,intX,intY))//9
            跳出   
        否则
            ts.KeyPressChar("Tab")
            辅助.等待(1800)
            ts.KeyPressChar("Tab")
        如果结束
    循环结束
功能结束

空间结束

hu863063648

不明白,你到底想干什么

tao201309

就是一个斗战神自动刷图的一个脚本啊

as128214121

释放内存呢。。

bocai7821

有必要19个线程啊
我做脚本都是一个游戏窗口一个线程啊
不管多复杂,什么自动登录,自动换号,自动主线,自动判断任务,自动副本,自动各种活动跑商等等
其中还包括像打怪的自动技能,自动辅助技能,自动判断打怪范围,自动补蓝补血等等
其实就一个线程搞定
如果你用多线程,有可能出现使用攻击技能的时候同时使用辅助技能,抢键盘的情况,
就会出可能没有加上辅助技能,
如果单线程就不出现这情况

tao201309

单线程就会出现等待时间太长啊

tao201309

原因找到了 不是因为线程多卡 而是因为变量没写清楚

2596060677

bocai7821 发表于 2013-11-10 13:47
有必要19个线程啊
我做脚本都是一个游戏窗口一个线程啊
不管多复杂,什么自动登录,自动换号,自动主线,自动判 ...

一个线程会不会影响效率？

MrFrog

你这个不是一个好的软件工程 用数组重载的方式对于程序的维护和代码量以及以后的功能扩展对会起到很好的作用 你这样的话以后维护起来估计够呛

地狱邪目

本人是文盲，以上内容文字均不认识，也看不懂是什么意思.