程序报错，取错误信息并上传

外星人群控

程序中数组变量多了，难免马虎，出现数组下标超出范围的事情。这肯定是由于调用数组的时候，判断不严谨。
之前以为出现这种错误，程序就会停止运行了。
无意中才发现，在另一条线程中的子程序还在正常运行。就想到了取窗口错误信息并上传了，当然上传完可以自动重启。
进入测试

用精益助手查看窗口信息，提示数组错误的窗口是这个信息。
如果有其他的报错信息，大家可以把截图发出来。大家一起收集一下。

然后就可以循环窗口控件的内容，我们一般只取标签的内容。
按钮的标题就不取了，无非就是 确定 取消 忽略 重试 等。
测试代码

源码中有详细注释，如果对你有所帮助和启发，请帮忙给个好评。
测试代码.e (677.71 KB, 下载次数: 30)

2018-7-15 10:24 上传

点击文件名下载附件

阳光男人

@puti 不知道刚刚为啥艾特失败

阳光男人

@puti      你的代码还有一个BUG，只要是易语言编写的程序弹出错误窗口都会检测到，只要窗口标题为“错误”基本都会检测到，我改了一下只会检测自身进程的还加了一个可以弹出自己的错误窗口，不会检测到其他的，还有一个问题，信息框标题为错误也会检测到
https://lanzoux.com/i1hio8d（不知道为什么在论坛上上传失败，所以外链分享吧）

阳光男人

易语言5.8版本的错误信息已经能获取到错误代码的位置

阳光男人

@puti 我加了一些代码，在获取到错误内容后可以发送到邮箱内，并且软件过程中关闭不了错误窗口，直到软件代码执行完才能关闭（通过精易模块命令完成的），另外易语言5.8错误信息已经能定位到错误代码的位置

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
句柄_错误窗口	整数型
集_错误信息	文本型

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

' 线程_启动 (&监控错误, , )

子程序名	返回值类型	公开	备 注
_按钮_出现错误_被单击

变量名	类 型	静态	数组	备 注
A数组	整数型		0	空数组

调试输出 (A数组 [1])

子程序名	返回值类型	公开	备 注
_按钮_启动线程监控_被单击			如果有朋友能监控到是哪个子程序错误或者哪个命令错误的，希望能@我，先谢谢了

' 方便演示，启动监控就放在了按钮下。实际运用的时候，最好是放在窗口创建完成里面
线程_启动 (&监控错误, , )

子程序名	返回值类型	公开	备 注
监控错误

变量名	类 型	静态	数组	备 注
句柄_子窗口	整数型

' win10 64位环境中，用精益模块的枚举子窗口命令，取句柄数组失败，不知是何原因，就直接用了API。
判断循环首 (真)
' 只测数组下标超出范围的错误窗口，没测其他崩溃原因的窗口
句柄_错误窗口 ＝ 窗口_取句柄 (, , “#32770”, “错误”)
如果真 (句柄_错误窗口 ≠ 0)
调试输出 (“出现错误窗口”, 句柄_错误窗口)
' 调用精易模块里的命令，这样可以让错误窗口不能关闭等操作结束完后再关闭
窗口_锁住解锁 (句柄_错误窗口, 真)
窗口_禁止关闭 (句柄_错误窗口, 真)
' 实际测试中，窗口需要载入完成，才能取出错误信息
判断循环首 (窗口_是否可见 (句柄_错误窗口) ＝ 假)
程序_延时 (500)
判断循环尾 ()
' 遍历错误窗口的标签标题,类名是Static,按钮的标题就不取了，无非就是 确定 取消 忽略 重试 等。
句柄_子窗口 ＝ FindWindowEx (句柄_错误窗口, 0, “Static”, 字符 (0))
判断循环首 (句柄_子窗口 ≠ 0)
集_错误信息 ＝ 集_错误信息 ＋ “--” ＋ 取窗口标题 (句柄_子窗口)
句柄_子窗口 ＝ FindWindowEx (句柄_错误窗口, 句柄_子窗口, “Static”, 字符 (0))
判断循环尾 ()
线程_启动 (&上传错误信息)
返回 ()

' 程序_延时 (200) '在实际项目中，最好加延时，测试的时候就不加了
判断循环尾 ()

子程序名	返回值类型	公开	备 注
上传错误信息

' 将错误信息发到邮箱里更加方便修复程序BUG
邮箱发信上传错误信息 ()
调试输出 (集_错误信息)
调试输出 (“上传错误信息成功”)
调试输出 (“自动重启程序”)
窗口_锁住解锁 (句柄_错误窗口, 假)
窗口_禁止关闭 (句柄_错误窗口, 假)

子程序名	返回值类型	公开	备 注
邮箱发信上传错误信息

' 我用的是tom邮箱所以这里我测试的服务器是tom邮箱的，自己根据自己的实际情况修改
连接发信服务器 (“smtp.tom.com”, 25, “邮箱账号”, “邮箱密码”, 2000)
延迟 (1000)
发送邮件 (“邮件主题”, 集_错误信息, “收件人邮箱”, , , “发件人邮箱”, )
延迟 (500)

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库
internet	互联网支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eAPI<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 句柄_错误窗口, 整数型<br /> .程序集变量 集_错误信息, 文本型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> ' 线程_启动 (&监控错误, , )<br /> <br /> .子程序 _按钮_出现错误_被单击<br /> .局部变量 A数组, 整数型, , "0", 空数组<br /> <br /> 调试输出 (A数组 [1])<br /> <br /> .子程序 _按钮_启动线程监控_被单击, , , 如果有朋友能监控到是哪个子程序错误或者哪个命令错误的，希望能@我，先谢谢了<br /> <br /> ' 方便演示，启动监控就放在了按钮下。实际运用的时候，最好是放在窗口创建完成里面<br /> 线程_启动 (&监控错误, , )<br /> <br /> .子程序 监控错误<br /> .局部变量 句柄_子窗口, 整数型<br /> <br /> ' win10 64位环境中，用精益模块的枚举子窗口命令，取句柄数组失败，不知是何原因，就直接用了API。<br /> .判断循环首 (真)<br />     ' 只测数组下标超出范围的错误窗口，没测其他崩溃原因的窗口<br />     句柄_错误窗口 ＝ 窗口_取句柄 (, , “#32770”, “错误”)<br />     .如果真 (句柄_错误窗口 ≠ 0)<br />         调试输出 (“出现错误窗口”, 句柄_错误窗口)<br />         ' 调用精易模块里的命令，这样可以让错误窗口不能关闭等操作结束完后再关闭<br />         窗口_锁住解锁 (句柄_错误窗口, 真)<br />         窗口_禁止关闭 (句柄_错误窗口, 真)<br />         ' 实际测试中，窗口需要载入完成，才能取出错误信息<br />         .判断循环首 (窗口_是否可见 (句柄_错误窗口) ＝ 假)<br />             程序_延时 (500)<br />         .判断循环尾 ()<br />         ' 遍历错误窗口的标签标题,类名是Static,按钮的标题就不取了，无非就是 确定 取消 忽略 重试 等。<br />         句柄_子窗口 ＝ FindWindowEx (句柄_错误窗口, 0, “Static”, 字符 (0))<br />         .判断循环首 (句柄_子窗口 ≠ 0)<br />             集_错误信息 ＝ 集_错误信息 ＋ “--” ＋ 取窗口标题 (句柄_子窗口)<br />             句柄_子窗口 ＝ FindWindowEx (句柄_错误窗口, 句柄_子窗口, “Static”, 字符 (0))<br />         .判断循环尾 ()<br />         线程_启动 (&上传错误信息)<br />         返回 ()<br />     .如果真结束<br /> <br />     ' 程序_延时 (200) '在实际项目中，最好加延时，测试的时候就不加了<br /> .判断循环尾 ()<br /> <br /> .子程序 上传错误信息<br /> <br /> ' 将错误信息发到邮箱里更加方便修复程序BUG<br /> 邮箱发信上传错误信息 ()<br /> <br /> 调试输出 (集_错误信息)<br /> 调试输出 (“上传错误信息成功”)<br /> 调试输出 (“自动重启程序”)<br /> <br /> 窗口_锁住解锁 (句柄_错误窗口, 假)<br /> 窗口_禁止关闭 (句柄_错误窗口, 假)<br /> <br /> <br /> .子程序 邮箱发信上传错误信息<br /> <br /> ' 我用的是tom邮箱所以这里我测试的服务器是tom邮箱的，自己根据自己的实际情况修改<br /> 连接发信服务器 (“smtp.tom.com”, 25, “邮箱账号”, “邮箱密码”, 2000)<br /> <br /> 延迟 (1000)<br /> <br /> 发送邮件 (“邮件主题”, 集_错误信息, “收件人邮箱”, , , “发件人邮箱”, )<br /> <br /> 延迟 (500)

2446789312

奉上小小红包希望笑纳

dulang

补一个源码

dulang

puti 发表于 2018-7-15 11:20
这个只能知道出现了错误，但是不知道错误的信息，有点鸡肋

调用格式： 〈无返回值〉 置错误提示管理 （［子程序指针 用作进行错误提示的子程序］） - 系统核心支持库->其他
    英文名称：SetErrorManger
    本命令用来设置当运行时如果产生了导致程序崩溃的严重错误时用来对该错误进行详细提示的子程序地址，如果未进行此项设置，发生严重错误时运行时环境将自动提示该错误的详细信息并直接退出。本命令为高级命令。
    参数<1>的名称为“用作进行错误提示的子程序”，类型为“子程序指针（SubPtr）”，可以被省略。注意该子程序必须接收两个参数，第一个参数为整数型，用作接收错误代码，第二个参数为文本型，用作接收详细错误文本。同时该子程序必须返回一个逻辑值，返回真表示已经自行处理完毕，系统将不再显示该错误信息，返回假表示由系统来继续显示该错误信息。以上设置必须完全正确，否则结果不能预测，另外，还请注意以下几点： 1、该错误提示子程序不要再引发新的错误； 2、在进入该错误提示子程序后，系统将自动关闭事件消息通知处理机制，也就是说任何事件将无法得到响应； 3、无论如何，当该子程序调用退出后，系统将自动将整个应用程序关闭。  如果省略本参数，系统将恢复错误提示的默认处理方式。
补个源码：
1.e (2.44 KB, 下载次数: 3)

2018-7-17 10:52 上传

点击文件名下载附件

1042092995

管用，厉害了，hhh

努力赚钱的猪

这个好。给力

外星人群控

Aishanginfo 发表于 2018-7-15 10:37
易语言自带一个命令叫：置错误提示管理 ()  程序出错的时候会回调子程序传入错误信息！这个会更简单方便！

这个只能知道出现了错误，但是不知道错误的信息，有点鸡肋