多线程闪退,求分析原因,从哪入手

蔡老三 · 发表于 2014-3-3 23:18:31

[e]
.版本 2
.支持库 EThread
.支持库 spec

.程序集窗口程序集1
.程序集变量线程池, 类_线程池
.程序集变量句柄, 整数型
.程序集变量任务数, 整数型
.程序集变量 cookies, 文本型

.子程序 _按钮1_被单击
.局部变量 i, 整数型

线程池.启动 (10, &采集一下)
句柄＝创建进入许可证 ()
任务数＝ 500000

.计次循环首 (任务数, i)
线程池.加入工作 (i)
处理事件 ()

.计次循环尾 ()

.子程序加好友
.参数参数, 整数型, ,
.局部变量返回文本, 文本型
.局部变量 id, 文本型, , , 32000

进入许可区 (句柄)
id ＝到文本 (1000000000 ＋到数值 (编辑框1.内容) ＋参数)
退出许可区 (句柄)

返回文本＝到文本 (网页_访问 (“http://)

标签1.标题＝ “己发送:” ＋到文本 (参数＋到数值 (编辑框1.内容))

写配置项 (取运行目录 () ＋ “\己发送.ini”, “配置”, “最后发送数:”, 标签1.标题)
调试输出 (返回文本)

.子程序登录
.局部变量返回源码, 文本型

网页_访问 (“http://***)

返回源码＝到文本 (网页_访问 (“http://))
调试输出 (“登录成功”)

.子程序发包

' 调试输出 (到文本 (网页_访问 (“http:// ***时间_取现行时间戳 () ＋ “&_=” ＋时间_取现行时间戳 ())))

[/e]

这样的一个简单程序, 运行一二分钟就闪退了,怎么回事,哪儿有问题

KTVirus · 发表于 2014-3-3 23:18:32

也许是因为没有初始化com库的原因，你可以试试。
首先插入如下2条DLL命令
[e]
.版本 2

.DLL命令 CoInitialize, , "ole32.dll", "CoInitialize", 公开, 加载COM
.参数 pvReserved, 整数型, , 值为0

.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize", 公开, 卸载COM

[/e]

然后，在线程开始的时候，调用

[e]
’初始化com库
CoInitialize (0)
[/e]

在线程结束的时候，调用
[e]
’取消com库
CoUninitialize ()
[/e]