TC官方合作论坛
标题:
求大神帮我看看，我这脚本为何崩溃
[打印本页]
作者:
luoxe
时间:
2012-7-19 15:10
标题:
求大神帮我看看，我这脚本为何崩溃
#import "dm.dmsoft" My
空间 倩女脚本
功能 整型 调用开始搜索()
My.SetPath(辅助.获取资源路径("rc:"))
int intX,intY
My.SetDict(0,"DM_ZK.txt")
整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断5==0)
My.MoveTo(intX+150,intY+237)
help.sleep(300)
My.LeftClick()
help.sleep(300)
倩女脚本.细分()
如果结束
返回 0
功能结束
功能 整型 调用中间数字()
My.SetPath(辅助.获取资源路径("rc:"))
int intX,intY
My.SetDict(0,"DM_ZK.txt")
整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断5==0)
辅助.等待(300)
整型 判断6= My.FindStrFast(intX+26,intY+233,intX+33,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
如果(判断6>=0)
辅助.等待(300)
整型 判断7= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断7==0)
辅助.等待(300)
整型 判断8= My.FindStrFast(intX+1,intY+233,intX+9,intY+243,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
如果(判断8>=0)
辅助.等待(300)
如果(判断6==判断8)
倩女脚本.调用第一个数字()
否则
辅助.等待(300)
倩女脚本.调用开始搜索()
如果结束
如果结束
如果结束
如果结束
如果结束
返回 0
功能结束
功能 整型 调用第一个数字()
My.SetPath(辅助.获取资源路径("rc:"))
int intX,intY
My.SetDict(0,"DM_ZK.txt")
整型 判断9= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断9==0)
辅助.等待(300)
整型 判断10= My.FindStrFast(intX+20,intY+233,intX+27,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
如果(判断10>=0)
辅助.等待(300)
整型 判断11= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断11==0)
辅助.等待(300)
整型 判断12= My.FindStrFast(intX-5,intY+233,intX+3,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
如果(判断12>=0)
辅助.等待(300)
如果(判断10==判断12)
辅助.等待(300)
倩女脚本.找到商人()
否则
倩女脚本.调用开始搜索()
辅助.等待(300)
倩女脚本.判断页底()
如果结束
如果结束
如果结束
如果结束
如果结束
返回 0
功能结束
功能 整型 判断页底()
循环(真)
My.SetPath(辅助.获取资源路径("rc:"))
int intX,intY
My.SetDict(0,"DM_ZK.txt")
整型 判断1= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断1==0)
辅助.等待(300)
整型 判断2= My.FindStrFast(intX+32,intY+233,intX+39,intY+244,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
如果(判断2>=0)
辅助.等待(300)
整型 判断3= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断3==0)
辅助.等待(300)
整型 判断4= My.FindStrFast(intX+7,intY+232,intX+15,intY+243,"数字0|数字1|数字2|数字3|数字4|数字5|数字6|数字7|数字8|数字9","00ff34-000000",1.0,intX,intY)
如果(判断4>=0)
辅助.等待(300)
如果(判断2==判断4)
倩女脚本.调用中间数字()
辅助.等待(300)
否则
倩女脚本.调用开始搜索()
如果结束
如果结束
如果结束
如果结束
如果结束
循环结束
返回 0
功能结束
功能 整型 找到商人()
My.SetPath(辅助.获取资源路径("rc:"))
int intX,intY
My.SetDict(0,"DM_ZK.txt")
循环(真)
整型 判断1= My.FindPic(0,0,1400,800,"买东西.bmp","000000",1.0,0,intX,intY)
如果(判断1>=0)
My.MoveTo(intX+10,intY-5)
辅助.等待(1000)
My.LeftClick()
辅助.等待(1000)
倩女脚本.开始搜索()
跳出
否则
循环(真)
整型 判断2= My.FindPic(0,0,1400,900,"自动寻路.bmp","000000",1.0,0,intX,intY)
如果(判断2>=0)
My.MoveTo(intX,intY)
辅助.等待(1000)
My.LeftClick()
辅助.等待(1000)
整型 判断4= My.FindStrFast(0,0,1400,900,"玩家","ffffff-000000",1.0,intX,intY)
如果(判断4==0)
// 辅助.消息框("自动寻路下面不执行")
My.MoveTo(intX,intY)
辅助.等待(1000)
My.LeftClick()
辅助.等待(2000)
跳出
如果结束
否则
整型 判断3= My.FindPic(0,0,1400,900,"清除.bmp","000000",1.0,0,intX,intY)
如果(判断3>=0)
My.MoveTo(intX,intY)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
如果结束
如果结束
循环结束
如果结束
循环结束
返回 0
功能结束
功能 整型 开始搜索()
循环(真)
My.SetPath(辅助.获取资源路径("rc:"))
int intX,intY
My.SetDict(0,"DM_ZK.txt")
辅助.等待(500)
整型 判断6= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断6==0)
My.MoveTo(intX,intY-89)
辅助.等待(500)
My.LeftDown()
辅助.等待(500)
My.MoveTo(613,33)
辅助.等待(500)
My.LeftUp()
辅助.等待(1000)
整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断5==0)
辅助.等待(200)
整型 判断102= My.FindStrFast(intX-167,intY-10,intX+197,intY+282,"锁定","ffffff-000000",1.0,intX,intY)
如果(判断102==0)
辅助.等待(100)
My.MoveTo(intX,intY)
辅助.等待(100)
My.LeftClick()
辅助.等待(300)
倩女脚本.细分()
跳出
否则
倩女脚本.找到商人()
如果结束
如果结束
否则
倩女脚本.找到商人()
如果结束
循环结束
返回 0
功能结束
功能 整型 细分()
循环(真)
My.SetPath(辅助.获取资源路径("rc:"))
int intX,intY
My.SetDict(0,"DM_ZK.txt")
整型 判断2= My.FindPic(0,0,1400,900,"进入筛选.bmp","000000",1.0,0,intX,intY)
如果(判断2>=0)
My.MoveTo(intX+25,intY+41)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+78,intY+41)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+131,intY+41)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+184,intY+41)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+237,intY+41)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+25,intY+84)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+78,intY+84)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+131,intY+84)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+184,intY+84)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+237,intY+84)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+25,intY+127)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+78,intY+127)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+131,intY+127)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+184,intY+127)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+237,intY+127)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+25,intY+170)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+78,intY+170)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+131,intY+170)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+183,intY+170)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(100)
辅助.等待(100)
My.MoveTo(intX+237,intY+170)
辅助.等待(100)
My.LeftClick()
辅助.等待(100)
My.MoveTo(intX+1,1)
辅助.等待(2000)
整型 判断16= My.FindPic(0,0,1400,900,"操作.bmp","000000",1.0,0,intX,intY)
如果(判断16>=0)
辅助.等待(100)
My.MoveTo(intX+40,intY+32)
辅助.等待(100)
整型 判断15= My.FindPic(0,0,1400,900,"待操.bmp","000000",1.0,0,intX,intY)
如果(判断15>=0)
辅助.等待(500)
My.LeftClick()
辅助.等待(100)
倩女脚本.细分()
否则
整型 判断17= My.FindPic(0,0,1400,900,"跳转3.bmp","000000",1.0,0,intX,intY)
如果(判断17>=0)
倩女脚本.判断页底()
跳出
否则
倩女脚本.调用开始搜索()
倩女脚本.开始搜索()
如果结束
整型 判断5= My.FindStrFast(0,0,1400,900,"开始搜索","f9d082-000000",1.0,intX,intY)
如果(判断5==0)
否则
倩女脚本.开始搜索()
如果结束
如果结束
否则
倩女脚本.开始搜索()
如果结束
如果结束
循环结束
返回 0
功能结束
整型 线程1
功能 逻辑型 收获()
辅助.等待(300)
My.SetPath(辅助.获取资源路径("rc:"))
辅助.等待(300)
整型 窗口句柄=窗口.找到窗口("倩女幽魂Online 版本[95526] 服务器[千里江山] 角色ID[245800168]")
辅助.等待(300)
整型 判断0 = My.BindWindow(窗口句柄,"normal","normal","normal",0)
如果(判断0==1)
辅助.等待(300)
倩女脚本.找到商人()
否则
辅助.消息框("绑定失败")
如果结束
返回 真
功能结束
功能 逻辑型 开始_点击()
线程1=线程.开启("倩女脚本.收获","")
返回 真
功能结束
功能 逻辑型 退出_点击()
线程.关闭(线程1)
辅助.退出()
返回 真
//函数返回语句
功能结束
功能 逻辑型 热键0_热键()
倩女脚本.开始_点击()
返回 真
功能结束
功能 逻辑型 热键1_热键()
倩女脚本.退出_点击()
返回 真
功能结束
空间结束
新手一头，这个倩女脚本，gdi到DX3全部试过，都是坚持不到一小时就崩溃了。为什么被人写的倩女脚本可以我的怎么不行？
求大神指正。谢谢
作者:
luoxe
时间:
2012-7-19 18:49
临死之前踢一脚，大神都挂了？
作者:
TC兔子
时间:
2012-7-20 07:52
回复
2楼
luoxe
的帖子
你这代码太长了,如果可以运行的话,就很可能是绑定之类的,大漠的绑定很容易造成数据溢出.所以我现在在等官方的替代方案!
作者:
453480439
时间:
2012-7-20 10:52
是不能运行还是弹出什么错误框？？？
作者:
luoxe
时间:
2012-7-20 15:59
回复
4楼
453480439
的帖子
前30分钟一切正常，30分钟后游戏脚本一起突然消失
作者:
luoxe
时间:
2012-7-20 16:01
回复
3楼
TC兔子
的帖子
前30分钟一切正常，30分钟后游戏脚本一起突然消失
作者:
tyn653684516
时间:
2012-7-21 00:08
哈哈~呵！太长了你的代码，所以没有细看，好像你虽然用了大漠却没有绑定窗口，还好没绑，不然蹦的更快，在代码中使用变量，电脑是会自行分配给变量一定内存的，变量中储存的数据越多、越复杂，内存分配也就越多，正常来讲在代码运行结束时，系统是会自动释放内存的，以缓解电脑的内存压力；一般在大型软件中一些，工程师为了软件能够正常持续的运行都会在一段代码之后，跟上一个自杀程序的（这里是指把运行完暂时不会执行的代码关闭起来），当然还有程序中的兼容问题，就是指代码运行到某行就会崩掉，或是数据超过数据类型定义的上限的值也会崩掉，具体是什么原因，还得你自己测试
作者:
luoxe
时间:
2012-7-21 02:51
回复
7楼
tyn653684516
的帖子
问题已解决。谢谢这位朋友的指点
作者:
502720018zhangy
时间:
2012-7-21 03:54
完全看不懂
作者:
TC兔子
时间:
2012-7-21 07:59
回复
8楼
luoxe
的帖子
怎么解决?
作者:
luoxe
时间:
2012-7-22 15:10
回复
9楼
502720018zhangy
的帖子
慢慢来，我就比你好一点点，我猪头一个
作者:
luoxe
时间:
2012-7-22 15:12
回复
10楼
TC兔子
的帖子
我有个朋友帮我解决了，把我写的脚本给优化了，我自己还在看他写的源码，在学习中。
欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)
Powered by Discuz! X3.1
