|
分享源码
界面截图: |
|
是否带模块: |
调用了模块 |
备注说明: |
- |
本帖最后由 易语言血洗 于 2019-10-26 12:33 编辑
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 控件总数 | 整数型 | | 句柄 | 整数型 | | 控件数值 | 整数型 | 0 | 原标题 | 文本型 | | 窗口_热键注册 (取窗口句柄 (), , #F2键, &翻译开始, 111 )_启动窗口.总在最前 = 真 变量名 | 类 型 | 静态 | 数组 | 备 注 | 英文标题 | 文本型 | | | 未翻译文本 | 文本型 | | | 翻译文本 | 文本型 | | | i | 整数型 | | |
句柄 = 取鼠标所在窗口句柄 ()控件总数 = 窗口_枚举子窗口 (句柄, 控件数值 ) 计次循环首 (控件总数, i )英文标题 = 取窗口标题 (控件数值 [i ])列表框1. 加入项目 (英文标题, )未翻译文本 = 未翻译文本 + 列表框1. 取项目文本 (i - 1 ) + #换行符 计次循环尾 ()翻译文本 = 翻译数据 (未翻译文本 ) 计次循环首 (文本_取行数 (翻译文本 ) - 1, i )列表框2. 加入项目 (文本_取指定变量文本行 (翻译文本, i ), )计次循环尾 ()计次循环首 (控件总数, i )如果真 (列表框1. 取项目文本 (i - 1 ) = “”)列表框2. 插入项目 (i - 1, “”, )计次循环尾 () 计次循环首 (控件总数, i )如果真 (文本_是否为汉字 (列表框1. 取项目文本 (i - 1 )) = 真)列表框2. 置项目文本 (i - 1, 列表框1. 取项目文本 (i - 1 )) 计次循环尾 ()计次循环首 (控件总数, i )窗口_置标题 (控件数值 [i ], 列表框2. 取项目文本 (i - 1 )) 菜单_重画 (控件数值 [i ])计次循环尾 ()延迟 (1000 )原标题 = 取窗口标题 (句柄 )如果真 (文本_是否为汉字 (原标题 ) ≠ 真)窗口_置标题 (句柄, 翻译数据 (原标题 )) 菜单_重画 (句柄 )变量名 | 类 型 | 静态 | 数组 | 备 注 | 起始语种 | 文本型 | | | 翻译语种 | 文本型 | | | 账号 | 文本型 | | | 随机数 | 文本型 | | | 密码 | 文本型 | | | 生成标识 | 文本型 | | | 请求网址 | 文本型 | | | 翻译过程 | 文本型 | | | 翻译数组 | 文本型 | | 0 | 翻译结果 | 文本型 | | | n | 整数型 | | | 判断翻译 | 文本型 | | |
起始语种 = “en”翻译语种 = “zh”账号 = “20170411000044614”随机数 = “777777”密码 = “1toDrgYeqcncNu6snDfl”生成标识 = 到文本 (编码_Ansi到Utf8 (账号 + 单词 + 随机数 + 密码 )) 生成标识 = 校验_取md5_文本 (生成标识 )请求网址 = “http://api.fanyi.baidu.com/api/trans/vip/translate?q=” + 编码_URL编码 (单词 ) + “&from=” + 起始语种 + “&to=” + 翻译语种 + “&appid=” + 账号 + “&salt=” + 随机数 + “&sign=” + 生成标识 翻译过程 = 网页_访问S (请求网址, ) 文本_取中间_批量 (翻译过程, “dst” + #引号 + “:” + #引号, #引号 + “}”, 翻译数组, , , , , , , )计次循环首 (取数组成员数 (翻译数组 ), n )翻译结果 = 翻译结果 + 翻译数组 [n ] + #换行符 计次循环尾 ()翻译结果 = 编码_usc2到ansi (翻译结果 ) 返回 (翻译结果 )计次循环首 (控件总数, i )窗口_置标题 (控件数值 [i ], 列表框1. 取项目文本 (i - 1 )) 菜单_重画 (控件数值 [i ])计次循环尾 ()窗口_置标题 (句柄, 原标题 )菜单_重画 (句柄 )列表框2. 清空 ()列表框1. 清空 ()窗口_热键卸载所有 (取窗口句柄 ())
思路是对的,也能翻译了。我账号密码没删除,方便学习,谁用了自己申请个百度翻译API账号去,或者换别的翻译。
本人小白,有几个不足之处共大家探讨:
1、有些软件不能枚举出标题,自绘的就更不行了,有大神厉害的,给个建议。
2、翻译的时候如果每个标题请求一次,翻译可能会出错误代码,提示请求过于频繁,我给文本弄一块了。但是不会翻译空白行,又要处理一下,比较麻烦。
|
评分
-
查看全部评分
|