求一个新版exui浏览框绑定JS回调例子

z13228604287

exui浏览框  调用 JS  名  传入参   返回  结果

LEOONL

https://bbs.125.la/forum.php?mod ... highlight=exui%2BJS

z13228604287

LEOONL 发表于 2024-11-15 21:17
https://bbs.125.la/forum.php?mod=viewthread&tid=14396247&highlight=exui%2BJS

不行了  都打不开了  exui  老版本了

z13228604287

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口			@SuperLiii.com

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

' 调试输出 (_浏览框EX1_URL取参数 (“http://127.0.0.1:8888/asd/aaa.html?mod=1&id=asdasd2”, “id”, , ))
浏览框EX1 ＝ _浏览框EX1_本地到网络路径 (取运行目录 () ＋ “\index.html”)  '

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

浏览框EX1.移动 (20, 45, 取用户区宽度 () － 20 × 2, 取用户区高度 () － 45 － 21)

子程序名	返回值类型	公开	备 注
_浏览框EX1_url改变
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
网页url	整数型

调试输出 (“[_浏览框EX1_url改变]”, 句柄, 编码_utf8到gb2312 (浏览框EX_从指针取文本 (网页url)))

子程序名	返回值类型	公开	备 注
_浏览框EX1_标题改变
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
网页标题	整数型

变量名	类 型	静态	数组	备 注
标题文本	文本型
MOD	文本型
TYPE	文本型
ID	文本型

标题文本 ＝ 编码_utf8到gb2312 (浏览框EX_从指针取文本 (网页标题))
如果真 (标题文本 ＝ “0”)
返回 ()

调试输出 (“[_浏览框EX1_标题改变]”, 句柄, 标题文本)
' 这是通过改变网页标题的方式激活易语言方法
MOD ＝ _浏览框EX1_URL取参数 (标题文本, “MOD”, , )
如果真 (MOD ＝ “CallE”)
TYPE ＝ _浏览框EX1_URL取参数 (标题文本, “TYPE”, , )
如果真 (TYPE ＝ “MESSAGEBOX”)
CALLE_MESSAGEBOX (_浏览框EX1_URL取参数 (标题文本, “DATA_TITLE”, , ), _浏览框EX1_URL取参数 (标题文本, “DATA_MESSAGE”, , ))
如果真 (TYPE ＝ “NowTime”)
CALLE_NowTime (_浏览框EX1_URL取参数 (标题文本, “DATA_TIME”, , ))


' 为了防止 网页修改标题为相同的时候 不能反复激活此事件的问题 这里将标题重置为空
启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
_浏览框EX1_本地到网络路径	文本型
参数名	类 型	参考	可空	数组	备 注
本地路径	文本型

返回 (“file:///” ＋ 编码_URL编码 (本地路径, 真, 假))

子程序名	返回值类型	公开	备 注
子程序1			为了防止网页修改标题为相同的时候不能反复激活此事件的问题,这里将标题重置为空,注意:此方法必须在新线程里使用,否则会重复激活2次方法.自身的BUG管不了管不了~~

' 延时 (10)
浏览框EX1.备用2 (“document.title='0'”, )

子程序名	返回值类型	公开	备 注
CALLE_NowTime
参数名	类 型	参考	可空	数组	备 注
时间	文本型

调试输出 (“[CALLE_NowTime]”, 时间)

子程序名	返回值类型	公开	备 注
CALLE_MESSAGEBOX
参数名	类 型	参考	可空	数组	备 注
显示标题	文本型
显示消息	文本型

信息框 (显示消息, 0, 显示标题, _启动窗口)

子程序名	返回值类型	公开	备 注
_按钮EX1_左键单击

浏览框EX1 ＝ “127.0.0.1:81/testlib/index.html”  '

子程序名	返回值类型	公开	备 注
_按钮EX2_左键单击

浏览框EX1.备用2 (“document.getElementById('btn3').innerHTML='哎呦呦~这个DIV被易语言承包了!'”, )

子程序名	返回值类型	公开	备 注
_按钮EX3_左键单击

' 这个方法只能返回一个字节...
' 第二个参数不知道干嘛的,没试...猜测应该是参数提交什么的吧...
调试输出 (“[_按钮EX3_左键单击]”, 到文本 (浏览框EX1.备用2 (“ejs_return();”, )))

子程序名	返回值类型	公开	备 注
_按钮EX4_左键单击			这个方法没整明白....不好用!

' 注册JS函数回调 (“call_e”, 到整数 (&JS回调_EJS), 1, 假)
浏览框EX1.备用4 (“call_e”, 到整数 (&JS回调_EJS), 1, 假)

子程序名	返回值类型	公开	备 注
JS回调_EJS
参数名	类 型	参考	可空	数组	备 注
参数1	文本型

调试输出 (“[JS回调_EJS]”, 参数1)

子程序名	返回值类型	公开	备 注
_按钮EX5_左键单击

浏览框EX1.备用2 (“ejs_return2();”, )

子程序名	返回值类型	公开	备 注
_浏览框EX1_URL取参数	文本型		从URL获取参数
参数名	类 型	参考	可空	数组	备 注
全部参数文本	文本型
欲取出的参数名	文本型
忽略大小写	逻辑型				可空,默认为真
默认返回	文本型				可空,默认返回空文本.当取出失败的时候返回的内容,

变量名	类 型	静态	数组	备 注
处理文本	文本型
分割文本1	文本型		0
分割文本2	文本型		0
i	整数型

' 判断是否需要去除域名
处理文本 ＝ 删首尾空 (全部参数文本)
如果真 (是否为空 (忽略大小写))
忽略大小写 ＝ 真

' 过滤掉?以前的数据
处理文本 ＝ 取文本右边 (处理文本, 取文本长度 (处理文本) － 寻找文本 (处理文本, “?”, , 假))
' 调试输出 (处理文本)
分割文本1 ＝ 分割文本 (处理文本, “&”, )
' 调试输出 (“成员数”, 取数组成员数 (分割文本1))
计次循环首 (取数组成员数 (分割文本1), i)
分割文本2 ＝ 分割文本 (分割文本1 [i], “=”, )
重定义数组 (分割文本2, 真, 2)
' 调试输出 (分割文本2 [1], 欲取出的参数名)
如果 (忽略大小写 ＝ 真)
如果真 (到小写 (分割文本2 [1]) ＝ 到小写 (欲取出的参数名))
返回 (分割文本2 [2])

如果真 (分割文本2 [1] ＝ 欲取出的参数名)
返回 (分割文本2 [2])


计次循环尾 ()
返回 (默认返回)

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库
exui	(未知支持库)

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> .支持库 exui<br /> <br /> .程序集 窗口程序集_启动窗口, , , @SuperLiii.com<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 调试输出 (_浏览框EX1_URL取参数 (“http://127.0.0.1:8888/asd/aaa.html?mod=1&id=asdasd2”, “id”, , ))<br /> 浏览框EX1 ＝ _浏览框EX1_本地到网络路径 (取运行目录 () ＋ “\index.html”)  ' <br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> <br /> 浏览框EX1.移动 (20, 45, 取用户区宽度 () － 20 × 2, 取用户区高度 () － 45 － 21)<br /> <br /> .子程序 _浏览框EX1_url改变<br /> .参数 句柄, 整数型<br /> .参数 网页url, 整数型<br /> <br /> 调试输出 (“[_浏览框EX1_url改变]”, 句柄, 编码_utf8到gb2312 (浏览框EX_从指针取文本 (网页url)))<br /> <br /> .子程序 _浏览框EX1_标题改变<br /> .参数 句柄, 整数型<br /> .参数 网页标题, 整数型<br /> .局部变量 标题文本, 文本型<br /> .局部变量 MOD, 文本型<br /> .局部变量 TYPE, 文本型<br /> .局部变量 ID, 文本型<br /> <br /> 标题文本 ＝ 编码_utf8到gb2312 (浏览框EX_从指针取文本 (网页标题))<br /> .如果真 (标题文本 ＝ “0”)<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> 调试输出 (“[_浏览框EX1_标题改变]”, 句柄, 标题文本)<br /> <br /> ' 这是通过改变网页标题的方式激活易语言方法<br /> MOD ＝ _浏览框EX1_URL取参数 (标题文本, “MOD”, , )<br /> .如果真 (MOD ＝ “CallE”)<br />     TYPE ＝ _浏览框EX1_URL取参数 (标题文本, “TYPE”, , )<br />     .如果真 (TYPE ＝ “MESSAGEBOX”)<br />         CALLE_MESSAGEBOX (_浏览框EX1_URL取参数 (标题文本, “DATA_TITLE”, , ), _浏览框EX1_URL取参数 (标题文本, “DATA_MESSAGE”, , ))<br />     .如果真结束<br />     .如果真 (TYPE ＝ “NowTime”)<br />         CALLE_NowTime (_浏览框EX1_URL取参数 (标题文本, “DATA_TIME”, , ))<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> ' 为了防止 网页修改标题为相同的时候 不能反复激活此事件的问题 这里将标题重置为空<br /> 启动线程 (&子程序1, , )<br /> <br /> <br /> .子程序 _浏览框EX1_本地到网络路径, 文本型<br /> .参数 本地路径, 文本型<br /> <br /> 返回 (“file:///” ＋ 编码_URL编码 (本地路径, 真, 假))<br /> <br /> .子程序 子程序1, , , 为了防止网页修改标题为相同的时候不能反复激活此事件的问题,这里将标题重置为空,注意:此方法必须在新线程里使用,否则会重复激活2次方法.自身的BUG管不了管不了~~<br /> <br /> ' 延时 (10)<br /> 浏览框EX1.备用2 (“document.title='0'”, )<br /> <br /> .子程序 CALLE_NowTime<br /> .参数 时间, 文本型<br /> <br /> 调试输出 (“[CALLE_NowTime]”, 时间)<br /> <br /> .子程序 CALLE_MESSAGEBOX<br /> .参数 显示标题, 文本型<br /> .参数 显示消息, 文本型<br /> <br /> 信息框 (显示消息, 0, 显示标题, _启动窗口)<br /> <br /> .子程序 _按钮EX1_左键单击<br /> <br /> 浏览框EX1 ＝ “127.0.0.1:81/testlib/index.html”  ' <br /> <br /> .子程序 _按钮EX2_左键单击<br /> <br /> 浏览框EX1.备用2 (“document.getElementById('btn3').innerHTML='哎呦呦~这个DIV被易语言承包了!'”, )<br /> <br /> .子程序 _按钮EX3_左键单击<br /> <br /> ' 这个方法只能返回一个字节...<br /> ' 第二个参数不知道干嘛的,没试...猜测应该是参数提交什么的吧...<br /> 调试输出 (“[_按钮EX3_左键单击]”, 到文本 (浏览框EX1.备用2 (“ejs_return();”, )))<br /> <br /> .子程序 _按钮EX4_左键单击, , , 这个方法没整明白....不好用!<br /> <br /> ' 注册JS函数回调 (“call_e”, 到整数 (&JS回调_EJS), 1, 假)<br /> 浏览框EX1.备用4 (“call_e”, 到整数 (&JS回调_EJS), 1, 假)<br /> <br /> <br /> <br /> .子程序 JS回调_EJS<br /> .参数 参数1, 文本型<br /> <br /> 调试输出 (“[JS回调_EJS]”, 参数1)<br /> <br /> .子程序 _按钮EX5_左键单击<br /> <br /> 浏览框EX1.备用2 (“ejs_return2();”, )<br /> <br /> .子程序 _浏览框EX1_URL取参数, 文本型, , 从URL获取参数<br /> .参数 全部参数文本, 文本型<br /> .参数 欲取出的参数名, 文本型<br /> .参数 忽略大小写, 逻辑型, 可空, 可空,默认为真<br /> .参数 默认返回, 文本型, 可空, 可空,默认返回空文本.当取出失败的时候返回的内容,<br /> .局部变量 处理文本, 文本型<br /> .局部变量 分割文本1, 文本型, , "0"<br /> .局部变量 分割文本2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 判断是否需要去除域名<br /> <br /> 处理文本 ＝ 删首尾空 (全部参数文本)<br /> .如果真 (是否为空 (忽略大小写))<br />     忽略大小写 ＝ 真<br /> .如果真结束<br /> <br /> <br /> ' 过滤掉?以前的数据<br /> 处理文本 ＝ 取文本右边 (处理文本, 取文本长度 (处理文本) － 寻找文本 (处理文本, “?”, , 假))<br /> ' 调试输出 (处理文本)<br /> <br /> 分割文本1 ＝ 分割文本 (处理文本, “&”, )<br /> ' 调试输出 (“成员数”, 取数组成员数 (分割文本1))<br /> <br /> .计次循环首 (取数组成员数 (分割文本1), i)<br />     分割文本2 ＝ 分割文本 (分割文本1 <i>, “=”, )<br />     重定义数组 (分割文本2, 真, 2)<br />     ' 调试输出 (分割文本2 [1], 欲取出的参数名)<br />     .如果 (忽略大小写 ＝ 真)<br />         .如果真 (到小写 (分割文本2 [1]) ＝ 到小写 (欲取出的参数名))<br />             返回 (分割文本2 [2])<br />         .如果真结束<br /> <br />     .否则<br />         .如果真 (分割文本2 [1] ＝ 欲取出的参数名)<br />             返回 (分割文本2 [2])<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (默认返回)