二、在VB6中使用bingTranslate API
1、工具下載與安裝
由于VB6不能象office中一樣引用webservice，但有另外一款利器Microsoft Soap Toolkit 3.0可以幫我們方便的實(shí)現(xiàn)，下載地址附后
安裝完成后會(huì)在C:\Program Files\Common Files\MSSoap\Binaries 出現(xiàn)
2.將在OFFICE VBA中自動(dòng)生成的類文件(共8個(gè))導(dǎo)出
3.轉(zhuǎn)到VB6，我們新建一個(gè)工程，取名bingTranslate，點(diǎn)菜單上工程》添加引用，引入Microsoft XML,v2.6或以上版本 和Microsoft Soap Type Library v3.0
再點(diǎn)菜單上工程》添加類模塊》現(xiàn)存，打開(kāi)上面保存下來(lái)的8個(gè)類文件
注意，點(diǎn)開(kāi)clsws_SoapService.cls，修改其中的str_WSWL字符，將其注釋掉。
添加一個(gè)窗體，2個(gè)文本框分別是原文本、目標(biāo)文本，2個(gè)下拉框分別是原語(yǔ)言代碼、目標(biāo)語(yǔ)言代碼，1個(gè)翻譯按鈕Commonbutton1，雙擊Commonbutton1，輸入
Private Const appID As String = "你的APPID"
Private Sub Command1_Click()
Dim obingTranslate As New clsws_SoapService
Text2.Text = obingTranslate.wsm_Translate(appID, Text1.Text, Combo1.Text, Combo2.Text, "text/plain", "general")
End Sub
按F5運(yùn)行結(jié)果，
