VbnetWinForm如何开发一个Google翻译工具

首先,我要说明一下,我不是把Google的翻译网页嵌入到桌面程序里面,是直接调用Google的翻译接口.
我们先来访问一下Google翻译网页
https://translate.google.cn/
我有没有可能直接调用网页的接口直接向google服务器发送翻译请求呢,答案是肯定的,
通过监视网页我们很快发现它其中的一个调用正是我们想要的,
地址如下
https://translate.google.cn/translate_a/single?client=t&sl=zh-CN&tl=en&hl=zh-CN&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=ss&dt=t&ie=UTF-8&oe=UTF-8&source=btn&ssel=0&tsel=0&kc=1&tk=316666.154749&q=你好

经过反复的测试,其他的参数都好解释,唯独tk这个值太难搞了,怎么办呢,我们求助百度吧,很快找到了TK的算法如下:

public static function tk (a,TKK) {
  for (var e = TKK.split("."), h = Number(e[0]) || 0, g = [], d = 0, f = 0; f < a.length; f++) {
   var c = a.charCodeAt(f);
        128 > c ? g[d++] = c : (2048 > c ? g[d++] = c >> 6 | 192 : (55296 == (c & 64512) && f + 1 < a.length && 56320 == (a.charCodeAt(f + 1) & 64512) ? (c = 65536 + ((c & 1023) << 10) + (a.charCodeAt(++f) & 1023), g[d++] = c >> 18 | 240, g[d++] = c >> 12 & 63 | 128) : g[d++] = c >> 12 | 224, g[d++] = c >> 6 & 63 | 128), g[d++] = c & 63 | 128)
    }
    a = h;
 for (d = 0; d < g.length; d++) a += g[d], a = b(a, "+-a^+6");
a = b(a, "+-3^+b+-f");
 a ^= Number(e[1]) || 0;
    0 > a && (a = (a & 2147483647) + 2147483648);
a %= 1E6;
 return a.toString() + "." + (a ^ h)
}
public static function b  (a, b) {
    for (var d = 0; d < b.length - 2; d += 3) {
        var c = b.charAt(d + 2),
            c = "a" <= c ? c.charCodeAt(0) - 87 : Number(c),
            c = "+" == b.charAt(d + 1) ? a >>> c : a << c;
        a = "+" == b.charAt(d) ? a + c & 4294967295 : a ^ c
    }
    return a
}

很遗憾,他是一个js算法,为了调用它,我们可以用动态代码加载方式来使用它,如下

  Private Function GetJsMethd_main(JSCode As String, FangFa As String, para As Object()) As String
        Dim parameters As New CompilerParameters()
        parameters.GenerateInMemory = True
        Dim _provider As CodeDomProvider = New Microsoft.JScript.JScriptCodeProvider()
        Dim results As CompilerResults = _provider.CompileAssemblyFromSource(parameters, JSCode)
        Dim assembly As Assembly = results.CompiledAssembly
        Dim _evaluateType As Type = assembly.[GetType]("aa.JScript")
        Dim obj As Object = _evaluateType.InvokeMember(FangFa, BindingFlags.InvokeMethod, Nothing, Nothing, para)
        Return obj.ToString()
    End Function

最后我们来测试一下,自己生成的URL和google提供的网页生成的TK值是否一致,发现很完美啊.
然后我们就可以很快乐的使用Google提供的翻译接口了。
注意

• 该Google不是对外的友好接口,仅仅是为了自己的翻译界面使用的.所以不对该接口的变动导致的异常负责
• 由于该接口返回的Json未提供变量命名规则,解析结果相对复杂.
  代码奉上
  https://download.csdn.net/download/meiren777/10765637
  老规矩,DCM相关3个项目源码另行下载
  界面展示