百度翻译 能OCR图片识别、word文档、网址翻译

易语言血洗

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Cookie	文本型

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

网页_置浏览器UA (“Mozilla/5.0 (Windows NT 6.1 WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.101”)
互联网浏览器1.浏览 (“https://fanyi.baidu.com/?aldtype=16047#auto/zh/”, , , )
网页_访问_对象 (“https://fanyi.baidu.com/”, , , , Cookie)

子程序名	返回值类型	公开	备 注
_变大写_被选择

变量名	类 型	静态	数组	备 注
wenben	文本型

普通填表.初始化 (互联网浏览器1.取窗口句柄 ())
wenben ＝ 普通填表.多行文本框_取内容 (“baidu_translate_input”, )
wenben ＝ 到大写 (wenben)
普通填表.初始化 (互联网浏览器1.取窗口句柄 ())
普通填表.多行文本框_写内容 (“baidu_translate_input”, wenben, 0)

子程序名	返回值类型	公开	备 注
_识图_被选择

变量名	类 型	静态	数组	备 注
wz	文本型
t	字节集
路径	文本型
图片	字节集

图片 ＝ 剪辑板_取位图数据A (取窗口句柄 ())
写到文件 (“C:” ＋ “\1.jpg”, 图片)
延时 (500)
路径 ＝ “C:” ＋ “\1.jpg”
如果真 (路径 ≠ “”)
启动线程 (&子程序1, 取变量数据地址 (路径), )
延迟 (200)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
传递指针	整数型

变量名	类 型	静态	数组	备 注
路径	文本型
文件名	文本型
数据	字节集
响应	文本型

路径 ＝ 指针到文本 (传递指针)
调试输出 (路径)
文件名 ＝ 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “\”, , 假))
调试输出 (“路径：”, 路径)
调试输出 (“文件名：”, 文件名)
数据 ＝ 到字节集 ( #常量1 )
数据 ＝ 子字节集替换 (数据, 到字节集 (“文件名”), 到字节集 (文件名), , )
数据 ＝ 子字节集替换 (数据, 到字节集 (“路径”), 读入文件 (路径), , )
响应 ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://fanyi.baidu.com/getocr”, 1, , Cookie, , “Content-Type: multipart/form-data; boundary=----WebKitFormBoundaryLW6h16E8W5UxFqlc”, , , 真, 数据, , , , , , , 假)))
调试输出 (响应)
响应 ＝ 文本_取出中间文本 (响应, “[” ＋ #引号, #引号 ＋ “]”, , )
响应 ＝ 文本_替换 (响应, , , , #引号 ＋ “,” ＋ #引号, “ ”)
互联网浏览器1.浏览 (“https://fanyi.baidu.com/?aldtype=16047#auto/zh/” ＋ 响应, , , )

子程序名	返回值类型	公开	备 注
_查看截图_被选择

载入 (窗口1, , 真)

子程序名	返回值类型	公开	备 注
_截图_被选择

载入 (窗口3, , 真)

子程序名	返回值类型	公开	备 注
_变小写_被选择

变量名	类 型	静态	数组	备 注
wenben	文本型

普通填表.初始化 (互联网浏览器1.取窗口句柄 ())
wenben ＝ 普通填表.多行文本框_取内容 (“baidu_translate_input”, )
wenben ＝ 到小写 (wenben)
普通填表.初始化 (互联网浏览器1.取窗口句柄 ())
普通填表.多行文本框_写内容 (“baidu_translate_input”, wenben, 0)

子程序名	返回值类型	公开	备 注
_LEED_被选择

' 系统_以管理员模式创建进程 (“LEED报价计算.exe”, )

子程序名	返回值类型	公开	备 注
_系统计算器_被选择

执行 (, “calc”, , “C:\Windows\system32”, )

子程序名	返回值类型	公开	备 注
_最前端_被选择

_启动窗口.总在最前 ＝ 真

子程序名	返回值类型	公开	备 注
_恢复_被选择

_启动窗口.总在最前 ＝ 假

子程序名	返回值类型	公开	备 注
_复制翻译结果_被选择

变量名	类 型	静态	数组	备 注
wenben	文本型

网页填表.初始化 (互联网浏览器1.取窗口句柄 ())
wenben ＝ 网页填表.DIV_取内容 (“Id==original-output”, 0, 1)
剪辑板_置文本 (wenben)

子程序名	返回值类型	公开	备 注
_回车处理_被选择

变量名	类 型	静态	数组	备 注
e	逻辑型

_复制输入内容_被选择 ()
延迟 (200)
e ＝ 载入 (窗口2, , 真)
如果 (e ＝ 真)
互联网浏览器1.浏览 (“https://fanyi.baidu.com/?aldtype=16047#auto/zh/” ＋ 剪辑板_取文本 (), , , )

子程序名	返回值类型	公开	备 注
_复制输入内容_被选择

变量名	类 型	静态	数组	备 注
wenn	文本型

网页填表.初始化 (互联网浏览器1.取窗口句柄 ())
wenn ＝ 网页填表.多行文本框_取内容 (“baidu_translate_input”, )
剪辑板_置文本 (wenn)

i支持库列表	支持库注释
WebBrowser2	WEB浏览器
EThread	多线程支持库
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 WebBrowser2<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Cookie, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 网页_置浏览器UA (“Mozilla/5.0 (Windows NT 6.1 WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.101”)<br /> 互联网浏览器1.浏览 (“https://fanyi.baidu.com/?aldtype=16047#auto/zh/”, , , )<br /> 网页_访问_对象 (“https://fanyi.baidu.com/”, , , , Cookie)<br /> <br /> .子程序 _变大写_被选择<br /> .局部变量 wenben, 文本型<br /> <br /> 普通填表.初始化 (互联网浏览器1.取窗口句柄 ())<br /> wenben ＝ 普通填表.多行文本框_取内容 (“baidu_translate_input”, )<br /> wenben ＝ 到大写 (wenben)<br /> 普通填表.初始化 (互联网浏览器1.取窗口句柄 ())<br /> 普通填表.多行文本框_写内容 (“baidu_translate_input”, wenben, 0)<br /> <br /> <br /> .子程序 _识图_被选择<br /> .局部变量 wz, 文本型<br /> .局部变量 t, 字节集<br /> .局部变量 路径, 文本型<br /> .局部变量 图片, 字节集<br /> <br /> 图片 ＝ 剪辑板_取位图数据A (取窗口句柄 ())<br /> 写到文件 (“C:” ＋ “\1.jpg”, 图片)<br /> 延时 (500)<br /> 路径 ＝ “C:” ＋ “\1.jpg”<br /> .如果真 (路径 ≠ “”)<br />     启动线程 (&子程序1, 取变量数据地址 (路径), )<br />     延迟 (200)<br /> .如果真结束<br /> <br /> <br /> .子程序 子程序1<br /> .参数 传递指针, 整数型<br /> .局部变量 路径, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 数据, 字节集<br /> .局部变量 响应, 文本型<br /> <br /> 路径 ＝ 指针到文本 (传递指针)<br /> 调试输出 (路径)<br /> 文件名 ＝ 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “\”, , 假))<br /> 调试输出 (“路径：”, 路径)<br /> 调试输出 (“文件名：”, 文件名)<br /> 数据 ＝ 到字节集 (#常量1)<br /> 数据 ＝ 子字节集替换 (数据, 到字节集 (“文件名”), 到字节集 (文件名), , )<br /> 数据 ＝ 子字节集替换 (数据, 到字节集 (“路径”), 读入文件 (路径), , )<br /> 响应 ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://fanyi.baidu.com/getocr”, 1, , Cookie, , “Content-Type: multipart/form-data; boundary=----WebKitFormBoundaryLW6h16E8W5UxFqlc”, , , 真, 数据, , , , , , , 假)))<br /> 调试输出 (响应)<br /> 响应 ＝ 文本_取出中间文本 (响应, “[” ＋ #引号, #引号 ＋ “]”, , )<br /> 响应 ＝ 文本_替换 (响应, , , , #引号 ＋ “,” ＋ #引号, “ ”)<br /> 互联网浏览器1.浏览 (“https://fanyi.baidu.com/?aldtype=16047#auto/zh/” ＋ 响应, , , )<br /> <br /> .子程序 _查看截图_被选择<br /> <br /> 载入 (窗口1, , 真)<br /> <br /> .子程序 _截图_被选择<br /> <br /> 载入 (窗口3, , 真)<br /> <br /> .子程序 _变小写_被选择<br /> .局部变量 wenben, 文本型<br /> <br /> 普通填表.初始化 (互联网浏览器1.取窗口句柄 ())<br /> wenben ＝ 普通填表.多行文本框_取内容 (“baidu_translate_input”, )<br /> wenben ＝ 到小写 (wenben)<br /> 普通填表.初始化 (互联网浏览器1.取窗口句柄 ())<br /> 普通填表.多行文本框_写内容 (“baidu_translate_input”, wenben, 0)<br /> <br /> <br /> .子程序 _LEED_被选择<br /> <br /> ' 系统_以管理员模式创建进程 (“LEED报价计算.exe”, )<br /> <br /> .子程序 _系统计算器_被选择<br /> <br /> 执行 (, “calc”, , “C:\Windows\system32”, )<br /> <br /> .子程序 _最前端_被选择<br /> <br /> _启动窗口.总在最前 ＝ 真<br /> <br /> .子程序 _恢复_被选择<br /> <br /> _启动窗口.总在最前 ＝ 假<br /> <br /> .子程序 _复制翻译结果_被选择<br /> .局部变量 wenben, 文本型<br /> <br /> 网页填表.初始化 (互联网浏览器1.取窗口句柄 ())<br /> wenben ＝ 网页填表.DIV_取内容 (“Id==original-output”, 0, 1)<br /> 剪辑板_置文本 (wenben)<br /> <br /> <br /> .子程序 _回车处理_被选择<br /> .局部变量 e, 逻辑型<br /> <br /> _复制输入内容_被选择 ()<br /> 延迟 (200)<br /> e ＝ 载入 (窗口2, , 真)<br /> .如果 (e ＝ 真)<br /> <br />     互联网浏览器1.浏览 (“https://fanyi.baidu.com/?aldtype=16047#auto/zh/” ＋ 剪辑板_取文本 (), , , )<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _复制输入内容_被选择<br /> .局部变量 wenn, 文本型<br /> <br /> 网页填表.初始化 (互联网浏览器1.取窗口句柄 ())<br /> wenn ＝ 网页填表.多行文本框_取内容 (“baidu_translate_input”, )<br /> 剪辑板_置文本 (wenn)

里面用到了 敬意磨块和VIP模块，论坛都有下载。browse2 支持库论坛也有。下面回复有下载传送门

主要解决：     1、浏览器不能使用快捷键问题。
                2、无法图片填表问题（未完全解决）
                3、快速截图

mjl2021

感谢分享，精易因你更精彩！

易语言血洗

yyy1234567890 发表于 2023-10-18 15:48
怎么下载模块

模块论坛搜搜关键字，都有的

yyy1234567890

怎么下载模块

yyy1234567890

能OCR吗123333

keaiqian

11111111111111111111111111111111111111111111

lhbismy1

非常感谢

心动就行动2

支持一下开源的

小智666

66666666666666666666666

mm123456

666666666666

至尊宝爱代码

66666666666666666666666