眉山东坡论坛

 找回密码
 注册账号

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 6096|回复: 0
收起左侧

[精品软件] 2017电影字幕英翻汉翻译软件,原创免费下载

[复制链接]
发表于 2017-2-14 17:18 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转东坡论坛

您需要 登录 才可以下载或查看,没有帐号?注册账号

x
本帖最后由 hmke 于 2017-9-19 12:53 编辑

以下内容另存为VBS即可,懒人可下载文末链接,使用方法是把“英文字幕.srt”用鼠标拖到这个程序上松手即可开始自动翻译。
本软件编制环境是WindowsSERVER2016+IE11+火绒杀毒软件,其他环境下如果不能正常使用的麻烦告知一下以便改进。



  1. '有时从网上下载到新的电影却没有字幕,好不容易找到个字幕却是英文版的,遂写了此程序,使用VBS脚本来写以便随时随地可修改..... 之前写过一次调用谷歌翻译电影字幕的脚本程序,这两年我军封掉了谷歌翻译后就只能用百度了,遂重写
  2. '程序原理是调用百度的翻译功能,仅调用了英翻汉功能,如果需要其他语言请回贴说明一下,改起来应该不难。
  3. '使用方法是把“英文字幕.srt”用鼠标拖到这个程序上松手即可开始自动翻译。
  4. '反馈地址:http://dp168.com/thread-112416-1-1.html 改版权的朋友尽量别改这里和后面的论坛链接
  5. '[程序开始]ver:20170214

  6. Dim WshShell,file_name,ping_time,str,debug_str,word_dict,reg,wmi,tran_temp
  7. Set WshShell=WScript.CreateObject("WScript.Shell")
  8. Set objFSO = CreateObject("Scripting.FileSystemObject")
  9. Set objShell = CreateObject("Shell.Application") '建立Shell.Applciation 对象
  10. Set Shell=CreateObject("Shell.Application")
  11. Set word_dict=CreateObject("Scripting.Dictionary")
  12. Set objArgs=WScript.Arguments'取得拖入的文件名
  13. on error resume next
  14.     Set wmiService = GetObject("winmgmts:\\.\root\cimv2") '关闭内存中未完全退出占用小于8M的IE
  15.     Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where caption='iexplore.exe'")
  16.     if wmiObjects.count > 0 then
  17.         For Each wmiObject In wmiObjects
  18.             if (wmiObject.workingsetsize/1048576) < 80 then wmiObject.terminate()
  19.         next
  20.     End if
  21.     file_name=""
  22.     if objArgs(0)=Empty then file_name="No"
  23.     WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","","REG_SZ" '去除标题栏后IE说明
  24. .............太长了估计也没人看,看长的还是下附件慢慢看吧。

复制代码





字幕英翻汉(调用百度翻译)20170918.7z

4.26 KB, 下载次数: 801

您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

QQ|网站地图|关于我们|小黑屋|爱好群|眉山东坡论坛 ( 蜀ICP备05001993号-1 )

GMT+8, 2018-1-20 22:52

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表