如何通过 VB 获得 google 翻译的结果？
从网上找了一个版本，源代码如下：
VB code:
Option Explicit
'Global DefLang As String
Const WebURL As String = "http://translate.google.com/translate_t"
Const SearchString As String = "result_box dir="
Const EndString As String = "</"
Public Function Translation(InputText As String, LangPair As String) As String
Dim TMPString As String
Dim StartPos As Long
Dim DebString As String
Dim InitString As String
If IsConnected = False Then
MsgBox "You don't have Internet connection!", vbInformation, "Translation"
Translation = ""
Exit Function
End If
'InputText
TMPString = GetHTMLfromURL(WebURL & "?langpair=" & LangPair & "&text=" & InputText)
InitString = SearchString & Chr(34) & "ltr" & Chr(34) & ">"
StartPos = InStr(1, TMPString, InitString, vbTextCompare)
If StartPos = 0 Then
Translation = ""
Exit Function
End If
DebString = Right(TMPString, Len(TMPString) - (StartPos + Len(InitString) - 1))
StartPos = InStr(1, DebString, EndString, vbTextCompare)
Translation = ReplaceHTMLString(Left(DebString, StartPos - 1))
End Function
Public Function ReplaceHT
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
我有自动生成序列号的程序，但是怎么跟打包后的安装程序结合在一起，在安装时提示用户输入序列号，正确后再继续安装？？？
方法1：你可以在运行程序后输入序列号注册，很多软件都是这样的。
方法2：使用Setu ......
VB能否把Control对象转为一个TEXTBOX对象？
VB.NET 有个CType函数，VB没有类似的？
只有转换变量的,似乎没发现有转换控件类型的
Dim txt As Control
Set txt = Text1
&n ......
一个个为了出名居然使用自己的照片出来招摇,穷疯了吧
┌───────────────My 迅雷等级─────────────────┐
so what? disturbed you?
大概好多只有初中毕业
是� ......
