浪剑吟风 浪剑吟风
关注数: 5 粉丝数: 16 发帖数: 846 关注贴吧数: 13
大神帮忙看下调用栈溢出是怎么回事???? 177行,调用栈溢出,脚本异常终止 144行,调用栈溢出,脚本异常终止 大神看下怎么搞啊?运行一段时间就会这样,大神帮忙看看,过年发财啊 PutAttachment ".\plugin", "RegDll.dll" PutAttachment ".\plugin\dm", "dm.dll" Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll") Set dm = createobject("dm.dmsoft") dm.Setpath "d:\360安全浏览器下载\大漠插件" dm.setdict 0, "字库.txt" ID1 = BeginThread(子程序1) ID2 = BeginThread(子程序2) Rem 回城 dm.RightUp Delay 500 dm.KeyPress 102 Delay 5000 dm.MoveTo 820, 505 Delay 1000 Call 地图() Delay500 Rem 地图标记 Delay 500 dm.KeyPress 85 Delay 2000 dm.MoveTo 904,351 Delay 2000 dm.LeftDoubleClick Delay 15000 dm.KeyPress 85 Delay 2000 dm.KeyPress 36 Delay 2000 dm.MoveTo 655, 250 Delay 1000 dm.LeftClick Delay 2000 Call 全修() Delay 500 Rem 全修标记 Delay 1000 dm.KeyPress 36 Delay 1000 dm.MoveTo 389, 355 Delay 2000 dm.LeftClick Delay 2000 dm.MoveTo 400, 460 Delay 2000 dm.LeftClick Delay 2000 dm.KeyPress 102 Delay 2000 dm.MoveTo 820, 505 Delay 1000 Call 地图2() Rem 地图标记2 Delay 500 dm.KeyPress 85 Delay 2000 dm.MoveTo 946, 321 Delay 3000 dm.LeftDoubleClick Delay 15000 dm.KeyPress 85 Delay 2000 dm.KeyPress 36 Delay 2000 dm.MoveTo 655, 250 Delay 1000 dm.LeftClick Delay 2000 Call 武修() Rem 武修标记 Delay 2000 dm.KeyPress 36 Delay 1000 dm.MoveTo 378, 263 Delay 2000 dm.LeftClick Delay 2000 dm.MoveTo 382, 262 Delay 2000 dm.LeftClick Delay 2000 dm.KeyPress 81 Delay 2000 dm.MoveTo 360, 385 Delay 2000 dm.LeftDoubleClick Delay 3000 dm.KeyPress 81 Delay 1000 Call 找怪() Sub 子程序1() Set dm = createobject("dm.dmsoft") dm.KeyDown 17 Delay 200 dm.KeyPress 83 dm.KeyUp 17 Delay 180000 Call 子程序1() End Sub Sub 子程序2() Set dm = createobject("dm.dmsoft") Delay 10800000 dm.RightUp Delay 500 RestartScript End Sub Sub 找怪() dm_ret = dm.FindStrFast(490,890,520,915,"大|厅","ffffc8-000000",1,x1,y1) dm_ret = dm.FindStrFast(490,890,520,915,"5|层","ffffc8-000000",1,x2,y2) dm_ret = dm.FindColor(530, 260, 1035, 640, "f82120-000000", 1.0, 4, x3,y3) dm_ret = dm.FindStrFast(580,300,1000,610,"币|药|头|阳|福|灵|神|水|油|年","00ff00-000000|ffff7d-000000|ff009b-000000|ff0000-000000",1,x4,y4) If x1 >= 0 Then dm.RightUp dm.MoveTo 625,355 Delay 100 dm.RightDown Delay 3000 dm.RightUP Call 打怪() ElseIf x2 >= 0 Then dm.RightUp dm.MoveTo 980, 360 Delay 100 dm.RightDown Delay 3000 dm.RightUP Call 打怪() ElseIf x3> 0 And y3> 0 Then dm.RightUp Call 打怪() ElseIf x4 >= 0 Then dm.RightUp Call 捡东西() Else Delay 1500 Call 跑动() 144行调用栈溢出!!!!!!!!!!!!!!!!!!!!!!! End If End Sub Sub 打怪() dm_ret = dm.FindColor(530,260,1035,640, "f82120-000000|f94d4c-000000|f8282e-000000|cc1f1e-000000",1.0,4,x5,y5) If x5 > 0 And y5 > 0 Then dm.MoveTo x5+1, y5+10 Delay 200 dm.LeftClick Delay 2000 Call 打怪() Else Delay 200 Call 捡东西() End If End Sub Sub 捡东西() i=0 While i = 0 dm_ret = dm.FindStrFast(580,300,1000,610,"币|药|头|阳|福|灵|神|水|油|年","00ff00-000000|ffff7d-000000|ff009b-000000|ff0000-000000",1,x6,y6) If x6 >= 0 Then dm.MoveTo x6+5,y6+5 dm.LeftClick Delay 1000 Call 打怪() Else i = 1 Call 找怪() 177行,调用栈溢出!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! End If Wend End Sub Sub 跑动() Randomize n = Int(rnd * 4) If n = 0 Then dm.MoveTo 650,355 Delay 100 dm.RightDown Delay 100 Call 找怪() End if If n = 1Then dm.MoveTo 1040,655 Delay 100 dm.RightDown Delay 100 Call 找怪() End If If n = 2 Then dm.MoveTo 1040,350 Delay 100 dm.RightDown Delay 100 Call 找怪() End If If n = 3 Then dm.MoveTo 650,640 Delay 100 dm.RightDown Delay 100 Call 找怪() End If Delay 1000 End Sub Sub 全修() dm_ret = dm.FindStrFast(400,280,435,380,"光|秀","0000ff-000000",1,x7,y7) If x7 >= 0 Then dm.MoveTo x7,y7 Delay 1000 dm.LeftDoubleClick Delay 2000 Goto 全修标记 Else Call 全修() Delay 500 End If End Sub Sub 武修() dm_ret = dm.FindStrFast(400,280,435,380,"铁|匠","0000ff-000000",1,x8,y8) If x8 >= 0 Then dm.MoveTo x8,y8 Delay 1000 dm.LeftDoubleClick Delay 2000 Goto 武修标记 Else Call 武修() Delay 500 End If End Sub Sub 地图() dm_ret = dm.FindColor(1320, 269, 1328, 273, "980008-000000", 1.0, 4, x9, y9) If x9 > 0 And y9 > 0 Then Delay 500 Goto 地图标记 Else dm.KeyPress 86 Delay 500 Goto 地图标记 End If End Sub Sub 地图2() dm_ret = dm.FindColor(1320, 269, 1328, 273, "980008-000000", 1.0, 4, x10, y10) If x10 > 0 And y10 > 0 Then Delay 500 Goto 地图标记2 Else dm.KeyPress 86 Delay 2000 Goto 地图标记2 End If End Sub dm_ret = dm.UnBindWindow()
大神帮忙看下多线程坐标返回值出错怎么办? 脚本里需要添加这个多线程,但是一启动几秒鼠标就移动到屏幕0,0位置不动了, 如果把这个多线程改成单线程则运行正常,是什么回事啊>?????急 Set dm = createobject("dm.dmsoft") dm.Setpath "d:\360安全浏览器下载\大漠插件" dm.setdict 0, "字库.txt" ID1 = BeginThread(找怪) Sub 找怪 Set dm = createobject("dm.dmsoft") dm_ret = dm.FindStrFast(490,890,520,915,"大|厅","ffffc8-000000",1,x1,y1) dm_ret = dm.FindStrFast(490,890,520,915,"5|层","ffffc8-000000",1,x2,y2) dm_ret = dm.FindColor(530, 260, 1035, 640, "f82120-000000", 1.0, 4, x3,y3) dm_ret = dm.FindStrFast(580,300,1000,610,"币|药|头|阳|福|灵|神|水|油|年","00ff00-000000|ffff7d-000000|ff009b-000000|ff0000-000000",1,x4,y4) If x1 >= 0 Then dm.RightUp dm.MoveTo 625,355 Delay 100 dm.RightDown Delay 3000 dm.RightUP Call 打怪() ElseIf x2 >= 0 Then dm.RightUp dm.MoveTo 980, 360 Delay 100 dm.RightDown Delay 3000 dm.RightUP Call 打怪() ElseIf x3> 0 And y3> 0 Then dm.RightUp Call 打怪() ElseIf x4 >= 0 Then dm.RightUp Call 捡东西() Else Delay 1500 Call 跑动() End If End Sub Sub 打怪() dm_ret = dm.FindColor(530,260,1035,640, "f82120-000000|f94d4c-000000|f8282e-000000|cc1f1e-000000",1.0,4,x5,y5) If x5 > 0 And y5 > 0 Then dm.MoveTo x5+1, y5+10 Delay 200 dm.LeftClick Delay 2000 Call 打怪() Else Delay 200 Call 捡东西() End If End Sub Sub 捡东西() i=0 While i = 0 dm_ret = dm.FindStrFast(580,300,1000,610,"币|药|头|阳|福|灵|神|水|油|年","00ff00-000000|ffff7d-000000|ff009b-000000|ff0000-000000",1,x6,y6) If x6 >= 0 Then dm.MoveTo x6+5,y6+5 dm.LeftClick Delay 1000 Call 打怪() Else i = 1 Call 找怪() End If Wend End Sub Sub 跑动() StopThread ID1 Randomize n = Int(rnd * 4) If n = 0 Then dm.MoveTo 650,355 Delay 100 dm.RightDown Delay 100 Call 找怪() End if If n = 1Then dm.MoveTo 1040,655 Delay 100 dm.RightDown Delay 100 Call 找怪() End If If n = 2 Then dm.MoveTo 1040,350 Delay 100 dm.RightDown Delay 100 Call 找怪() End If If n = 3 Then dm.MoveTo 650,640 Delay 100 dm.RightDown Delay 100 Call 找怪() End If Delay 1000 End Sub dm_ret = dm.UnBindWindow()
1 下一页