分享一个原创的截图翻译小工具，基于E语言制作

前言

因为本人每天要更新一些网站内容，涉及到国外网站，英语水平也有限，所以经常用到翻译，但是每次都需要复制网站的原内容进行粘贴翻译，太麻烦了，所以自己做了一个截图翻译工具，接口是必应翻译的，所有翻译网站的结果几乎都大同小异吧

软件展示

先附上软件截图，大家一睹为快。

Ctrl+左上角波浪键是截屏，截屏结束后会自动进行翻译，自动检测语言类型，右键窗口可以切换接口模式，

源码展示

.版本 2
.支持库 EThread
.支持库 ExuiKrnln
.支持库 spec
.支持库 eAPI

.程序集 窗口程序集_启动窗口, , , www.eyuyan.la
.程序集变量 快捷键, 整数型
.程序集变量 启动时间, 整数型
.程序集变量 计时发呆, 整数型
.程序集变量 最长发呆毫秒, 整数型
.程序集变量 截图翻译, 逻辑型
.程序集变量 内容, 文本型
.程序集变量 翻译句柄, 整数型
.程序集变量 设置窗口句柄, 整数型
.程序集变量 发呆线程句柄, 整数型
.程序集变量 获取名词句柄, 整数型
.程序集变量 循环动画句柄, 整数型
.程序集变量 热键状态, 逻辑型

.子程序 __翻译窗口_将被销毁

.如果真 (翻译句柄 ≠ 0)
    关闭线程句柄 (翻译句柄)
.如果真结束
.如果真 (设置窗口句柄 ≠ 0)
    关闭线程句柄 (设置窗口句柄)
.如果真结束
.如果真 (获取名词句柄 ≠ 0)
    关闭线程句柄 (获取名词句柄)
.如果真结束
.如果真 (图片转文字句柄 ≠ 0)
    关闭线程句柄 (图片转文字句柄)
.如果真结束
.如果真 (循环动画句柄 ≠ 0)
    关闭线程句柄 (循环动画句柄)
.如果真结束
.如果真 (获取名词 ≠ 0)
    关闭线程句柄 (获取名词)
.如果真结束
.如果真 (分析源码获取密钥 ≠ 0)
    关闭线程句柄 (分析源码获取密钥)
.如果真结束
.如果真 (读取翻译记录 ≠ 0)
    关闭线程句柄 (读取翻译记录)
.如果真结束
.如果真 (语种匹配 ≠ 0)
    关闭线程句柄 (语种匹配)
.如果真结束
.如果真 (保存翻译记录 ≠ 0)
    关闭线程句柄 (保存翻译记录)
.如果真结束
.' 如果真 (启动_截图 ≠ 0)
    ' 关闭线程句柄 (启动_截图)
.如果真结束
.如果真 (查询权限 ≠ 0)
    关闭线程句柄 (查询权限)
.如果真结束
.如果真 (打开数据库 ≠ 0)
    关闭线程句柄 (打开数据库)
.如果真结束

关闭 (“上次翻译记录”)
销毁 ()

.子程序 设置窗口组件位置

' 调试输出 (翻译框背景.高度 ＋ 翻译框背景.顶边)
' '调试输出 (_启动窗口.高度)
.如果 (防死循环 ≥ 10)  ' 防止死循环设置窗口尺寸
    ' 调试输出 (“防止循环”)
.否则
    防死循环 ＝ 防死循环 ＋ 1
    底层信息标签.左边 ＝ 10
    底层信息标签.顶边 ＝ _翻译窗口.高度 － 底层信息标签.高度 － 5
    底层信息标签.宽度 ＝ _翻译窗口.宽度


    翻译框背景.左边 ＝ _翻译窗口.宽度 × 0.5 － 翻译框背景.宽度 × 0.5
    翻译框背景.顶边 ＝ _翻译窗口.高度 × 0.08 ＋ 20
    翻译框背景.宽度 ＝ _翻译窗口.宽度 × 0.9 ＋ 20

    .如果 (名词框背景.可视 ＝ 真)
        名词框背景.顶边 ＝ 翻译框背景.顶边 ＋ 翻译框背景.高度  ' 名词框背景顶边始终跟随翻译框背景底边
        名词框背景.高度 ＝ 文本_取行数 (名词) × 20 ＋ 60
        名词框背景.左边 ＝ 翻译框背景.左边
        名词框背景.宽度 ＝ 翻译框背景.宽度
        .如果 (名词框背景.高度 ＞ 300)
            翻译框背景.高度 ＝ 文本_取行数 (文本框.内容) × 20 ＋ 100
            _翻译窗口.高度 ＝ 名词框背景.顶边 ＋ 名词框背景.高度 ＋ 40
        .否则
            翻译框背景.高度 ＝ 文本_取行数 (文本框.内容) × 20 ＋ 100
            _翻译窗口.高度 ＝ 名词框背景.顶边 ＋ 名词框背景.高度 ＋ 40
        .如果结束

    .否则

        .如果 (文本_取行数 (文本框.内容) ＞ 20)
            翻译框背景.高度 ＝ 500
            _翻译窗口.高度 ＝ 翻译框背景.高度 ＋ 翻译框背景.顶边 ＋ 30
        .否则

            翻译框背景.高度 ＝ 文本_取行数 (文本框.内容) × 20 ＋ 100
            _翻译窗口.高度 ＝ 翻译框背景.高度 ＋ 翻译框背景.顶边 &