纯网页与精易浏览器交互控制

专注研究 · 发表于 2018-7-27 22:33:22

本帖最后由 post老司机于 2018-7-28 00:00 编辑

没币了，兄弟们，我很饥渴来点币吧！！！！！

发个最新的版的，之前忘记加鼠标位置，导致有时候移动刷的一下窗口移动到N米远去了，现在不会了

下载这给最新的！！！！

希望喜欢的伙伴多多支持，后面我们一起努力把它弄更加强大

纯网页与精易浏览器交互控制.zip (3.96 KB, 下载次数: 35)

关于浏览器的支持库DLL自己去群里或论坛下载吧，

运行截图：

完整代码，网页代码自己拷贝吧程序里也带了，

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

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

变量名	类型	静态	数组	备注
js	Javascript

' 载入网页前绑定 , 此处绑定一个网页的JS函数,当函数被触发时,会调用指定的易语言子程序
js.绑定子程序 (“E_MoveEvent”, &MoveEvent, 2) ' 绑定移动事件
js.绑定子程序 (“exitWin”, &exit, 0) ' 绑定关闭事件

判断 (是否与互联网连接 () ＝假) ' 判断是否已经接入互联网

精易Web浏览器1.载入HTML文本 (置默认消息 (_启动窗口, “您尚未连接互联网将无法使用本程序”))

精易Web浏览器1.浏览网页 (“源码里看吧”)

子程序名	返回值类型	公开	备注
exit

结束 ()

子程序名	返回值类型	公开	备注
MoveEvent			网页鼠标移动事件
参数名	类型	参考	可空	数组	备注
es	整数型

变量名	类型	静态	数组	备注
js	Javascript
x	整数型
y	整数型

如果真 (js.取参数个数 (es) ＝ 2) ' OK

x ＝到数值 (js.取文本型参数 (es, 0))

y ＝到数值 (js.取文本型参数 (es, 1))

如果 (x ＜ 0)

_启动窗口.左边＝取鼠标水平位置 () ' _启动窗口.左边－ 20 ' 往左边移动

_启动窗口.左边＝ _启动窗口.左边＋ x ' 往右边移动

如果 (y ＜ 0)

_启动窗口.顶边＝取鼠标垂直位置 () ' _启动窗口.顶边－ 20 ' 上面移动

_启动窗口.顶边＝ _启动窗口.顶边＋ y ' 往下边移动

调试输出 (取鼠标水平位置 (), 取鼠标垂直位置 ())

调试输出 (“AAAAAAAAAAAAA参数个数:” ＋到文本 (js.取参数个数 (es)) ＋ “,参数值:” ＋ js.取文本型参数 (es, 0) ＋ “,参数值:” ＋ js.取文本型参数 (es, 1) ＋ #换行符 )

子程序名	返回值类型	公开	备注
执行Javascript	文本型
参数名	类型	参考	可空	数组	备注
Javascript	文本型

变量名	类型	静态	数组	备注
js	Javascript
es	整数型
vl	长整数型

es ＝ js.创建全局JS执行状态 (精易Web浏览器1.取WebView ())
vl ＝ js.运行JS_值对象 (精易Web浏览器1.取WebView (), Javascript)
返回 (js.取执行结果到文本 (es, vl))

子程序名	返回值类型	公开	备注
_精易Web浏览器1_Alert将被调用			防止载入烦人的 alert
参数名	类型	参考	可空	数组	备注
消息	文本型

' 调试输出 (消息)

子程序名	返回值类型	公开	备注
_精易Web浏览器1_文档载入完毕
参数名	类型	参考	可空	数组	备注
载入URL	文本型
载入状态	整数型
失败原因	文本型

如果真 (载入状态＝ 0)

执行Javascript (“$('#return_reply').text('” ＋ _启动窗口.标题＋ “')”)

i支持库列表	支持库注释
wke	精易web浏览器
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 wke<br />
.支持库 eAPI<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 js, Javascript<br />
<br />
' 载入网页前绑定 , 此处绑定一个网页的JS函数,当函数被触发时,会调用指定的易语言子程序<br />
js.绑定子程序 (“E_MoveEvent”, &MoveEvent, 2)  ' 绑定移动事件<br />
js.绑定子程序 (“exitWin”, &exit, 0)  ' 绑定关闭事件<br />
.判断开始 (是否与互联网连接 () ＝ 假)  ' 判断是否已经接入互联网<br />
    精易Web浏览器1.载入HTML文本 (置默认消息 (_启动窗口, “您尚未连接互联网将无法使用本程序”))<br />
.默认<br />
    精易Web浏览器1.浏览网页 (“<font color="#ff0000">源码里看吧</font>”)<br />
.判断结束<br />
<br />
<br />
.子程序 exit<br />
<br />
结束 ()<br />
<br />
.子程序 MoveEvent, , , 网页鼠标移动事件<br />
.参数 es, 整数型<br />
.局部变量 js, Javascript<br />
.局部变量 x, 整数型<br />
.局部变量 y, 整数型<br />
<br />
.如果真 (js.取参数个数 (es) ＝ 2)  ' OK<br />
    x ＝ 到数值 (js.取文本型参数 (es, 0))<br />
    y ＝ 到数值 (js.取文本型参数 (es, 1))<br />
    .如果 (x ＜ 0)<br />
        _启动窗口.左边 ＝ 取鼠标水平位置 ()  ' _启动窗口.左边 － 20  ' 往左边移动<br />
    .否则<br />
        _启动窗口.左边 ＝ _启动窗口.左边 ＋ x  ' 往右边移动<br />
    .如果结束<br />
    .如果 (y ＜ 0)<br />
        _启动窗口.顶边 ＝ 取鼠标垂直位置 ()  ' _启动窗口.顶边 － 20  ' 上面移动<br />
    .否则<br />
        _启动窗口.顶边 ＝ _启动窗口.顶边 ＋ y  ' 往下边移动<br />
    .如果结束<br />
    调试输出 (取鼠标水平位置 (), 取鼠标垂直位置 ())<br />
    调试输出 (“AAAAAAAAAAAAA参数个数:” ＋ 到文本 (js.取参数个数 (es)) ＋ “,参数值:” ＋ js.取文本型参数 (es, 0) ＋ “,参数值:” ＋ js.取文本型参数 (es, 1) ＋ #换行符)<br />
.如果真结束<br />
<br />
<br />
<br />
<br />
.子程序 执行Javascript, 文本型<br />
.参数 Javascript, 文本型<br />
.局部变量 js, Javascript<br />
.局部变量 es, 整数型<br />
.局部变量 vl, 长整数型<br />
<br />
es ＝ js.创建全局JS执行状态 (精易Web浏览器1.取WebView ())<br />
vl ＝ js.运行JS_值对象 (精易Web浏览器1.取WebView (), Javascript)<br />
返回 (js.取执行结果到文本 (es, vl))<br />
<br />
<br />
.子程序 _精易Web浏览器1_Alert将被调用, , , 防止载入烦人的 alert<br />
.参数 消息, 文本型<br />
<br />
' 调试输出 (消息)<br />
<br />
<br />
.子程序 _精易Web浏览器1_文档载入完毕<br />
.参数 载入URL, 文本型<br />
.参数 载入状态, 整数型<br />
.参数 失败原因, 文本型<br />
<br />
.如果真 (载入状态 ＝ 0)<br />
    执行Javascript (“$('#return_reply').text('” ＋ _启动窗口.标题 ＋ “')”)<br />
.如果真结束