[本人记录]dom_运行Js 修复第二次运行闪退

噌经滴承诺

今天弄JS，易语言运行和IE运行结果不一样

在论坛下了个大神的 dom_运行Js() 源码

发现第二次运行程序闪退

修复了一下

子程序已添加到 ”易语言助手“

  

子程序名	返回值类型	公开	备 注
dom_运行Js	文本型		精易论坛看到，改了个地方，修复第二次软件程序闪退
参数名	类 型	参考	可空	数组	备 注
js_	文本型
方式_	整数型				0.执行 1.加载 2.清除

变量名	类 型	静态	数组	备 注
hwin_	对象
dom_	对象
obj	对象
tmp	文本型

线程_初始化COM库 ()
如果真 (dom_.是否为空 ())
dom_.创建 (“{25336920-03F9-11CF-8FD0-00AA00686F13}”, )
dom_.方法 (“write”, “”)
hwin_ ＝ dom_.读对象型属性 (“ParentWindow”, )
如果真 (方式_ ＝ 1)
hwin_.方法 (“execScript”, js_)
返回 (“”)
如果真 (方式_ ＝ 2)
dom_.清除 ()
hwin_.清除 ()
返回 (“”)
dom_.读对象型属性 (“body”, ).方法 (“insertAdjacentHTML”, “BeforeEnd”, “”)
tmp ＝ “document.all.retjs.innerText=” ＋ js_
hwin_.方法 (“execScript”, tmp)
obj ＝ dom_.读对象型属性 (“getElementById”, “retjs”)
tmp ＝ obj.读文本属性 (“innerText”, )
obj.写属性 (“outerHTML”, “”)
obj.清除 ()
hwin_.清除 ()
dom_.清除 ()
线程_取消COM库 ()
返回 (tmp)

.版本 2<br /> <br /> .子程序 dom_运行Js, 文本型, , 精易论坛看到，改了个地方，修复第二次软件程序闪退<br /> .参数 js_, 文本型, 可空<br /> .参数 方式_, 整数型, 可空, 0.执行 1.加载 2.清除<br /> .局部变量 hwin_, 对象, 静态<br /> .局部变量 dom_, 对象, 静态<br /> .局部变量 obj, 对象<br /> .局部变量 tmp, 文本型<br /> <br /> <br /> 线程_初始化COM库 ()<br /> <br /> .如果真 (dom_.是否为空 ())<br />     dom_.创建 (“{25336920-03F9-11CF-8FD0-00AA00686F13}”, )<br />     dom_.方法 (“write”, “”)<br />     hwin_ ＝ dom_.读对象型属性 (“ParentWindow”, )<br /> .如果真结束<br /> .如果真 (方式_ ＝ 1)<br />     hwin_.方法 (“execScript”, js_)<br />     返回 (“”)<br /> .如果真结束<br /> .如果真 (方式_ ＝ 2)<br />     dom_.清除 ()<br />     hwin_.清除 ()<br />     返回 (“”)<br /> .如果真结束<br /> dom_.读对象型属性 (“body”, ).方法 (“insertAdjacentHTML”, “BeforeEnd”, “”)<br /> tmp ＝ “document.all.retjs.innerText=” ＋ js_<br /> <br /> hwin_.方法 (“execScript”, tmp)<br /> obj ＝ dom_.读对象型属性 (“getElementById”, “retjs”)<br /> tmp ＝ obj.读文本属性 (“innerText”, )<br /> <br /> obj.写属性 (“outerHTML”, “”)<br /> obj.清除 ()<br /> hwin_.清除 ()<br /> dom_.清除 ()<br /> <br /> 线程_取消COM库 ()<br /> <br /> 返回 (tmp)

hwin_.清除 ()
dom_.清除 ()

加了上面两个代码就完美解决！

不知道是不是我刚刚几个线程要加密的原因，有一个是大数据，还是会蹦，加了个CPU亲和性，就好了 http://bbs.125.la/forum.php?mod= ... rtype=1#pid11471579 加在程序第一行

[size=0.83em]QQ截图20170621124411.jpg (35.2 KB, 下载次数: 0)
下载附件  [url=]保存到相册[/url]

[color=rgb(153, 153, 153) !important]半小时前 上传

这里论坛和谐了，，，，，去 有易语言助手的，直接在易语言输入就可以出来了！

kentfung

最怕就是无故崩溃

f123456123

行Js 修复第二次运行闪退 [[url=]修[/url]

529512527

支持一下谢谢

jjjhu

看看咯

qiuyingjia

可以的，支持

网络注册会员

顶一下我顶一下

futiem

易语言助手“

2605396688

来学习一下。。

噌经滴承诺

不知道是不是我刚刚几个线程要加密的原因，有一个是大数据，还是会蹦，加了个CPU亲和性，就好了

http://bbs.125.la/forum.php?mod=viewthread&tid=13848510&page=1&ordertype=1#pid11471579

加在程序第一行