• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.5.2
软件大小:29.2M
更新时间:05-13

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已回复] 求助,怎样获取runner.exe的进程pid,要让脚本自己获取到这个PID [复制链接]

1#
慢慢写了接近2个月的代码,最近一直死,我都快疯了,因为它死的时候很随机,有的时候几分钟十几分钟,有的时候两三小时,是整个脚本崩溃掉,跳出一个记事本文档的错误窗口(最大化),然后脚本就强制退出了。
脚本的功能是可以实现的,但是就是会死,而我这个脚本最需要的偏偏就是要长时间运行。中途不能死,一死就完了。

最近试了各种方法,一段一段的改了各种代码,都不行,都会死,搞得我半夜睡觉都要起来研究什么问题,可是始终找不到问题,快疯了,求求版主老大,棒棒我吧。

最近试了一下每隔几分钟释放下内存,不停的观察任务管理器中的内存和CPU消耗情况,从早看到晚,还是没看出来哪里有问题。释放内存脚本也一样突然在某个时间点就死了。

但是我注意到一点,就是每次死的时候,都是脚本执行器(runner.exe)先在任务管理器中消失,然后按键精灵再消失的.

我昨天试了下释放按键精灵的内存,很显然没有用,现在试试每隔几分钟释放下runner.exe的内存试试,因为每次是它先死的,可是这个runner.exe进程该怎么让脚本自己去找到它的PID的?目前只知道通过窗口句柄获取PID,但是我只能获取到小精灵或按键精灵的窗口句柄,得到的PID是按键的PID,不是runner.exe的PID,求助,该怎么实现。

hwnd脚本 = Plugin.Window.Foreground
TracePrint "脚本句柄" & hwnd脚本
Delay 300
ipid = Plugin.lxj_Plug.lxj_GetPidByHwnd (hwnd脚本)
TracePrint "得到PID为"&ipid


已经被折磨了快两个星期了,没有什么事情比脚本强制退出还折磨人的。目前我只能病急乱投医,一个一个试,接下来看看释放runner.exe的内存有没有用。至于关于脚本本身的清洁、逻辑,已经来来回回看了N遍了,脚本的功能是一个多月一来一点一点增加的,就是想不起来是增加了某个功能,从什么时候开始脚本就一定要强制退出了。

求大佬们给个建议,谢谢,急。。。。。附上最主要的代码——————————能帮我看看我的代码主要有什么不妥的地方吗,先不管简洁不简洁,我现在只要功能正常,不卡死就行


Dimenv hwnd1, hwnd2, hwnd3, hwnd4,hwnd吸取,决斗初始,交易初始,hwnd临时,ipid
Global 找暗色ID, 窗口一二找鼠标码ID, 被交易ID,time1,循环防掉线ID
Plugin.lxj_Plug.lxj_MessageD 1, "已启动自动飞机"
Delay 200
time1 = now//脚本启动时间
hwnd临时=""//初始值为空的时候,才可以发生窗口三四自动互换
找暗色ID = BeginThread(第三窗口找暗色循环)
Delay 1000
循环防掉线ID = BeginThread(循环防掉线)
Delay 1000
被交易ID = BeginThread(被交易)
Delay 1000
自动吸取ID = BeginThread(自动吸取)
Delay 1000
If Form1.CheckBox4.Value = 1 Then
干扰ID = BeginThread(干扰模式)
End If
//--------------------------窗口一循环找亮色------------------
Do
Randomize
Rem 重新判断亮色
XY亮1=Plugin.Color.FindMutiColor(16, 73,177, 217,"008F00","1|14|006800,2|7|00B600",0.8)//窗口一找亮色
dim MyArray亮1
MyArray亮1 = Split(XY亮1, "|")
X亮1 = CInt(MyArray亮1(0)) : Y亮1 = CInt(MyArray亮1(1))
If x亮1 > 0 Then
TracePrint "已找到亮色"
PauseThread (窗口一二找鼠标码id )
MoveTo int(x亮1 + 8 * rnd), int(y亮1 + 5 * rnd)
Delay 20
LeftClick 1
Delay int(20 + 100 * rnd)//每隔120重新判断一下是否有边框
XY边框亮=Plugin.Color.FindMutiColor(X亮1-31,Y亮1-15,X亮1+31,y亮1+15,"ADF7FF","-2|2|ADF7FF,0|15|ADF7FF",0.8)
dim MyArray边框亮
MyArray边框亮 = Split(XY边框亮, "|")
X边框亮 = CInt(MyArray边框亮(0))
If X边框亮 < 0 Then
Goto 重新判断亮色
End If
ContinueThread (窗口一二找鼠标码id)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd1, 49)//窗口1按交易
Delay 400
Call Plugin.Bkgnd.KeyPress(Hwnd1, 49)//窗口1按交易
Delay 20
// 请重新输入金额id = BeginThread(请重新输入金额)
PauseThread (被交易ID)
Delay 20
TracePrint "已启动找金饼绿色边框叉叉"
Delay 20
Call 找金饼绿色边框叉叉
Delay 20
// Rem 跳出全部查找
// StopThread (请重新输入金额id)
Delay 20
ContinueThread (被交易ID)
TracePrint "已结束找金饼绿色边框叉叉"
Delay 500
End If
Delay int(500+500*rnd)
Loop//主程序找亮色循环


Sub 第三窗口找暗色循环
TracePrint "开始找暗色循环"
Randomize
Rem 重新判断暗色
Do
XY暗色=Plugin.Color.FindMutiColor(13, 425,222, 580,"0B700B","0|-7|065709,7|7|0C450C",0.83)//小于0.8亮色和暗色分不清
dim MyArray暗色//多点找暗色
MyArray暗色 = Split(XY暗色, "|")
X暗色 = CInt(MyArray暗色(0)) : Y暗色 = CInt(MyArray暗色(1))

XY传送=Plugin.Color.FindMutiColor(27,683,512,728,"94326E","2|0|882F68,-1|3|080008,-1|-1|080008",0.7)//chuansong
dim MyArray传送//找传送有蓝
MyArray传送 = Split(XY传送, "|")
X传送 = CInt(MyArray传送(0)) : Y传送 = CInt(MyArray传送(1))

XY包裹=Plugin.Color.FindMutiColor(244,488,558,722,"65686D","-2|1|737477,-2|2|282B2F,5|1|74777A",0.8)//包裹大图标
dim MyArray包裹
MyArray包裹 = Split(XY包裹, "|")
X包裹 = CInt(MyArray包裹(0)) : Y包裹 = CInt(MyArray包裹(1))

XY灵魂石测试=Plugin.Color.FindMutiColor(147,440,556,715,"FFFFFF","1|1|FFE6FF,4|5|FF6DFF",0.7)//灵敏度0.9都能识别
dim MyArray灵魂石测试
MyArray灵魂石测试 = Split(XY灵魂石测试, "|")
X灵魂石测试 = CInt(MyArray灵魂石测试(0)) : Y灵魂石测试 = CInt(MyArray灵魂石测试(1))

If y暗色 > 0 and x传送 > 0 Then //有传送蓝也有暗色
TracePrint "暗色y" & y暗色 & "传送图标" & x传送 & "包裹" & X包裹 & "灵魂石y" & Y灵魂石测试
Call Plugin.Window.Active (hwnd3)
Delay 50
LockMouse
MoveTo int(x暗色+4*rnd), int(y暗色+2*rnd)
Delay int(20+20*rnd)
LeftClick 1//选中暗色
Delay 20
LeftClickS 1
Delay int(200 + 100 * rnd)
XY边框暗=Plugin.Color.FindMutiColor(X暗色-31,Y暗色-15,X暗色+31,y暗色+15,"ADF7FF","-2|2|ADF7FF,0|15|ADF7FF",0.8)
dim MyArray边框暗
MyArray边框暗 = Split(XY边框暗, "|")
X边框暗 = CInt(MyArray边框暗(0))
If X边框暗 < 0 Then
Delay 200
Goto 重新判断暗色
End If
UnlockMouse
Delay 50
Call Plugin.Bkgnd.KeyPress(Hwnd3, 90)//拉人之前先Z,清空传送
Delay int(1100 + 300 * rnd)
//---------------------------拉人前判断等级--------------------
XY等级1=Plugin.Color.FindMutiColor(194,405,208, 419,"006F88","0|2|006177,-1|1|020100,5|1|0D1211,1|1|091618,0|3|060B0C,0|-1|000E11,-1|0|000000",0.8)
dim MyArray等级1
MyArray等级1 = Split(XY等级1, "|")
X等级1 = CInt(MyArray等级1(0)) : Y = CInt(MyArray等级1(1))
XY等级20=Plugin.Color.FindMutiColor(194,405,208, 419,"004655","-1|3|005466,-1|2|000000,1|3|001114,3|0|003844,2|0|000000,3|3|005466,4|3|002A33,4|0|000000",0.8)
dim MyArray等级20
MyArray等级20 = Split(XY等级20, "|")
X等级20 = CInt(MyArray等级20(0)) : Y等级20 = CInt(MyArray等级20(1))
XY等级30=Plugin.Color.FindMutiColor(194,405,208, 419,"004655","0|1|005466,0|2|004655,-1|3|003844,3|0|003844,2|0|000000,4|3|002A33,1|2|001C22",0.9)
dim MyArray等级30
MyArray等级30 = Split(XY等级30, "|")
X等级30 = CInt(MyArray等级30(0)): Y等级30 = CInt(MyArray等级30(1))

TracePrint "等级1是" & X等级1 & " 等级20是" & Y等级20&" 等级30是" & Y等级30
If X等级1 > 0 or X等级20 > 0 /* or X等级30>0*/ Then
Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)//回车,移除
Delay int(100+100*rnd)
Call Plugin.Bkgnd.SendString(Hwnd3, "/移除")
Delay int(150+150*rnd)
Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)
Delay 100
Call Plugin.Media.Beep(880, 600)//3/4拍之后1/4拍
Delay 100
Call Plugin.Media.Beep(523, 200)
Delay 200
Goto 重新判断暗色
End If
//----------------------------------------------------------------
Rem 重新拉
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd3, 192)//按键"~"键开始传送门
传送次数 = 传送次数 + 1
If Form1.CheckBox1.Value = 1 Then
Call Plugin.Msg.Tips("这是第" & 传送次数 & "次传送")
End If

Form1.CheckBox1.Caption = "是否显示传送次数,当前是第" & 传送次数 & "次"
窗口一二找鼠标码id = BeginThread (窗口一二找鼠标码)
//-------------------拉人时判断白色边框----------------
for 28 //循环判断白色边框,24次*0.5秒=15秒,时间如果太短,有可能第二个窗口在暂停线程后继续线程,已经提前结束了
XY白框=Plugin.Color.FindMutiColor(10,422,106,558,"A7EEF6","1|1|054F05,2|6|0B6B0B,2|15|ADF7FF,31|15|ABF2FA,31|2|ADF7FF",0.8)
dim MyArray白框
MyArray白框 = Split(XY白框, "|")
X白框 = CInt(MyArray白框(0)) : Y白框 = CInt(MyArray白框(1))
If X白框 < 0 Then
Delay 500 * rnd
StopThread (窗口一二找鼠标码ID)
Call Plugin.Bkgnd.KeyPress(hwnd3, 32)//没白色边框就跳,避免继续拉人浪费石头
Goto 重新判断暗色
End If
Delay 500
Next

StopThread (窗口一二找鼠标码id)
//---------------------------------------------拉人读条判断---------------
For 10
Delay 500//14+5秒之后判断
Next
XY拉人读条=Plugin.Color.FindMutiColor(222, 601,355, 662,"00C800","1|-1|00C700,1|0|00C800",0.8)
dim MyArray拉人读条
MyArray拉人读条 = Split(XY拉人读条, "|")
X拉人读条 = CInt(MyArray拉人读条(0)): Y拉人读条 = CInt(MyArray拉人读条(1))
If x拉人读条 > 0 Then
Delay 50
TracePrint "拉人失败,重新拉"
Delay 20
Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)//回车
Delay int(100+100*rnd)
Call Plugin.Bkgnd.SendString(Hwnd3, "/ra 抱歉,重新拉" )
Delay int(150+450*rnd)
Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)
Delay 200
Goto 重新拉

End If
//----------------------------------每次拉人后打开包裹查看灵魂石有无------------------
Delay 100
Call Plugin.Window.Active(hwnd3)
Delay 200
Call Plugin.Bkgnd.KeyPress (hwnd3,66)//b
Delay 400+500*rnd
XY灵魂石=Plugin.Color.FindMutiColor(147,440,556,715,"FFFFFF","1|1|FFE6FF,4|5|FF6DFF",0.5)
dim MyArray灵魂石
MyArray灵魂石 = Split(XY灵魂石, "|")
X灵魂石 = CInt(MyArray灵魂石(0)) : Y灵魂石 = CInt(MyArray灵魂石(1))
Call Plugin.Bkgnd.KeyPress (hwnd3,66)//b
Delay 400+500*rnd
XY灵魂石2=Plugin.Color.FindMutiColor(147,440,556,715,"FFFFFF","1|1|FFE6FF,4|5|FF6DFF",0.5)
dim MyArray灵魂石2
MyArray灵魂石2 = Split(XY灵魂石2, "|")
X灵魂石2 = CInt(MyArray灵魂石2(0)) : Y灵魂石2 = CInt(MyArray灵魂石2(1))
// TracePrint X灵魂石&" 和 "&X灵魂石2
If X灵魂石 < 0 and X灵魂石2 < 0 and hwnd临时="" Then
Plugin.lxj_Plug.lxj_MessageD 3, "没有灵魂石,切换窗口", 参数3
Delay 100
For 4
Call Plugin.Media.Beep(523, 200)
Delay 200
Next
Delay 500
For 3
Call Plugin.Media.Beep(523, 200)
Delay 200
Next
Delay 500
//-----------------切换窗口---------
PauseThread (循环防掉线ID)
Delay 400
PauseThread (被交易ID)
Call Plugin.Window.Move(Hwnd4, 0, 350)//窗口4移动到3位置
Delay 1000
Call Plugin.Window.Move(Hwnd3, 565, 350)//窗口3移动到4位置
Delay 200
hwnd临时 = hwnd4
Delay 20
hwnd4 = hwnd3
Delay 20
hwnd3 = hwnd临时
Delay 200
ContinueThread (循环防掉线ID)
Delay 500
ContinueThread (被交易ID)
Delay 1500
Goto 重新判断暗色
//-----------------切换窗口---------
End If

ElseIf x暗色 > 0 and x传送 < 0 Then//有暗色但是没蓝
Call Plugin.Bkgnd.KeyPress(Hwnd3, 90)//按键盘Z回蓝
Delay int(2000 + 500 * rnd)

ElseIf X包裹 < 0 Then
Call Plugin.Bkgnd.KeyPress (hwnd3,66)//按B键打开包裹
Delay 100
End If
Delay 1000
Loop
End Sub //全局子线程



Sub 自动吸取

Delay 1500
Randomize
Do
If hwnd吸取<>"" Then
XY包裹=Plugin.Color.FindMutiColor(985,536,1107,681,"65686D","-2|1|737477,-2|2|282B2F,5|1|74777A",0.7)//包裹大图标
dim MyArray包裹
MyArray包裹 = Split(XY包裹, "|")
X包裹 = CInt(MyArray包裹(0)) : Y包裹 = CInt(MyArray包裹(1))

XY敌方血条=Plugin.Color.FindMutiColor(644,388,786,439,"0000CF","2|0|0000CF,2|2|000081,72|15|226622,72|16|1E591E,72|17|1E591E",0.8)
dim MyArray敌方血条
MyArray敌方血条 = Split(XY敌方血条, "|")
X敌方血条 = CInt(MyArray敌方血条(0)) : Y = CInt(MyArray敌方血条(1))

XY满灵魂石=Plugin.Color.FindMutiColor(985,536,1107,681,"C121AB","1|8|D30EE1,3|12|000000,3|16|065C75,7|16|00566F",0.7)
dim MyArray满灵魂石
MyArray满灵魂石 = Split(XY满灵魂石, "|")
X满灵魂石 = CInt(MyArray满灵魂石(0)) : Y满灵魂石 = CInt(MyArray满灵魂石(1))

// TracePrint "X包裹" & X包裹 & "X敌方血条" & X敌方血条 & " X满灵魂石" & X满灵魂石

If X敌方血条 < 0 and X包裹 > 0 and X满灵魂石 < 0 Then
Call Plugin.Bkgnd.KeyPress(hwnd吸取, 9)//tab键
ElseIf X包裹 < 0 Then
Call Plugin.Bkgnd.KeyPress(hwnd吸取, 66)//b
ElseIf X满灵魂石 > 0 Then
Plugin.lxj_Plug.lxj_MessageD 1, "吸取灵魂石已经满"
Delay 100
Call Plugin.Media.Beep(1046, 1600)
Delay 100
hwnd4 = hwnd吸取
Delay 100
hwnd吸取 = ""
ElseIf X敌方血条 > 0 and X包裹 > 0 and X满灵魂石 < 0 Then

Call Plugin.Bkgnd.KeyPress(hwnd吸取, 51)//3
Delay 3000
Do
XY敌方血条2=Plugin.Color.FindMutiColor(644,388,786,439,"0000B0","0|1|0000CF,1|2|0000BD",0.8)
dim MyArray敌方血条2
MyArray敌方血条2 = Split(XY敌方血条2, "|")
X敌方血条2 = CInt(MyArray敌方血条2(0)) : Y = CInt(MyArray敌方血条2(1))

XY吸读条=Plugin.Color.FindMutiColor(783,627,924,662,"009D00","1|0|009D00,3|0|009D00,5|1|009100",0.8)
dim MyArray吸读条
MyArray吸读条 = Split(XY吸读条, "|")
X吸读条 = CInt(MyArray吸读条(0)) : Y吸读条 = CInt(MyArray吸读条(1))
If X吸读条 < 0 and X敌方血条2 > 0 Then
Call Plugin.Bkgnd.KeyPress(hwnd吸取, 51)//3
For 10
Delay 500
Next
ElseIf X敌方血条2 < 0 Then
Delay 50
Exit Do
End If
Delay 500
Loop
End If
End If
Delay int(500+500*rnd)
Loop
End Sub




能帮我看看我的代码主要有什么不妥的地方吗,先不管简洁不简洁,我现在只要功能正常,不卡死就行

本主题由 超级版主 n15976906190 于 2020/5/24 11:38:38 执行 审核帖子 操作
2#

就是这个错误文本——————

Your program raised an exception and should be closed. Please email hi@vrbrothers.com and report the error message. Thanks!
由于突发异常导致软件关闭,请将以下错误报告发送到:hi@vrbrothers.com,谢谢!

同时请在邮件中回复以下内容,以便于我们分析原因:
1、请问错误发生时您(或脚本)正在进行什么操作?
2、是否在某个特定环境(比如特定脚本或游戏)中运行才会出现此错误?
3、此错误发生的频率如何?
4、如果方便请在附件上传您当时运行的脚本文件。

再次感谢!

=========================
mymacro 版本:2014.05.19469/1.0.0.18017
Environment = 1600x900|32|Windows 7 Ultimate
Type = 0xC0000005
Address = 0x750A86AA
LineNum = 434(699)

Registers:
EAX=00000002 EBX=00000010 ECX=0CD30DC1 EDX=00000000
ESI=0708C478 EDI=868B1B75 ESP=04F9FF04 EBP=04F9FF14

Current Modules:
Name = Runner.exe, Base = 0x400000, Top = 0xB46000, Size = 7626752
Name = ntdll.dll, Base = 0x77B50000, Top = 0x77CD0000, Size = 1572864
Name = kernel32.dll, Base = 0x76640000, Top = 0x76750000, Size = 1114112
Name = KERNELBASE.dll, Base = 0x763D0000, Top = 0x76417000, Size = 290816
Name = comctl32.dll, Base = 0x72B70000, Top = 0x72D0E000, Size = 1695744
Name = msvcrt.dll, Base = 0x77470000, Top = 0x7751C000, Size = 704512
Name = GDI32.dll, Base = 0x75310000, Top = 0x753A0000, Size = 589824
Name = USER32.dll, Base = 0x76F20000, Top = 0x77020000, Size = 1048576
Name = ADVAPI32.dll, Base = 0x77570000, Top = 0x77611000, Size = 659456
Name = sechost.dll, Base = 0x76A80000, Top = 0x76A99000, Size = 102400
Name = RPCRT4.dll, Base = 0x762E0000, Top = 0x763D0000, Size = 983040
Name = SspiCli.dll, Base = 0x75270000, Top = 0x752D0000, Size = 393216
Name = CRYPTBASE.dll, Base = 0x75260000, Top = 0x7526C000, Size = 49152
Name = LPK.dll, Base = 0x76F10000, Top = 0x76F1A000, Size = 40960
Name = USP10.dll, Base = 0x76AE0000, Top = 0x76B7D000, Size = 643072
Name = SHLWAPI.dll, Base = 0x764A0000, Top = 0x764F7000, Size = 356352
Name = IMM32.DLL, Base = 0x76B80000, Top = 0x76BE0000, Size = 393216
Name = MSCTF.dll, Base = 0x769A0000, Top = 0x76A6E000, Size = 843776
Name = winmm.dll, Base = 0x74D80000, Top = 0x74DB2000, Size = 204800
Name = MSIMG32.dll, Base = 0x73360000, Top = 0x73365000, Size = 20480
Name = COMDLG32.dll, Base = 0x76420000, Top = 0x7649B000, Size = 503808
Name = SHELL32.dll, Base = 0x753A0000, Top = 0x75FEC000, Size = 12894208
Name = WINSPOOL.DRV, Base = 0x73140000, Top = 0x73191000, Size = 331776
Name = ole32.dll, Base = 0x76BE0000, Top = 0x76D3F000, Size = 1437696
Name = OLEAUT32.dll, Base = 0x76510000, Top = 0x765A2000, Size = 598016
Name = oledlg.dll, Base = 0x75160000, Top = 0x7517C000, Size = 114688
Name = gdiplus.dll, Base = 0x74380000, Top = 0x74513000, Size = 1650688
Name = VERSION.dll, Base = 0x75190000, Top = 0x75199000, Size = 36864
Name = DINPUT8.dll, Base = 0x6B5B0000, Top = 0x6B5E0000, Size = 196608
Name = WININET.dll, Base = 0x77030000, Top = 0x77467000, Size = 4419584
Name = api-ms-win-downlevel-user32-l1-1-0.dll, Base = 0x76000000, Top = 0x76004000, Size = 16384
Name = api-ms-win-downlevel-shlwapi-l1-1-0.dll, Base = 0x76AA0000, Top = 0x76AA4000, Size = 16384
Name = api-ms-win-downlevel-version-l1-1-0.dll, Base = 0x76A70000, Top = 0x76A74000, Size = 16384
Name = api-ms-win-downlevel-normaliz-l1-1-0.dll, Base = 0x76D40000, Top = 0x76D43000, Size = 12288
Name = normaliz.DLL, Base = 0x76990000, Top = 0x76993000, Size = 12288
Name = iertutil.dll, Base = 0x76750000, Top = 0x76987000, Size = 2322432
Name = api-ms-win-downlevel-advapi32-l1-1-0.dll, Base = 0x76500000, Top = 0x76505000, Size = 20480
Name = USERENV.dll, Base = 0x76220000, Top = 0x76239000, Size = 102400
Name = profapi.dll, Base = 0x76010000, Top = 0x7601B000, Size = 45056
Name = OLEACC.dll, Base = 0x73BA0000, Top = 0x73BDC000, Size = 245760
Name = imagehlp.dll, Base = 0x752D0000, Top = 0x752FB000, Size = 176128
Name = UxTheme.dll, Base = 0x72FF0000, Top = 0x73070000, Size = 524288
Name = urlmon.dll, Base = 0x77620000, Top = 0x7776F000, Size = 1372160
Name = api-ms-win-downlevel-ole32-l1-1-0.dll, Base = 0x762D0000, Top = 0x762D4000, Size = 16384
Name = dwmapi.dll, Base = 0x72E00000, Top = 0x72E13000, Size = 77824
Name = CLBCatQ.DLL, Base = 0x765B0000, Top = 0x76633000, Size = 536576
==>
Name = msscript.ocx, Base = 0x750A0000, Top = 0x750BA000, Size = 106496
Name = dbghelp.dll, Base = 0x731A0000, Top = 0x7328B000, Size = 962560
Name = qdisp.dll, Base = 0x74590000, Top = 0x745E2000, Size = 335872
Name = vbscript.dll, Base = 0x73F50000, Top = 0x73FCD000, Size = 512000
Name = ieframe.dll, Base = 0x6C9C0000, Top = 0x6D6EC000, Size = 13811712
Name = api-ms-win-downlevel-shell32-l1-1-0.dll, Base = 0x75150000, Top = 0x75154000, Size = 16384
Name = WINHTTP.dll, Base = 0x71FC0000, Top = 0x72018000, Size = 360448
Name = webio.dll, Base = 0x71F70000, Top = 0x71FC0000, Size = 327680
Name = api-ms-win-downlevel-shlwapi-l2-1-0.dll, Base = 0x6BCC0000, Top = 0x6BCC4000, Size = 16384
Name = SXS.DLL, Base = 0x63F60000, Top = 0x63FBF000, Size = 389120
Name = cfgdll.dll, Base = 0x10000000, Top = 0x1000F000, Size = 61440
Name = HID.DLL, Base = 0x733D0000, Top = 0x733D9000, Size = 36864
Name = SETUPAPI.DLL, Base = 0x76080000, Top = 0x7621D000, Size = 1691648
Name = CFGMGR32.dll, Base = 0x76AB0000, Top = 0x76AD7000, Size = 159744
Name = DEVOBJ.dll, Base = 0x76EF0000, Top = 0x76F02000, Size = 73728
Name = WINTRUST.dll, Base = 0x76EC0000, Top = 0x76EEF000, Size = 192512
Name = CRYPT32.dll, Base = 0x76D50000, Top = 0x76E72000, Size = 1187840
Name = MSASN1.dll, Base = 0x75300000, Top = 0x7530C000, Size = 49152
Name = CRYPTSP.dll, Base = 0x74880000, Top = 0x74897000, Size = 94208
Name = rsaenh.dll, Base = 0x747C0000, Top = 0x747FB000, Size = 241664
Name = WindowsCodecs.dll, Base = 0x6F500000, Top = 0x6F631000, Size = 1249280
Name = WINDOW.dll, Base = 0x6100000, Top = 0x610D000, Size = 53248
Name = MFC42.DLL, Base = 0x74630000, Top = 0x7474C000, Size = 1163264
Name = ODBC32.dll, Base = 0x73A10000, Top = 0x73A9C000, Size = 573440
Name = MSVCP60.dll, Base = 0x74B40000, Top = 0x74BA6000, Size = 417792
Name = odbcint.dll, Base = 0x750C0000, Top = 0x750F8000, Size = 229376
Name = LXJ_PLUG.dll, Base = 0x11000000, Top = 0x11027000, Size = 159744
Name = MSVBVM60.DLL, Base = 0x4FEA0000, Top = 0x4FFFD000, Size = 1429504
Name = Secur32.dll, Base = 0x74CA0000, Top = 0x74CA8000, Size = 32768
Name = api-ms-win-downlevel-advapi32-l2-1-0.dll, Base = 0x6D6F0000, Top = 0x6D6F4000, Size = 16384
Name = WS2_32.dll, Base = 0x76E80000, Top = 0x76EB5000, Size = 217088
Name = NSI.dll, Base = 0x77020000, Top = 0x77026000, Size = 24576
Name = mswsock.dll, Base = 0x73B60000, Top = 0x73B9C000, Size = 245760
Name = PROPSYS.dll, Base = 0x72A70000, Top = 0x72B65000, Size = 1003520
Name = wship6.dll, Base = 0x72A40000, Top = 0x72A46000, Size = 24576
Name = IPHLPAPI.DLL, Base = 0x75060000, Top = 0x7507C000, Size = 114688
Name = WINNSI.DLL, Base = 0x75050000, Top = 0x75057000, Size = 28672
Name = apphelp.dll, Base = 0x72DB0000, Top = 0x72DFC000, Size = 311296
Name = ntmarta.dll, Base = 0x72A10000, Top = 0x72A31000, Size = 135168
Name = WLDAP32.dll, Base = 0x77520000, Top = 0x77565000, Size = 282624
Name = DNSAPI.dll, Base = 0x748A0000, Top = 0x748E4000, Size = 278528
Name = wshtcpip.dll, Base = 0x73E40000, Top = 0x73E45000, Size = 20480
Name = rasadhlp.dll, Base = 0x72D10000, Top = 0x72D16000, Size = 24576
Name = fwpuclnt.dll, Base = 0x72D20000, Top = 0x72D58000, Size = 229376
Name = COLOR.dll, Base = 0x7670000, Top = 0x7680000, Size = 65536
Name = BKGND.dll, Base = 0x7890000, Top = 0x78A7000, Size = 94208
Name = MSG.dll, Base = 0x76C0000, Top = 0x76CA000, Size = 40960

Code Before:
08 E8 07 FB FF FF 85 C0 74 7D 83 4D FC FF 57 8B 7E 18 EB 22
Current Code:
0B 9F F8 00 00 00 8B CF E8 36 FA FF FF 3B 45 FC 73 0A 8B CF

Call Stack:
750A87D9 ===> msscript.ocx

Current Stack:

3#

牛批

4#

回复 1楼piaoyuqi的帖子
  1. PID=Plugin.lxj_Plug.lxj_GetPidByPro("按键精灵2014.exe")
  2. TracePrint PID(1)
  3. PID=Plugin.lxj_Plug.lxj_GetPidByPro("Runner.exe")
  4. TracePrint PID(1)
复制代码
异常执行崩溃的错误汇总
  1. Dimenv hwnd1, hwnd2, hwnd3, hwnd4,hwnd吸取,决斗初始,交易初始,hwnd临时,ipid
  2. Global 找暗色ID, 窗口一二找鼠标码ID, 被交易ID,time1,循环防掉线ID
  3. Plugin.lxj_Plug.lxj_MessageD 1, "已启动自动飞机"
  4. Delay 200
  5. time1 = now//脚本启动时间
  6. hwnd临时=""//初始值为空的时候,才可以发生窗口三四自动互换
  7. 找暗色ID = BeginThread(第三窗口找暗色循环)'过多的多线程启动\开始\暂停 建议优化整体结构
  8. Delay 1000
  9. 循环防掉线ID = BeginThread(循环防掉线)
  10. Delay 1000
  11. 被交易ID = BeginThread(被交易)
  12. Delay 1000
  13. 自动吸取ID = BeginThread(自动吸取)
  14. Delay 1000
  15. If Form1.CheckBox4.Value = 1 Then
  16. 干扰ID = BeginThread(干扰模式)
  17. End If
  18. //--------------------------窗口一循环找亮色------------------
  19. Do
  20. Randomize
  21. Rem 重新判断亮色'建议改成DO/Loop死循环 需要退出的时候Exit Do
  22. XY亮1=Plugin.Color.FindMutiColor(16, 73,177, 217,"008F00","1|14|006800,2|7|00B600",0.8)//窗口一找亮色
  23. dim MyArray亮1'建议将Dim放置于DO外
  24. MyArray亮1 = Split(XY亮1, "|")
  25. X亮1 = CInt(MyArray亮1(0)) : Y亮1 = CInt(MyArray亮1(1))
  26. If x亮1 > 0 Then
  27. TracePrint "已找到亮色"
  28. PauseThread (窗口一二找鼠标码id )
  29. MoveTo int(x亮1 + 8 * rnd), int(y亮1 + 5 * rnd)
  30. Delay 20
  31. LeftClick 1
  32. Delay int(20 + 100 * rnd)//每隔120重新判断一下是否有边框
  33. XY边框亮=Plugin.Color.FindMutiColor(X亮1-31,Y亮1-15,X亮1+31,y亮1+15,"ADF7FF","-2|2|ADF7FF,0|15|ADF7FF",0.8)
  34. dim MyArray边框亮
  35. MyArray边框亮 = Split(XY边框亮, "|")
  36. X边框亮 = CInt(MyArray边框亮(0))
  37. If X边框亮 < 0 Then
  38. Goto 重新判断亮色
  39. End If
  40. ContinueThread (窗口一二找鼠标码id)
  41. Delay 200
  42. Call Plugin.Bkgnd.KeyPress(Hwnd1, 49)//窗口1按交易
  43. Delay 400
  44. Call Plugin.Bkgnd.KeyPress(Hwnd1, 49)//窗口1按交易
  45. Delay 20
  46. // 请重新输入金额id = BeginThread(请重新输入金额)
  47. PauseThread (被交易ID)
  48. Delay 20
  49. TracePrint "已启动找金饼绿色边框叉叉"
  50. Delay 20
  51. Call 找金饼绿色边框叉叉
  52. Delay 20
  53. // Rem 跳出全部查找
  54. // StopThread (请重新输入金额id)
  55. Delay 20
  56. ContinueThread (被交易ID)
  57. TracePrint "已结束找金饼绿色边框叉叉"
  58. Delay 500
  59. End If
  60. Delay int(500+500*rnd)
  61. Loop//主程序找亮色循环
  62. Sub 第三窗口找暗色循环
  63. TracePrint "开始找暗色循环"
  64. Randomize
  65. Rem 重新判断暗色
  66. Do
  67. XY暗色=Plugin.Color.FindMutiColor(13, 425,222, 580,"0B700B","0|-7|065709,7|7|0C450C",0.83)//小于0.8亮色和暗色分不清
  68. dim MyArray暗色//多点找暗色
  69. MyArray暗色 = Split(XY暗色, "|")
  70. X暗色 = CInt(MyArray暗色(0)) : Y暗色 = CInt(MyArray暗色(1))
  71. XY传送=Plugin.Color.FindMutiColor(27,683,512,728,"94326E","2|0|882F68,-1|3|080008,-1|-1|080008",0.7)//chuansong'找图/色/字/操作间应有延迟
  72. dim MyArray传送//找传送有蓝
  73. MyArray传送 = Split(XY传送, "|")
  74. X传送 = CInt(MyArray传送(0)) : Y传送 = CInt(MyArray传送(1))
  75. XY包裹=Plugin.Color.FindMutiColor(244,488,558,722,"65686D","-2|1|737477,-2|2|282B2F,5|1|74777A",0.8)//包裹大图标
  76. dim MyArray包裹
  77. MyArray包裹 = Split(XY包裹, "|")
  78. X包裹 = CInt(MyArray包裹(0)) : Y包裹 = CInt(MyArray包裹(1))
  79. XY灵魂石测试=Plugin.Color.FindMutiColor(147,440,556,715,"FFFFFF","1|1|FFE6FF,4|5|FF6DFF",0.7)//灵敏度0.9都能识别
  80. dim MyArray灵魂石测试
  81. MyArray灵魂石测试 = Split(XY灵魂石测试, "|")
  82. X灵魂石测试 = CInt(MyArray灵魂石测试(0)) : Y灵魂石测试 = CInt(MyArray灵魂石测试(1))
  83. If y暗色 > 0 and x传送 > 0 Then //有传送蓝也有暗色
  84. TracePrint "暗色y" & y暗色 & "传送图标" & x传送 & "包裹" & X包裹 & "灵魂石y" & Y灵魂石测试
  85. Call Plugin.Window.Active (hwnd3)
  86. Delay 50
  87. LockMouse
  88. MoveTo int(x暗色+4*rnd), int(y暗色+2*rnd)
  89. Delay int(20+20*rnd)
  90. LeftClick 1//选中暗色
  91. Delay 20
  92. LeftClickS 1
  93. Delay int(200 + 100 * rnd)
  94. XY边框暗=Plugin.Color.FindMutiColor(X暗色-31,Y暗色-15,X暗色+31,y暗色+15,"ADF7FF","-2|2|ADF7FF,0|15|ADF7FF",0.8)
  95. dim MyArray边框暗
  96. MyArray边框暗 = Split(XY边框暗, "|")
  97. X边框暗 = CInt(MyArray边框暗(0))
  98. If X边框暗 < 0 Then
  99. Delay 200
  100. Goto 重新判断暗色
  101. End If
  102. UnlockMouse
  103. Delay 50
  104. Call Plugin.Bkgnd.KeyPress(Hwnd3, 90)//拉人之前先Z,清空传送
  105. Delay int(1100 + 300 * rnd)
  106. //---------------------------拉人前判断等级--------------------
  107. XY等级1=Plugin.Color.FindMutiColor(194,405,208, 419,"006F88","0|2|006177,-1|1|020100,5|1|0D1211,1|1|091618,0|3|060B0C,0|-1|000E11,-1|0|000000",0.8)
  108. dim MyArray等级1
  109. MyArray等级1 = Split(XY等级1, "|")
  110. X等级1 = CInt(MyArray等级1(0)) : Y = CInt(MyArray等级1(1))
  111. XY等级20=Plugin.Color.FindMutiColor(194,405,208, 419,"004655","-1|3|005466,-1|2|000000,1|3|001114,3|0|003844,2|0|000000,3|3|005466,4|3|002A33,4|0|000000",0.8)
  112. dim MyArray等级20
  113. MyArray等级20 = Split(XY等级20, "|")
  114. X等级20 = CInt(MyArray等级20(0)) : Y等级20 = CInt(MyArray等级20(1))
  115. XY等级30=Plugin.Color.FindMutiColor(194,405,208, 419,"004655","0|1|005466,0|2|004655,-1|3|003844,3|0|003844,2|0|000000,4|3|002A33,1|2|001C22",0.9)
  116. dim MyArray等级30
  117. MyArray等级30 = Split(XY等级30, "|")
  118. X等级30 = CInt(MyArray等级30(0)): Y等级30 = CInt(MyArray等级30(1))
  119. TracePrint "等级1是" & X等级1 & " 等级20是" & Y等级20&" 等级30是" & Y等级30
  120. If X等级1 > 0 or X等级20 > 0 /* or X等级30>0*/ Then
  121. Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)//回车,移除
  122. Delay int(100+100*rnd)
  123. Call Plugin.Bkgnd.SendString(Hwnd3, "/移除")
  124. Delay int(150+150*rnd)
  125. Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)
  126. Delay 100
  127. Call Plugin.Media.Beep(880, 600)//3/4拍之后1/4拍
  128. Delay 100
  129. Call Plugin.Media.Beep(523, 200)
  130. Delay 200
  131. Goto 重新判断暗色
  132. End If
  133. //----------------------------------------------------------------
  134. Rem 重新拉
  135. Delay 100
  136. Call Plugin.Bkgnd.KeyPress(Hwnd3, 192)//按键"~"键开始传送门
  137. 传送次数 = 传送次数 + 1
  138. If Form1.CheckBox1.Value = 1 Then
  139. Call Plugin.Msg.Tips("这是第" & 传送次数 & "次传送")
  140. End If
  141. Form1.CheckBox1.Caption = "是否显示传送次数,当前是第" & 传送次数 & "次"
  142. 窗口一二找鼠标码id = BeginThread (窗口一二找鼠标码)
  143. //-------------------拉人时判断白色边框----------------
  144. for 28 //循环判断白色边框,24次*0.5秒=15秒,时间如果太短,有可能第二个窗口在暂停线程后继续线程,已经提前结束了
  145. XY白框=Plugin.Color.FindMutiColor(10,422,106,558,"A7EEF6","1|1|054F05,2|6|0B6B0B,2|15|ADF7FF,31|15|ABF2FA,31|2|ADF7FF",0.8)
  146. dim MyArray白框
  147. MyArray白框 = Split(XY白框, "|")
  148. X白框 = CInt(MyArray白框(0)) : Y白框 = CInt(MyArray白框(1))
  149. If X白框 < 0 Then
  150. Delay 500 * rnd
  151. StopThread (窗口一二找鼠标码ID)
  152. Call Plugin.Bkgnd.KeyPress(hwnd3, 32)//没白色边框就跳,避免继续拉人浪费石头
  153. Goto 重新判断暗色
  154. End If
  155. Delay 500
  156. Next
  157. StopThread (窗口一二找鼠标码id)
  158. //---------------------------------------------拉人读条判断---------------
  159. For 10
  160. Delay 500//14+5秒之后判断
  161. Next
  162. XY拉人读条=Plugin.Color.FindMutiColor(222, 601,355, 662,"00C800","1|-1|00C700,1|0|00C800",0.8)
  163. dim MyArray拉人读条
  164. MyArray拉人读条 = Split(XY拉人读条, "|")
  165. X拉人读条 = CInt(MyArray拉人读条(0)): Y拉人读条 = CInt(MyArray拉人读条(1))
  166. If x拉人读条 > 0 Then
  167. Delay 50
  168. TracePrint "拉人失败,重新拉"
  169. Delay 20
  170. Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)//回车
  171. Delay int(100+100*rnd)
  172. Call Plugin.Bkgnd.SendString(Hwnd3, "/ra 抱歉,重新拉" )
  173. Delay int(150+450*rnd)
  174. Call Plugin.Bkgnd.KeyPress(Hwnd3, 13)
  175. Delay 200
  176. Goto 重新拉
  177. End If
  178. //----------------------------------每次拉人后打开包裹查看灵魂石有无------------------
  179. Delay 100
  180. Call Plugin.Window.Active(hwnd3)
  181. Delay 200
  182. Call Plugin.Bkgnd.KeyPress (hwnd3,66)//b
  183. Delay 400+500*rnd
  184. XY灵魂石=Plugin.Color.FindMutiColor(147,440,556,715,"FFFFFF","1|1|FFE6FF,4|5|FF6DFF",0.5)
  185. dim MyArray灵魂石
  186. MyArray灵魂石 = Split(XY灵魂石, "|")
  187. X灵魂石 = CInt(MyArray灵魂石(0)) : Y灵魂石 = CInt(MyArray灵魂石(1))
  188. Call Plugin.Bkgnd.KeyPress (hwnd3,66)//b
  189. Delay 400+500*rnd
  190. XY灵魂石2=Plugin.Color.FindMutiColor(147,440,556,715,"FFFFFF","1|1|FFE6FF,4|5|FF6DFF",0.5)
  191. dim MyArray灵魂石2
  192. MyArray灵魂石2 = Split(XY灵魂石2, "|")
  193. X灵魂石2 = CInt(MyArray灵魂石2(0)) : Y灵魂石2 = CInt(MyArray灵魂石2(1))
  194. // TracePrint X灵魂石&" 和 "&X灵魂石2
  195. If X灵魂石 < 0 and X灵魂石2 < 0 and hwnd临时="" Then
  196. Plugin.lxj_Plug.lxj_MessageD 3, "没有灵魂石,切换窗口", 参数3
  197. Delay 100
  198. For 4
  199. Call Plugin.Media.Beep(523, 200)
  200. Delay 200
  201. Next
  202. Delay 500
  203. For 3
  204. Call Plugin.Media.Beep(523, 200)
  205. Delay 200
  206. Next
  207. Delay 500
  208. //-----------------切换窗口---------
  209. PauseThread (循环防掉线ID)
  210. Delay 400
  211. PauseThread (被交易ID)
  212. Call Plugin.Window.Move(Hwnd4, 0, 350)//窗口4移动到3位置
  213. Delay 1000
  214. Call Plugin.Window.Move(Hwnd3, 565, 350)//窗口3移动到4位置
  215. Delay 200
  216. hwnd临时 = hwnd4
  217. Delay 20
  218. hwnd4 = hwnd3
  219. Delay 20
  220. hwnd3 = hwnd临时
  221. Delay 200
  222. ContinueThread (循环防掉线ID)
  223. Delay 500
  224. ContinueThread (被交易ID)
  225. Delay 1500
  226. Goto 重新判断暗色
  227. //-----------------切换窗口---------
  228. End If
  229. ElseIf x暗色 > 0 and x传送 < 0 Then//有暗色但是没蓝
  230. Call Plugin.Bkgnd.KeyPress(Hwnd3, 90)//按键盘Z回蓝
  231. Delay int(2000 + 500 * rnd)
  232. ElseIf X包裹 < 0 Then
  233. Call Plugin.Bkgnd.KeyPress (hwnd3,66)//按B键打开包裹
  234. Delay 100
  235. End If
  236. Delay 1000
  237. Loop
  238. End Sub //全局子线程
  239. Sub 自动吸取
  240. Delay 1500
  241. Randomize
  242. Do
  243. If hwnd吸取<>"" Then
  244. XY包裹=Plugin.Color.FindMutiColor(985,536,1107,681,"65686D","-2|1|737477,-2|2|282B2F,5|1|74777A",0.7)//包裹大图标
  245. dim MyArray包裹
  246. MyArray包裹 = Split(XY包裹, "|")
  247. X包裹 = CInt(MyArray包裹(0)) : Y包裹 = CInt(MyArray包裹(1))
  248. XY敌方血条=Plugin.Color.FindMutiColor(644,388,786,439,"0000CF","2|0|0000CF,2|2|000081,72|15|226622,72|16|1E591E,72|17|1E591E",0.8)
  249. dim MyArray敌方血条
  250. MyArray敌方血条 = Split(XY敌方血条, "|")
  251. X敌方血条 = CInt(MyArray敌方血条(0)) : Y = CInt(MyArray敌方血条(1))
  252. XY满灵魂石=Plugin.Color.FindMutiColor(985,536,1107,681,"C121AB","1|8|D30EE1,3|12|000000,3|16|065C75,7|16|00566F",0.7)
  253. dim MyArray满灵魂石
  254. MyArray满灵魂石 = Split(XY满灵魂石, "|")
  255. X满灵魂石 = CInt(MyArray满灵魂石(0)) : Y满灵魂石 = CInt(MyArray满灵魂石(1))
  256. // TracePrint "X包裹" & X包裹 & "X敌方血条" & X敌方血条 & " X满灵魂石" & X满灵魂石
  257. If X敌方血条 < 0 and X包裹 > 0 and X满灵魂石 < 0 Then
  258. Call Plugin.Bkgnd.KeyPress(hwnd吸取, 9)//tab键
  259. ElseIf X包裹 < 0 Then
  260. Call Plugin.Bkgnd.KeyPress(hwnd吸取, 66)//b
  261. ElseIf X满灵魂石 > 0 Then
  262. Plugin.lxj_Plug.lxj_MessageD 1, "吸取灵魂石已经满"
  263. Delay 100
  264. Call Plugin.Media.Beep(1046, 1600)
  265. Delay 100
  266. hwnd4 = hwnd吸取
  267. Delay 100
  268. hwnd吸取 = ""
  269. ElseIf X敌方血条 > 0 and X包裹 > 0 and X满灵魂石 < 0 Then
  270. Call Plugin.Bkgnd.KeyPress(hwnd吸取, 51)//3
  271. Delay 3000
  272. Do
  273. XY敌方血条2=Plugin.Color.FindMutiColor(644,388,786,439,"0000B0","0|1|0000CF,1|2|0000BD",0.8)
  274. dim MyArray敌方血条2
  275. MyArray敌方血条2 = Split(XY敌方血条2, "|")
  276. X敌方血条2 = CInt(MyArray敌方血条2(0)) : Y = CInt(MyArray敌方血条2(1))
  277. XY吸读条=Plugin.Color.FindMutiColor(783,627,924,662,"009D00","1|0|009D00,3|0|009D00,5|1|009100",0.8)
  278. dim MyArray吸读条
  279. MyArray吸读条 = Split(XY吸读条, "|")
  280. X吸读条 = CInt(MyArray吸读条(0)) : Y吸读条 = CInt(MyArray吸读条(1))
  281. If X吸读条 < 0 and X敌方血条2 > 0 Then
  282. Call Plugin.Bkgnd.KeyPress(hwnd吸取, 51)//3
  283. For 10
  284. Delay 500
  285. Next
  286. ElseIf X敌方血条2 < 0 Then
  287. Delay 50
  288. Exit Do
  289. End If
  290. Delay 500
  291. Loop
  292. End If
  293. End If
  294. Delay int(500+500*rnd)
  295. Loop
  296. End Sub
复制代码

收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
5#

回复 2楼piaoyuqi的帖子

注:你好 软件问题请联系按键精灵企业QQ800082496反馈

收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
6#

回复 4楼n15976906190的帖子

谢谢版主的指点,我把整个代码重新梳理了下,把所有dim都放在了do前,然后也成功释放了runner的内存,可惜问题依然存在,而且出现错误的时间间隔跟之前差不多,一点都没有见好转....可见不是代码逻辑的问题.

之前百度到了一个帖子,说是懒人插件的GetDiskSN 和GetCPUSN两条命令造成了跳出script control然后脚本强制退出,我的问题也是这样,只是有时候跳出的是script control,有时候跳出来得是记事本error,然后脚本强制退出.但是我并没有用到懒人的这两条命令,我只用了懒人的release和查找PID和弹窗延时3个功能.

有没有可能是懒人插件的问题呢?我明天把懒人的所有插件都注释一下,然后再调试看看有没有用

7#

回复 5楼n15976906190的帖子

已找到问题了,是懒人插件弹窗延时命令的问题.

这个问题关乎到按键长期健康发展,因为它是在代码并不复杂的情况下导致按键直接崩溃,影响太大了!希望工程师核实.

反正,百分百是懒人插件问题,百分90是弹窗延时命令,百分10是懒人其他命令,所导致的按键崩溃。

目前我脚本已经运行了一天一夜也没再崩溃过,之前最快几分钟就崩溃,从没超过3小时不崩溃的。

发新话题 回复该主题