二、在VB6中使用bingTranslate API
1、工具下載與安裝
由于VB6不能象office中一樣引用webservice，但有另外一款利器Microsoft Soap Toolkit 3.0可以幫我們方便的實現(xiàn)，下載地址附后
安裝完成后會在C:\Program Files\Common Files\MSSoap\Binaries 出現(xiàn)
2.將在OFFICE VBA中自動生成的類文件(共8個)導(dǎo)出
3.轉(zhuǎn)到VB6，我們新建一個工程，取名bingTranslate，點菜單上工程》添加引用，引入Microsoft XML,v2.6或以上版本 和Microsoft Soap Type Library v3.0
再點菜單上工程》添加類模塊》現(xiàn)存，打開上面保存下來的8個類文件
注意，點開clsws_SoapService.cls，修改其中的str_WSWL字符，將其注釋掉。
添加一個窗體，2個文本框分別是原文本、目標(biāo)文本，2個下拉框分別是原語言代碼、目標(biāo)語言代碼，1個翻譯按鈕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運行結(jié)果，
